Советы по Delphi
Я передалал это для работы
Я передалал это для работы в Delphi 2.0, код приведен ниже (эта функция первоначально была написана John Cooper 76356,3601 и модифицирована мной для адаптации под Delphi 2.0).
...вот этот код:
|
function StrTok(Phrase: Pchar; Delimeter: PChar): Pchar;
const
tokenPtr: PChar = nil;
workPtr: PChar = nil;
var
delimPtr: Pchar;
begin
if (Phrase <> nil) then workPtr := Phrase else workPtr := tokenPtr; if workPtr = nil then begin Result := nil; Exit; end; delimPtr := StrPos(workPtr, Delimeter); if (delimPtr <> nil) then begin delimPtr^ := Chr(0); tokenPtr := delimPtr + 1 end else tokenPtr := nil; Result := workPtr; end; |
