Автор Арсен Арутюнян задал вопрос в разделе Другие языки и технологии
delphi copy pos и получил лучший ответ
Ответ от Xoodoo[гуру]
> в переменной ht записана строка
Не одна, а пять, судя по тому что ты привел.
Ответ от Ў В[гуру]
В самом деле. Одна строка или много строк? Таки это не одно и то же.
Попробуй все-таки ясно изложить, что тебе нужно.
А здесь, прости, какая-то фигня изложена. А телепат в отпуске.
"Короче надо получить 'how are yoy?' если весть текст изменяется кроме 'trololo' и и нам известно только слово 'norm' который постоянно меняется но мы его знаем она записана в переменную word"
И еще, между делом. Не стоит давать переменной имя word. Потому, что это - название типа данных.
И еще:
Ты не поверишь, наверное, но есть такая отличная штука - запятая называется. Люди ее не напрасно придумали. Она нужная.
В самом деле. Одна строка или много строк? Таки это не одно и то же.
Попробуй все-таки ясно изложить, что тебе нужно.
А здесь, прости, какая-то фигня изложена. А телепат в отпуске.
"Короче надо получить 'how are yoy?' если весть текст изменяется кроме 'trololo' и и нам известно только слово 'norm' который постоянно меняется но мы его знаем она записана в переменную word"
И еще, между делом. Не стоит давать переменной имя word. Потому, что это - название типа данных.
И еще:
Ты не поверишь, наверное, но есть такая отличная штука - запятая называется. Люди ее не напрасно придумали. Она нужная.
Ответ от Алик Гайбуллаев[гуру]
var p,k,n:integer; otvet:string;
p:=pos(word,ht);
for k:=p-1 downto 1 do if copy(ht,k,7)='trololo' then begin n:=k; break; end;
n:=n+8; otvet:=copy(ht,n,p-n-1);
Если я правильно понял, то весь текст меняется, включая искомый, кроме 'trololo'. Если так, то мой код должен работать.
Да, и это не весь код, а только нужный тебе кусок (var я прописал, чтобы было понятней, что за переменные).
var p,k,n:integer; otvet:string;
p:=pos(word,ht);
for k:=p-1 downto 1 do if copy(ht,k,7)='trololo' then begin n:=k; break; end;
n:=n+8; otvet:=copy(ht,n,p-n-1);
Если я правильно понял, то весь текст меняется, включая искомый, кроме 'trololo'. Если так, то мой код должен работать.
Да, и это не весь код, а только нужный тебе кусок (var я прописал, чтобы было понятней, что за переменные).
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: delphi copy pos