请教用法(100分)

  • 主题发起人 主题发起人 wr960204
  • 开始时间 开始时间
W

wr960204

Unregistered / Unconfirmed
GUEST, unregistred user!
TList谁用过?
我要开发一个表格控件,其中要用到TList,谁能给点指教,最好是例子。
 
Tlist是什么?
 
基本的我也会用一些,但是不太明了
哪位大虾能够给点用法。
 
先说说你具体要做什么!
 
在使用tlist的时候,不能直接产生它的实例,用tstringlist代替。
 
TList是一个抽象类(没记错吧),没法直接用的
 
TList stores an array of pointers.
TList, which stores an array of pointers, is often used to maintain lists of objects. TList introduces properties and methods to

Add or delete the objects in the list.
Rearrange the objects in the list.
Locate and access objects in the list.
Sort the objects in the list.
這是幫助說的,其實我也沒用過。
 
我也学习一下! 听听~
----------------------------------
我这里有一段程序,用于Win95/98下监控运行的其他程序,
其中用到了Tlist,不过我在调试的时候没有用它,我换成了ListBox~
uses ... TLHelp32, ...
type
TForm1 = class(TForm)
...
end;

var
Form1: TForm1;
l : Tlist; ////返回的东东在"L"这个TList中。

type
TProcessInfo = Record
ExeFile : String;
ProcessID : DWORD;
end;
pProcessInfo = ^TProcessInfo;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var p : pProcessInfo;
i : integer;
ContinueLoop:BOOL;
var
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
begin
l := TList.Create;
l.Clear;
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)<>0 do
begin
New(p);
p.ExeFile := FProcessEntry32.szExeFile;
p.ProcessID := FProcessEntry32.th32ProcessID;
l.Add(p);
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var p : pProcessInfo;
i : integer;
begin
With l do
for i := Count - 1 DownTo 0 do
begin p := items; Dispose(p); Delete(i); end;
end;
...
end.
-----------------------------------
[:D]
 
我已经会用了,但还是要感谢大家
 
多人接受答案了。
 
后退
顶部