Запись файла в hex

← →
avtsasha (2005-05-25 09:17) [0]

Как в файл записать hex значение? напр.
записываю "61 62 63",
а в файле открытом напр. в блокноте получается "abc" .

Заранее спасибо!

← →
-=XP=- © (2005-05-25 09:21) [1]

write(f, $61, $62, $63);

← →
Anatoly Podgoretsky © (2005-05-25 09:26) [2]

В такой постановке никак, блокнот не умеет преобраховывать хекс во что-то

← →
avtsasha (2005-05-25 09:33) [3]

Это был пример, чтобы понятнее было
Тоесть есть hex значение, а не текстовое
которое надо записать в файл именно в hex

← →
Digitman © (2005-05-25 09:34) [4]

var s: string = "61 62 63";

var sl: TStrings, i,k: Integer;

with TFileStream.Create("myfile.txt", fmCreate) do
begin
sl := TStringList.Create;
try
Delimiter := " ";
DelimitedText := s;
for i := 0 to sl.Count - 1 do
begin
k := StrToInt("$"+sl[i]);
WriteBuffer(k, 1);
end;
finally
sl.Free;
end;
Free;
end;

var
f: textfile;
begin
AssignFile(f, "c:\test.txt");
Rewrite(f);
try
Write(f, #$61, #$62, #$63);
finally
CloseFile(f);
end;
end;

P.S. Ку-ку

← →
avtsasha (2005-05-25 09:43) [6]

-=XP=-,
Твой код я видел, спасибо!
я ответил Anatoly Podgoretsky.

Запись файла в hex Найти похожие ветки