Question

delphi中怎样把字符串分解？

delphi中怎样把字符串分解？
如：str:='10.4*84*87';
我要分别获得裏面的三个数字 10.4, 84, 87 ，放到str1,str2,str3 三个float型变量裏面。
mit1208 的回答，我照这样做，但是报错 Undeclared identifier:'Delimiter'，是不是我用的Delphi5 不能这样用？

Answer 1

var
strlist:TStringList;
begin
strlist:=TStringList.Create;
strlist.Delimiter :='*';
strlist.DelimitedText :='10.4*84*87';
ShowMessage(strlist[0]);
ShowMessage(strlist[1]);
ShowMessage(strlist[2]);
strlist.free;
end;

Answer 2

var
str: string;
SL: TStringList;
begin
str := '10.4*84*87';
SL := TStringList.Create;
ExtractStrings(['*'], [], PChar(S), SL);
ShowMessage(SL.Text);
SL.Free;
end;

Answer 3

while str <> '' do
begin
str := copy(str,1,Pos('*',str)-1);
str := copy(str,Pos('*',str)+1,length(str));
end;

Answer 4

都说的很详细了。。

Answer 5

copy与 pos组合使用