Question

delphi TStringList 如何存储数组(array)

var
data : array of String;
tsl : TStringList;
begin
setLength(data,3);
data[0] := '001';
data[1] := '张三';
data[2] := '男';

//请问我如何将data数组存入TStringList中？
end;
是将这个数组存放到TStringList中
而不是将数组中的元素存放到TStringList

Answer 1

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;

Answer 2

你可以用Tlist来储存