[ MatezYU @ 04.08.2007. 21:25 ] @
Kako mogu najlakse da iscitam neke parametre iz stringa?
Imam sledeci string:

a:='1000,231,123,levo,55';

Da li postoji neka procedura koja kada kazem da mi cita parametar koji je drugi u stringu a da mi da 231?
Kako najlakse odraditi?
[ chachka @ 04.08.2007. 22:23 ] @
google: GetToken
[ X Files @ 04.08.2007. 23:02 ] @
Recimo, TStringList je opremljen za to. Pogledaj u Helpu Delimiter i DelimitedText

U threadu (koji je za C++ Builder) imaš dato nekoliko primera (neki primeri su čist VCL koji možeš za tren portovati u Delphi):
http://tinyurl.com/ywpxeu
[ priki @ 12.09.2007. 14:38 ] @
u ovom primeru ti može poslužiti i

CommaText
[ lan-mi @ 19.09.2007. 19:16 ] @
Ovo ce sigurno pomoci

procedure Podeli( const Delimiter: Char; Ulaz: string;const Strings: TStrings);
begin
Assert(Assigned(Strings));
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Ulaz;
end;

Koristis:

Procedure TForm1.Button1Click(Sender:TObject);
var
Lista:TStringList;
a:string;
i:integer;
begin
a:='1000,231,123,levo,55';
Lista:=TStringList.create;
try
podeli(',',a,Lista);
for i:=0 to Lista.count-1 do
Showmessage(Lista);// prikazace '231' kao drugu u poruci

finally
Lista.free;

end;end;

Pozdrav