Evo i jedan primer koji radi sa AnsiReplaceStr:
Code:
procedure TForm1.Button1Click(Sender: TObject);
function StrToStrings(const S: string; const Separator: char): TStrings;
begin
Result := TStringList.Create;
Result.Text := AnsiReplaceStr(S, Separator, #13#10);
end;
begin
with StrToStrings('B: QLG74M YBQYGD 1 0 0 { 0:0:1 }', ' ') do
try
ShowMessage( 'korisnik = ' + Strings[1] + #13+#10 +
'sifra = ' + Strings[2]);
with StrToStrings(Strings[7], ':') do
try
ShowMessage( 'dvotacka1 = ' + Strings[0] + #13+#10 +
'dvotacka2 = ' + Strings[1] + #13+#10 +
'dvotacka3 = ' + Strings[2]);
finally
Free;
end;
finally
Free;
end;
end;
U ovom primeru je jedino bitno šta radi StrToStrings a ovo ostalo nije bitno šta i kako radi, ostalo je (skraćeno) samo tu da prikaže rezultat "konvertovanja". Inače JCL ima isto(imenu) StrToStrings koja radi slično kao ova.