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 that you have read and understand our privacy policy and code of conduct.

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