|
|
|
|
Delphi 1
Паскалевский эквивалент StrTok
|
function NextToken( P : PChar ; Divider : PChar ) : PChar ;
const next : PChar = nil ;
begin
if P = nil then P := next ;
if P <> nil then begin
next := StrPos( P, Divider ) ;
if next <> nil then begin
next^ := #0 ;
next := @next[ StrLen( Divider ) ] ;
end ;
end ;
NextToken := P ;
end ;
|
- Mike Scott. [000758]
|
|
|
|
|