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