使用Sringlist存放double类型的数据例子。

最新推荐文章于 2022-04-09 23:59:25 发布

easyboot

最新推荐文章于 2022-04-09 23:59:25 发布

阅读量739

点赞数

CC 4.0 BY-SA版权

文章标签： constructor button integer forms class windows

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/7042327

本文介绍了一个使用Delphi编程的例子，通过创建自定义类TMyClass并利用TObjectList来管理大量对象实例的方法。该方法展示了如何在循环中创建对象、将它们存储在TStringList中，并在完成后释放资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我的这个例子可以使用TObjectList代替，使用前需要引用Contnrs

unit Unit1;


interface


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


type


  
  TMyClass = class(TObject)
  private  
    { Private declarations }
  public
    DoubleValue:Double;
    constructor Create(vall:double);
    { Public declarations }
  end;


  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    ss:TStringList;


  public
    { Public declarations }


  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}
constructor TMyClass.Create(vall:double);
begin
  DoubleValue:=vall;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
 ss:=TStringList.Create;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
   mc:TMyClass;
begin
  for i:=1 to 50000 do
  begin
    mc:=TMyClass.Create(1.111*i);
    ss.AddObject(IntToStr(i),mc);
  end;
    ShowMessage(FloatToStr(TMyClass(ss.Objects[9]).DoubleValue)+'   '+FloatToStr(TMyClass(ss.Objects[10]).DoubleValue) );
end;


procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to ss.Count-1 do
  (ss.Objects[i] as TMyClass).Free;
  ss.Clear;


end;


end.