Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
ВнизКак найти далее при помощи pos? Найти похожие ветки
← →
Romkin (2002-01-09 11:46) [23]Вариант - системный поиск
Нагло вырезана AnsiPos и переиначена на поиск с позиции
uses SysUtils;
function fAnsiPos(const Substr, S: string; FromPos: integer): Integer;
var
P: PChar;
begin
Result := 0;
P := AnsiStrPos(PChar(S) + fromPos - 1, PChar(SubStr));
if P <> nil then
Result := Integer(P) - Integer(PChar(S)) + 1;
end;
AnsiStrPos - можно просто вырезать из SysUtils
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c