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
Arduino Control Center