3

Помогите, пожалуйста. В коде много лишнего, просто я эксперементировал, не обращайте внимания, раньше всё работало, но сейчас не понимаю, что случилось

procedure TForm1.sButton2Click(Sender: TObject);

var
a, b, rezult : integer;
Str1, Str2, Str3, Str4, Str5, Str6: String;
begin
Memo1.Text:=IdHTTP1.Get('http://humor-informers.ru/informer.php');
Str1:=Memo1.Text;
Delete(Str1, 1000, 0);
memo1.Text:=Str1;

Label3.Caption:= IntToStr(Length(Memo1.Lines.Text));
 Str2:=Memo1.text;
Delete(Str2, 1, 41); //120
Memo1.Text:=str2;
Label3.Caption:= IntToStr(Length(Memo1.Lines.Text));
a := StrToInt(Label3.Caption);
b := StrToInt('120');
rezult := a - b;
Delete(Str2, rezult, 120);
Memo1.Text:=str2;

Str3:=Memo1.Text;
Str6:=AnsiReplaceStr(Str3, '<br>', ' ');
Memo1.Text:=str6

На код компилятор не ругается, просто меня не устраивает, то что уходит в мемо. Там то недостает символов, то наоборот больше

1 ответ 1

2
    вот полностью рабочий код. проверяйте :)

procedure Get;
var
   rezult, poz: integer;
   Str1: String;
begin
  with F_Main do
    begin
      Memo.Text := IdHTTP.Get('http://humor-informers.ru/informer.php');
      Str1 := Memo.Text;
      poz  := Pos('<p>',Str1)+2;
      Delete(Str1, 1, poz);
      poz  := Pos('<\/p>',Str1)-1;
      rezult := Length(Str1) - poz;
      Delete(Str1, poz+1, rezult);
      Memo.Text := AnsiReplaceStr(Str1, '<br>', ' ');
    end
end;
4
  • еще изменил код. 8 ноя 2011 в 18:11
  • оформил все отдельной процедурой на всякий случай, вдруг захотите еще куда-либо прикрутить. И в Вашем случае, имена надо будет поменять. Я убрал индексы у компонентов. 8 ноя 2011 в 18:16
  • 2
    Спасибо огромное, Вы мне очень помогли. 8 ноя 2011 в 22:49
  • 1
    Не за что :) Всегда рад помочь) Прошу прощения, что так затянул) 9 ноя 2011 в 4:26

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.