мемо и текст

[nikolas0]

чего то вообще ничего не пойму
что за ересь у меня тут такая
толи лыжи не едут толи ещё чего

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
   Http := TIdHTTP.Create(Self);
   chislo :=Edit1.Text;
   page :=http.Get('http://любой сайтi.net');
  except
  Memo1.Text :=page;

выше написаный код не работает
в мемо пусто
почему такое?
раньше всё работало

[Alex Cones]

try
Http := TIdHTTP.Create(Self);
chislo :=Edit1.Text;
page :=http.Get('http://любой сайтi.net');
except
Memo1.Text :=page;

Согласно вашему коду в мемо что-то появится только когда будет ошибка. Поставьте дополнительный end перед Memo1.Text := ...

[nikolas0]

вот не поверите
покраснел даже от стыда
вот что значит самоуверенность
бросил не дочитал про try except

Спасибо

[nikolas0]

а как допустим быть если вот такая ссылка?
zalil.ru/454354545
в мемо опять пусто

[Alex Cones]

Не волнуемся. Все такие же были. Знающими не рождаются.

[nikolas0]

а как допустим быть если вот такая ссылка?
zalil.ru/454354545
в мемо опять пусто

[Alex Cones]

Попробуйте так - idHTTP1.HandleRedirects := TRUE после его создания.

[nikolas0]

procedure TForm1.Button1Click(Sender: TObject);
begin
  try

   Http := TIdHTTP.Create(Self);
   HTTP.HandleRedirects := TRUE;
   chislo :=Edit1.Text;
   page :=http.Get('http://zalil.ru/'+chislo);
  except
  end;
  Memo1.Text :=page;

end;

мемо пустое

[nikolas0]

procedure TForm1.Button1Click(Sender: TObject);
begin
  try

   Http := TIdHTTP.Create(Self);
   HTTP.HandleRedirects := TRUE;
   chislo :=Edit1.Text;
   page :=http.Get('http://zalil.ru/'+chislo);
  except
  end;
  Memo1.Text :=page;

end;

мемо пустое

[Alex Cones]

Добавьте второе Memo и между except и end; вставьте Memo2.Text := 'Got it!'; Или проведите GetLastError