Загрузка ОЧЕНЬ большого текста

[Dima DDM]

Мне нужно загрузить текст(большой) в RichEdit.
Что лучше для этого использовать?
TFileStream,функцию FileRead или FileOpen и вообще как с помощью этих функций загрузить в RichEdit текст,а потом его обратно сохранить ? С ув.

[chertovich]

Возможно, компонент нужно переписать, чтобы он загружал не весь текс, а его часть, так как это сделана в Hex-редакторе HxD. Потому что есть определенное ограничение по размеру буффера RichEdit-a

[Dima DDM]

Но ведь можно как-то частями загружать? Используя вышенаписанные функции??? А при прокрутке подгружать текст....но вот как....может у кого-нибудь есть идеи?

[Stilet]

ИМХО: Загрузить текст в StringList весь.
Разделить на 10 например и этими порциями записывать в РичЭдит. Рядом с Ричем кинуть скроллбар, при прокрутке которого проверять нужно ли загружать очередную часть или нет.
Сделать можно но ИМХО морочно.

[Armorer]

вроде у TFileStream был seek или position? Установить указатель куда надо и прочитать сколько надо.

Но с тхт редактором не так просто как с hex, надо ведь вычислить какую именно часть читать, а это зависит от того как текст на экране отображается т.е. если на каждой строке одинаковое кол-во символов, то по положению скролбара можно вычислить какую часть читать из файла, а вот если форматирование есть...

[Dima DDM]

А как загрузить в RichEdit с помощью CreateFile или OpenFile ??? В текстовом редакторе Bred 3 например загружается текст с помощью этих функций и довольно быстро...

[Пепел Феникса]

В текстовом редакторе Bred 3 например загружается текст с помощью этих функций и довольно быстро...

услышал звон, не знаю где он.
TFileStream использует теже функции, просто он удобнее.
главная ваша проблема в отображении данных, а не в загрузке.

[Dima DDM]

Мне бы очень хотелось как-то рещить эту проблему.....

[Аватар]

Вариант: загружать из программы в WordPad, там смотреть, возможно править и сохранять

[Dima DDM]

Я вот с помощью TFileStream не могу ВЕСЬ текст загрузить в свой редактор

  var
Stream:TFileStream;
Buf:Array[0..99999] of Char;
begin
if OpenFileDialog.Execute then
try
  Stream:=TFileStream.Create(OpenFileDialog.FileName,fmOpenReadWrite);
  Stream.Seek(Stream.Size div 2,soFromBeginning);
  Stream.Read(buf,99999);
 Form1.RichEdit1.LInes.Text:=StrPas(Buf);
finally
Stream.Free;
end;
end;

Загружается только кусок файла я понимаю что это зависит от позиции и размера буфера итп но как сделать загрузку целого файла не понимаю =(
P.S.
Есть ли смысл загружать вот так

 Form1.RichEdit1.LInes.LoadFromStream(Stream);