StrTok для Delphi 2 - Pascal - Не стандартные примеры на 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

Категория: Pascal | Добавил: DelphiAiX (09.05.2012)

Просмотров: 528 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума