| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись файла в hex [D7, WinXP]

avtsasha ©   (2005-05-25 09:17:00) 

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

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

---

avtsasha   (2005-05-25 09:43:00) [1]

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

---

-=XP=-   (2005-05-25 09:38:00) [2]

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

P.S. Ку-ку

---

Digitman   (2005-05-25 09:34:00) [3]

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;

---

avtsasha   (2005-05-25 09:33:00) [4]

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

---

Anatoly Podgoretsky   (2005-05-25 09:26:00) [5]

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

---

-=XP=-   (2005-05-25 09:21:00) [6]

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

---

Наверх