Перевод в шестнадцатиричный вид

[north]

У меня есть текстовый файл. Как мне перевести этот текст в шестнадцатиричный вид? (Что-то похожее на то, как делает шестнадцатиричный редактор.)

[Arigato]

Есть такая функция в Делфи: IntToHex
Но можно и руками, если в целях обучения.

[eoln]

Ага, только для текстового файла надо сначала узнать код символа

var
  i, w: integer;
  s, ss: string;
begin
  ss := 'Hello'; //строка для преобразования
  for i := 1 to 5 do
  begin
    w := ord(ss[i]); //код символа
    s := inttohex(w, 2); //преобразуем в hex
    label1.Caption := label1.Caption + s + ' '; //выводим куда-нибудь
  end;
end;

Хотя можно открыть как file of byte, тогда уж сразу можно

var
  f: file of byte;
  b: byte;
  s: string;
begin
  memo1.Clear;
  assignfile(f, '0.txt');
  reset(f);
  while not eof(f) do
  begin
    read(f, b);
    memo1.Text:=memo1.Text+inttohex(b, 2)+' ';
  end;
  closefile(f);
end;