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)

Я над этим тоже думал

> Германн © (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.

text Найти похожие ветки