delphi里有没有类似于c里的sscanf的函数啊(50分)

盛利

Unregistered / Unconfirmed
GUEST, unregistred user!
c里有个函数sscanf(tmpstr1,“%d %s %f”,&int,%char,&float);
delphi里有没有这样的函数阿!
 
Format
FormatDateTime
 
你回复也太快了吧,刚想把这个删了
我找到了
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
l_lst_Str: TStringList;
s1, s2, s3: string;
i : Integer;
f : do
uble;
begin
s := 'James Bond : 360123345631: 123.00: 2351234: 8003';
l_lst_Str := TStringList.Create;
try
l_lst_Str.Text := StringReplace(s, ':', #13#10, [rfReplaceAll]);
s1 := l_lst_Str[0];
s2 := l_lst_Str[1];
f := StrToFloat(l_lst_Str[2]);
s3 := l_lst_Str[3];
i := StrToInt(l_lst_Str[4]);
finally
l_lst_Str.Free;
end;
end;
 
顶部