Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Внизtext Найти похожие ветки
← →
mrAndersen © (2006-03-06 23:28) [0]Подскажите хотя бы как изменить значение позиции с которой бы начиналась команда pos, потому что эта команда начинает действовать с 1-й позиции (как ее изменить)
← →
wicked © (2006-03-06 23:36) [1]типа так.....
function pos2(const subs, s: string; start: integer): integer;
var r: integer;
begin
r := pos(subs, substring(s, start, maxint));
if r > 0 then
result := r + start;
else
result := 0;
end;
за ошиПки не ругайте, я на паскале уже пару лет не писал....
← →
mrAndersen © (2006-03-07 00:02) [2]Я на Delphi5 делаю проги, но все равно очень благодарен за этот программный код
← →
Virgo_Style © (2006-03-07 00:50) [3]см. также PosEx
← →
Германн © (2006-03-07 02:26) [4]Pos.
(Если нужно) Copy
Delete.
И снова
Pos.
(Если нужно) Copy.
Delete.
И так до бесконечности. (Точнее до Lehgth() < 0)
← →
mrAndersen © (2006-03-07 02:37) [5]Я над этим тоже думал
← →
Leonid Troyanovsky © (2006-03-07 09:23) [6]
> Германн © (07.03.06 02:26) [4]
> (Если нужно) Copy
> Delete.
var
p, p0: PChar;
..
p0 := PChar(s);
p := AnsiStrPos(p0 + i, PChar(substr)); // пропустим i символов
if Assigned(p) then
ShowMessage(IntToStr(p - p0 +1));
--
Regards, LVT.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c