delphi中怎样把字符串分解？

Posted 2023-04-01

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

参考技术A 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;本回答被提问者和网友采纳 参考技术B var
str: string;
SL: TStringList;
begin
str := '10.4*84*87';
SL := TStringList.Create;
ExtractStrings(['*'], [], PChar(S), SL);
ShowMessage(SL.Text);
SL.Free;
end; 参考技术C while str <> '' do
begin
str := copy(str,1,Pos('*',str)-1);
str := copy(str,Pos('*',str)+1,length(str));
end; 参考技术D 都说的很详细了。。 第5个回答  2010-12-29 copy与 pos组合使用

delphi中如何把输入的字符串保存成log

procedure WriteTxt(TextStr, FileName: string);
//TextStr为要写的内容,FileName为路径及文件名
var
TextF: TextFile;
begin
AssignFile(TextF,FileName);
if FileExists(FileName) then
Append(TextF)
else
Rewrite(TextF);

Writeln(TextF, TextStr);
CloseFile(TextF);
end; 参考技术A log4D,呵呵，日志控件，很好用。 参考技术B 不同的数据库方法可能不一样.