Функция Pos возвращает 0 - Общие вопросы Delphi - Страница 2

chertovich · 05.03.2011, 22:04

1. Попробуй showMessage(inttostr(AnsiPos('<span >', '<span>'))); Если результат отличен от 0 то переходи к 2 пункту, иначе к пункту 3
2. Если D2009 или выше, то там использутеся Юникод, тогда пробуй showMessage(inttostr(Pos('<span>', Edit1.Text)))
3. Напиши свою реализацию Pos

gufon · 05.03.2011, 22:12

я веськ од ввыложи

AlDelta · 05.03.2011, 22:21

http://www.programmersforum.ru/showp...60&postcount=9

gufon · 06.03.2011, 01:06

я залогинен

AlDelta · 06.03.2011, 09:23

Цитата:

Сообщение от gufon

я залогинен

Уверены? Зря.

Код:

Uses ..., ShellAPI;


procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
      PageProfile:string;
      error:boolean;
Begin

...
   try
     IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data);
   except
   end;
     PageProfile:=IdHTTP1.get('http://vkontakte.ru');
    Memo2.Text:=PageProfile;
     Memo2.Lines.SaveToFile('test.html');
     ShellExecute(Self.Handle, 'open', PChar('test.html'), nil, nil, SW_SHOWNORMAL);
...

End;

gufon · 14.03.2011, 17:50

в этот раз ищу то что есть 100%

Код:

text:=IdHTTP1.Get('http://translate.google.com.ua/?hl=ru&tab=wT#ru|en|'+Memo1.Lines.Text);
Memo2.Lines.Text:= inttostr(Pos('<span id="result_box" class="short_text" lang="en"><span', text));
Memo1.Lines.Text:= text;

но все равно 0 пробовал даже ansipos

gufon · 14.03.2011, 22:10

блин вставил исходник, все таки нет этого текста не кто не знает почему, когда я вставляю вот так допустим http://translate.google.com.ua/?hl=r...wT#ru|en|Memo1
в браузере все норм а когда скачиваю страницу то нечего

05.03.2011, 22:04	#11
chertovich Форумчанин Регистрация: 26.07.2009 Сообщений: 489	1. Попробуй showMessage(inttostr(AnsiPos('<span >', '<span>'))); Если результат отличен от 0 то переходи к 2 пункту, иначе к пункту 3 2. Если D2009 или выше, то там использутеся Юникод, тогда пробуй showMessage(inttostr(Pos('<span>', Edit1.Text))) 3. Напиши свою реализацию Pos Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.

05.03.2011, 22:21	#13
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	http://www.programmersforum.ru/showp...60&postcount=9 Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

14.03.2011, 17:50	#16
gufon Форумчанин Регистрация: 21.12.2010 Сообщений: 224	в этот раз ищу то что есть 100% Код: `text:=IdHTTP1.Get('http://translate.google.com.ua/?hl=ru&tab=wT#ru\|en\|'+Memo1.Lines.Text); Memo2.Lines.Text:= inttostr(Pos('<span id="result_box" class="short_text" lang="en"><span', text)); Memo1.Lines.Text:= text;` но все равно 0 пробовал даже ansipos

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
функция не возвращает результат=(	Chica Bond	Общие вопросы C/C++	14	03.12.2010 18:47
Функция не возвращает значения 2.0	Winlook	PHP	1	10.05.2010 00:58
Функция Pos, поиск снизу вверх	RIO	Общие вопросы Delphi	4	11.01.2010 23:17
что будет возвращать функция при различных pos	vasyapupkin	Общие вопросы C/C++	4	03.11.2009 20:48
функция pos	drumerbaker	Помощь студентам	6	17.05.2009 15:52

05.03.2011, 22:12	#12
gufon Форумчанин Регистрация: 21.12.2010 Сообщений: 224	я веськ од ввыложи

06.03.2011, 01:06	#14
gufon Форумчанин Регистрация: 21.12.2010 Сообщений: 224	я залогинен

14.03.2011, 22:10	#17
gufon Форумчанин Регистрация: 21.12.2010 Сообщений: 224	блин вставил исходник, все таки нет этого текста не кто не знает почему, когда я вставляю вот так допустим http://translate.google.com.ua/?hl=r...wT#ru\|en\|Memo1 в браузере все норм а когда скачиваю страницу то нечего