[us8ihj]

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

Ну нужно же хоть маленько думать, после загрузки файла указатель в Stream указывает на его конец.

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.Get(''http://www.typograf.ru/flog/test1.txt', Stream);
    Stream.Seek(0, 0); // установим указатель потока в начало
    if Stream.Size > 0 then
      Memo1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Дело в том, что я с потоками не работал. За курс информатики я научился только решать уравнения, системы уравнений, интегралы и таблицы (стандартный курс не информационных специальностей). Но сам предмет мне очень нравится, вот и сам разбираюсь, как могу.

О ну что я могу сказать... Твой способ вывел в Memo всё как надо, как я и писал в предыдущем посте. Осталось перевести в таблицу)