Потоки

[RUSt88]

грузить нужно блоками, гуглится это хорошо

[Djeka(c)]

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

грузить нужно блоками, гуглится это хорошо

покажи пример плииз

[Alter]

Проблемма в том, что текстовые поля долго отрисовывают такой размер текста. Хотя грузится быстро.

//...........................

procedure TForm1.Button3Click(Sender: TObject);
var
  Fs :TMemoryStream;
begin //Ld
 if not FileExists(TstFile) then
 begin
  ShowMessage('Файла нет!');
  Exit;
 end;
 Button3.Enabled := False;
 Fs := TMemoryStream.Create;
  try
 RichEdit1.Lines.BeginUpdate;
 Fs.LoadFromFile(TstFile);
 Fs.Position := 0;
 RichEdit1.Lines.LoadFromStream(Fs);
   // v konec. vizualizaciya
 ShowMessage('Загруженно');
 if Length(RichEdit1.Lines.Text)>0 then
  RichEdit1.SelStart := Length(RichEdit1.Lines.Text);
  finally
 RichEdit1.Lines.EndUpdate;
 Fs.Free;
 Button3.Enabled := True;
  end;
end;

//.................

[Djeka(c)]

спасибо большое