Советы по 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;
- Ralph Friedman [001016]


Содержание раздела