谁能提供DELPHI中TStrings的说明,用法

来源：百度知道 编辑：UC知道 时间：2024/05/13 00:38:56
谁能提供一个TString的用法,最好是做为一个记录集来使用的.
或者提供TStrings的详细用发几说明文档.有实例最好了.

我把我的商用软件《建筑工地材料管理系统》的一个TString的用法实例给你：
这是将录入购买材料的录入窗体的Create事件代码，dm是数据模块。StringList定义为: TStrings类

procedure TFormsdl41.FormCreate(Sender: TObject);
var
StringList: TStrings;
begin
with dm.ADOTable1 do
begin
if Active then Active:=False;
Active:=True;
end; //账号定义

with dm.ADOTable3 do
begin
if Active then Active:=False;
Active:=True;
end; //资金定义

with dm.ADOTable4 do
begin
if Active then Active:=False;
Active:=True;
end; //往来客户定义

with dm.ADOTable_srzc do
begin
if Active then Active:=False;
Active:=True;
end; //收入支出费用

//将客户名称编码导入 Combox1中
StringList := TStringList.Create;
try
with StringList do begin
with dm.ADOTable4 do
begin
First;
while not eof do
begin
Add(FieldValues['kehubianma']+' '+FieldV