StrTok w Delphi

0

Czy w Delphi jest odpowiednik funkcji StrTok z C++ (albo przynajmniej jakaś podobna) ??

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1