标签: delphi-4

我在Delphi 4中有这个代码.我创建了10个类型的对象T_Charge(见下文),我将其添加到a中TList,命名为myList.该T_Charge类型引用了三个类型的对象T_Platte(见下文).

释放所有10个对象的所有内存的正确方法是什么？因此,对于每一个对象我想要释放的内存P1,P2,P3,F_Treated等,还有的记忆myCharge本身.我尝试了一切,但一直在犯错误.

procedure Test;
var 
  myList: TList;
  myCharge: T_Charge;
begin
  myList := TList.Create;

  for i := 0 to 9 do
  begin;
    myCharge := T_Charge.Create(...);
    myList.Add(myCharge);
  end;
  ...
end;

type
  T_Platte = class(TObject)
  private
    F_Nummer : Integer;
    F_Los    : Integer;
    F_Dicke  : Real;
    F_Lange  : Real;
    F_Breite : Real;
    F_QuenchCode : Integer;
    F_Geschwindigkeit : Real;
    F_Menge  : Integer;
    F_MengeInLos : …

似乎Delphi 4在system.pas中根本没有IInterface类型

我怎样才能自己定义这种类型以便我可以使用JEDI？

我在代码中遇到了以下内容.

_name1
_name2
smeEGiGross:  

一般来说,_name1Delphi 4 中的下划线意味着什么？

我正在使用Delphi 4,我想创建一个标准的非阻塞套接字,而不是杂乱的代码(Pv4和Pv6).我想得到计算机的IP地址,并能够ping任何人这样做.我是否可以使用Indy 10或Indy 9进行此操作.并且有任何一个代码可以执行任何这些操作并进行测试.

如果我单击表单右上角的X,我的程序将继续运行.这也发生在Delphi 4中,然后我被迫进行程序重置,因为如果不这样做,它将不会重新发生.主表格代码:

unit Unit3;

interface

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

type
  TMainForm = class(TForm)
    NewButton: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ExitButton: TButton;
    LockButton: TButton;
    SettingsButton: TButton;
    Label1: TLabel;
    TimeLabel: TLabel;
    Timer1: TTimer;
    procedure ExitButtonClick(Sender: TObject);
    procedure LockButtonClick(Sender: TObject);
    procedure SettingsButtonClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure NewButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Unit2, Unit1, Unit4;

{$R *.DFM} …

我有一个TListBox,加载时可以有一个很长的字符串列表,所以我让操作员通过单击按钮启动一个排序.有时排序可能需要一分钟,操作员仍然想知道发生了什么.

有什么方法可以使用TProgressBar来表明发生了什么事吗？如果是这样,怎么样？

要么

我可以在开始时使用灰色(视觉上禁用)屏幕,然后在完成排序时将颜色变回白色吗？如果是这样,怎么样？

谢谢