UC知道delphi TStringList 如何存储数组(array)
来源：百度知道 编辑：UC知道 时间：2024/05/22 21:00:21
var
data : array of String;
tsl : TStringList;
begin
setLength(data,3);
data[0] := '001';
data[1] := '张三';
data[2] := '男';
//请问我如何将data数组存入TStringList中？
end;
是将这个数组存放到TStringList中
而不是将数组中的元素存放到TStringList
data : array of String;
tsl : TStringList;
begin
setLength(data,3);
data[0] := '001';
data[1] := '张三';
data[2] := '男';
//请问我如何将data数组存入TStringList中？
end;
是将这个数组存放到TStringList中
而不是将数组中的元素存放到TStringList
procedure TForm1.btn2Click(Sender: TObject);
var
data : array of String;
tsl : TStringList;
i: Integer;
begin
setLength(data,3);
data[0] := '001';
data[1] := '张三';
data[2] := '男';
tsl:=TStringList.Create;
for i:=0 to Length(data)-1 do
tsl.Add(data[i]);
mmo1.Lines.Assign(tsl); //显示到memo里面去
tsl.Free;
end;
你可以用Tlist来储存