Советы по Delphi
Паскалевский эквивалент 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]
