Скачать: CL | DM;

Запись файла в 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;

---

← →
-=XP=- ©   (2005-05-25 09:38) [5]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c