TStingList问题，急！！

[hkbarton]

请问怎样将TStingList中的一行中的数字取出来？

[cwhelucky]

for i:=0 to stringlist1.count-1 do begin
str:=stringlist1.strings[i];
showmessage(str);
end;

[stanely]

var
s,r:string;
i:integer;
begin
for i:=0 to stringlist1.count-1 do
begin
s:=stringlist1.strings[i];

r:='';
for i:=1 to length(s) do
begin
if ord(s[i]) in [ord('0')..ord('9')] then

r:=r+s[i];
end;

showmessage(r);
end;

[gaoys1979]

晚乎哉，晚已！

建议在编程时多看看帮助文档，把所有的属性都看看。一般的控件使用问题是可以解决的。

[短歌如风]

什么意思？

[yang6130]

function extractdigit(s:String):String
var
i:integer;
begin
Result:='';
for i:=1 to length(string) do
if ord(s[i])>=48 and ord(s[i])<58 then
Result:=Result+String[i];
end;

var
i:integer;
s:string;
begin
for i:=0 to stringlist1.count-1 do
begin
s:=extractdigit(stringlist1.strings[i]);
if s<>'' then
stringlist2.add(s);
end;
end;

[短歌如风]

什么意思？

[njbudong]

for i:=0 to stringlist1.count-1 do begin
str:=stringlist1.strings[i];
showmessage(str);
end;