Прочитать файл в Memo или RichEdit

[helltemper]

Увожаемые форумчане! Возникла необходимость вывести НЕ текстовый файл в Memo или RichEdit (9Ech-773_IP1111111.bin). Если писать RichEdit.Lines.LoadFromFile('9Ech-773_IP1111111.bin'), выдает билеберду.... А надо что бы как в TotalCommander при нажатии кнопки Просмотр (F3).

Файл который нужно открыть=>

Есть догадки, что нужно поиграться с типами данных Byte b PChar....
Зарание спасибо.

[p51x]

Если писать RichEdit.Lines.LoadFromFile('9Ech-773_IP1111111.bin'), выдает билеберду....

Естественно. Для справки: в файле еть символы, которые в мемо вообще не отображаются.

А надо что бы как в TotalCommander при нажатии кнопки Просмотр (F3).

А как именно? У меня тотал может файл показать как минимум 7 способами...

[Stilet]

выдает билеберду

Читай побайтно и функцией format('%x',[считанный байтик]) преобразовывай в 16-е представление. Его (это читабельная строка) и пиши в РичЭдит - получишь HEX вьювер )

[helltemper]

procedure TForm1.Button1Click(Sender: TObject);
var
 f:TfileStream;
 s: array [0..$FFFF] of char;
 i,j:Dword;
 Text:String;
begin
 f:=TfileStream.Create('D:\9Ech-773_IP.bin',fmOpenread);
 i:=f.Size;
 memo1.DoubleBuffered:=true;
for j:=0 to i do
 begin
 form1.DoubleBuffered:=true;
 f.Read(s,sizeof(i));
 application.ProcessMessages;
 Text:=Text+s; // ôîðìèðóåì òåêñòîâóþ ñòðîêó
 //memo1.Text:=memo1.Text+s+'';
 Progressbar1.Position:=round((j/i)*100);
 end;
 memo1.Lines.text:=text;// âûâîäèì íå â öèêëå
end;

Сделал так, но лапатит долговато(файл нужно считать 8мб).
Может есть какието мысли?

[Stilet]

Ну например считывать не весь файл, а только то что должно отображаться.
Тебе же известна ширина окна, вот и посчитай сколько символов в нее мона впихнуть и считывай при прокрутке скролла в Мемо с определенной позиции

[Gambler]

Пиши в личку. Объясню как делается.