5,392
社区成员
发帖
与我相关
我的任务
分享
var
Str1, Str2: TStrings;
begin
Str1 := TStringList.Create;
Str2 := TStringList.Create;
Str1.Add('1');
Str1.Add('2');
Str2.Assign(Str1); // Str2 保存
Str1[1] := '11';
Str1.Free;
Str2.Free;
end;