16,747
社区成员




var
i:integer;
s:string;
begin
with tstringlist.Create do
begin
Assign(memo1.Lines);
NameValueSeparator:=':';
for i:=0 to Count-1 do
s:=s+ValueFromIndex[i]+' ';
Free;
end;
showmessage(s);
end;