标签: delphi-7

我正在编写一个程序,从我的服务器下载文件(dll)并使用此文件.但是,当下载完成后,我的防病毒软件(卡巴斯基)会使用Constructor.Win32.Downldr.xr检测我的文件.我怎么解决这个问题？

但是,我将我的2个文件放在www.virustotal.com上,并且都没有病毒.

注意:这两个文件(进行下载的程序和文件,即dll)是在Delphi 7中创建的.

如何使用if语句获取在"MessageDlg"中单击的按钮的状态？

继承我的代码:

if MessageDlg('Message',mtError,[mbYesNoCancel],0) = No
    then ShowMessage('Message2');

我刚才看到我的IT老师写了这样的东西,但我不记得语法了.

如何从字符串中删除最后5个字符？

procedure TForm1.Button15Click(Sender: TObject);
var
str:string;
begin
str:='012345678911234567892223456789';
showmessage(str);
end;

提前致谢

作为我的要求之一，我必须向 delphi 中的现有组框添加标签和编辑字段。但是有多少次，我在现有的组框中添加标签时它会消失或不会添加。有没有其他方法可以做到这一点？我不知道为什么，但可以添加编辑但不能添加标签

出于某些原因，我需要有这样的东西：

DT: array[0..3] of types = (string, integer, double, boolean);

这甚至可能吗？

我有一个随机的数字串
(数字只能使用一次,只能使用1-9,几乎任何长度(最小1,最大9)):

var
Input: String;
begin
Input := '431829576'; //User inputs random numbers

而现在我需要获得指定的数字.如何5.

var
Number: Integer;
begin
Number := 5;

和函数执行结果543182976.

我没有任何想法如何制作这样的功能,谢谢.

我正在为HTTP请求寻找IdHTTP的轻量级替代品.最好是不使用WinINet的.我需要向我拥有的网站发送请求(因此我可以配置可能需要的任何设置).

我需要实现控件的TList后代+额外的对象.
就像是:

List.Add(AControl, AObject)

因此,名单将同时举行 AControl, AObject

使用Delphi 7执行此操作的最佳方法是什么？

我目前面临的问题是无法将ClientWidth除以2(或乘以0.5,因为Delphi给出的错误信息:

[Error] Unit1.pas(59): Incompatible types: 'Integer' and 'Extended'
[Error] Unit1.pas(60): Incompatible types: 'Integer' and 'Extended'
[Error] Unit1.pas(61): Incompatible types: 'Integer' and 'Extended'

procedure TForm1.FormResize(Sender: TObject);
begin
 // responsive design
 with form1 do begin
 cmdFakultat.left:=0.5*ClientWidth-60;
 txtEingabe.left:=0.5*ClientWidth-60;
 lblAusgabe.left:=0.5*ClientWidth-60;
 end;
end;

end.

我无法解决这个问题,任何人都可以帮忙吗？

第1单元代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Form2; //error here

type
  TForm1 = class(TForm)

这是第2单元

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    CESTITAMO: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Rezultat11: TLabel;
    REZULTAT21: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

是的,我创建了Form2,它的标题是"Cestitke!" 并保持名称为Form2

我想知道将来如何修复它,谢谢