最近学习了ObjectList对象的使用方法,记录如下:
首先在单元头引入Contnrs单元
然后下面以一个简单的列子说明一下,示例:是创建多个TstringList对象,将每个对像放入对象列表中,对每个对象赋值,最后将每个对象值显示在memo中。
首先在单元头引入Contnrs单元
然后下面以一个简单的列子说明一下,示例:是创建多个TstringList对象,将每个对像放入对象列表中,对每个对象赋值,最后将每个对象值显示在memo中。
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Contnrs, StdCtrls;
type
TForm5 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
var
ObjList: TobjectList;
slst:Tstrings;
i:integer;
begin
objlist:=TObjectList.Create;
slst := TstringList.Create;
try
slst.CommaText:='x1,x2,x3,x4,x5';
for I := 0 to slst.Count - 1 do
begin
objlist.Add(TstringList.Create);
TstringList(Objlist[i]).CommaText:=inttostr(i)+'ss1,ss2,ss3';
end;
memo1.Clear;
for i := 0 to objlist.Count - 1 do
begin
memo1.Lines.Add(Tstringlist(objlist[i]).CommaText);
end;
finally
objlist.Free;
slst.Free;
end;
end;
end.