Delphi: Создание Hex-блокнота

[Ser11]

Пытаюсь написать шестнадцатиричный блокнот, даже немного сообразил как это сделать, но в силу того, что я написал достаточно кривой код программа сообщает о том что файл не найден.
Подскажите пожалуйста, как мне более правильней написать эту процедуру. Вот мой кривой код:

procedure TForm1.Button1Click(Sender: TObject);
var
f: file of byte;
b: byte;
s: string;
begin
RichEdit1.Clear;
s:= OpenTextFileDialog1.FileName;
assignfile(f, 's');
reset(f);
while not eof(f) do
begin
RichEdit1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);
read(f, b);
RichEdit1.Text := RichEdit1.Text+IntToHex(b, 2) + ' ';
end;
CloseFile(f);
end;

В общем нужно загрузить файл в TRichEdit в шестнадцатиричном виде, но мне это пока не удается.

[Impuls1989]

Ну все ясно! Зачем вы каждый раз грузите файл (RichEdit1.Lines.LoadFromFile(OpenT e xtFileDialog1.FileName); )?
Уберите его вообще.
Для этого лучше использовать файловые потоки:

 
var Stream: TFileStream; 
buf:byte;  
i:int64;
begin 
 if Not OpenDlg.Execute then Exit;  
 Stream:=TFileStream.Create(OpenDlg.FileName, fmOpenRead); 
 Stream.Seek(0,soFromBeginning); 
 i:=0;
 while i<Stream.Size do
   begin
     Stream.Read(buf,SizeOf(buf));
     RichEdit1.Text:= RichEdit1.Text+IntToHex(buf, 2) + ' ';
     inc(i);
   end;
end

Вот как-то так
P.S. i - нужно будет вам в дальнейшем, для расчета адресации. Удачи

[Ser11]

Большое спасибо, код отлично работает.

А к примеру Notepad++ в каком формате отображает данные? В обычном TMemo и TRichEdit видны не все символы

[Stilet]

А к примеру Notepad++ в каком формате отображает данные?

Ты имеешь ввиду шестнадцатиричное отображение? Так эо можно и в обычном Мемо замутить.

[VintProg]

А также есть куча функций для работы с файлами по его хендлу в модуле SysUtils,
такие как FileOpen и.т.д.

[Ser11]

Ты имеешь ввиду шестнадцатиричное отображение? Так эо можно и в обычном Мемо замутить.

Да, вот как раз я это и имел в виду. Не дадите ли подсказку как это реализовать в Мемо?

А также есть куча функций для работы с файлами по его хендлу в модуле SysUtils

Об этом я тоже хотел бы узнать, но не нашел этот файл.
У меня стоит делфи2009. Я слышал что в делфи7 демо-программы есть, даже блокнот, но папки с примерами я не нашел.

[Stilet]

Отчего же нет? Этоне сложно:

var
 i:byte;
 f:file of byte;
begin
Memo1.WordWrap:=true;Memo1.Lines.Clear;
 assignfile(f,'unit1.pas');reset(f);
  while not eof(f) do begin
   read(f,i);
   Memo1.Lines.Text:=Memo1.Lines.Text+format('%x',[i])+' ';
  end;
 CloseFile(f);
end;

Вот пожалуйста. Файл считается и проинтерпретируется в HEX коды.

[Impuls1989]

Если ты хочешь сделать красивый HEX редактор, лучше используй компонент StringGrid. С ним легко работать, и обрабатывать данные.
Мой измененный код будет выглядеть так:

var Stream: TFileStream; 
buf:byte;  
i,j:int64;
begin 
 if Not OpenDlg.Execute then Exit;  
 Stream:=TFileStream.Create(OpenDlg.FileName, fmOpenRead); 
 Stream.Seek(0,soFromBeginning); 
 i:=0;
 j:=0;
 while i<Stream.Size do
   begin
     Stream.Read(buf,SizeOf(buf));
     StringGrid.Cells[j,i]:=IntToHex(buf, 2);
     inc(j);
     if (j<StringGrid.ColCount) then
      begin
       inc(i);
       j:=0;
       StringGrid.RowCount:=i;
      end;
   end;
end