Herhangi bir dosyayı HEX kodu şeklinde nasıl gösterebilirz?

[delphiibo]

İyi günler arkadaşlar. Ben herhangi bir dosyanın HEX formatında nasıl gösterildiğini soracağım. Dosyanın HEX şekli Memo içerisinde gözükecek.
Şimdiden yardım edenlere tşk.

[ulu coder]

'BlockRead'i araştırarak dosyanın baytlarını alabilirsin.
Sonra şu iki fonksiyonla baytları hexdec.'e çevirebilirsin:

Kod: Tümünü seç

function TForm1.TekBHex(Sayi: Byte): String;
var
  sonuc:String;
begin
  if sayi<10 then sonuc:=inttostr(sayi);
  if sayi>9  then
  begin
    case sayi of
      10: sonuc:='A';
      11: sonuc:='B';
      12: sonuc:='C';
      13: sonuc:='D';
      14: sonuc:='E';
      15: sonuc:='F';
    end;//case
  end;
  Result:=sonuc;
end;

function TForm1.ByteToHex(Bayt: Byte): String;
var
  sonuc:string;
begin
  sonuc:=TekBHex(Bayt Div 16);
  sonuc:=sonuc+TekBHex(Bayt Mod 16);
  result:=sonuc;
end;

Kolay gele...
Hey gidi günler.