Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.052 c
8-1129748506
NEznakOmka
2005-10-19 23:01
2006.03.26
Превращение текстового сообщения в звук


3-1138960955
Nailspb
2006-02-03 13:02
2006.03.26
Глюки


2-1141906227
jeka_t
2006-03-09 15:10
2006.03.26
Может ли DBGrid иметь разное значение RowsHeigth для каждой Ячейк


2-1141658303
KyRo
2006-03-06 18:18
2006.03.26
Как Перевести число


8-1129642025
фывыч
2005-10-18 17:27
2006.03.26
про HWaveOut