Czy w Delphi jest odpowiednik funkcji StrTok z C++ (albo przynajmniej jakaś podobna) ??
0
0
A co robi StrTok ?
0
var
Tekst: string;
P: Integer;
begin
Tekst := 'abc,d';
p := Pos(',', Tekst);
ShowMessage('Ciąg do wystąpienia znaku "," : '+LeftStr(Tekst, p-1));
ShowMessage('Ciąg po wystąpienia znaku "," : '+RightStr(Tekst, Length(Tekst)-p));
end;
Jeżeli używa się PChar to nawet jeszcze bardziej zbliżona jest funkcja StrScan