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

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

← →
Просто_новичок   (2007-05-10 05:05) [0]

Такая проблема. Есть переменная типа byte, в ней хранится какое-то число, например 48, код символа 0. Нужно записать данный байт (0), в файл (любого формата, не важно). Потом по циклу пойдёт следующий код, например 53, код символа 5, нужно записать эту цифру в тот же файл, после цифры 0, получится 05. И так далее, пока не закончится весь поток данных. Помогите пожалуйста решить проблему, подскажите, как это можно осуществить?

---

← →
Джо ©   (2007-05-10 05:10) [1]

TFileStream, например.
Или AssignFile, Rewrite, BlockWrite, CloseFile.

---

← →
Просто_новичок   (2007-05-10 05:19) [2]

В описании переменных объявил:
ResFile:TFileStream;
Создал файл на диске рядом с программой (1.txt), пишу
AssignFile(ResFile,"1.txt"); - выдаёт ошибку, почему?

---

← →
Просто_новичок   (2007-05-10 05:21) [3]

ошибка: [Error] Unit1.pas(199): Incompatible types

---

← →
Джо ©   (2007-05-10 05:28) [4]

> [2] Просто_новичок   (10.05.07 05:19)
> В описании переменных объявил:
> ResFile:TFileStream;
> Создал файл на диске рядом с программой (1.txt), пишу
> AssignFile(ResFile,"1.txt"); - выдаёт ошибку, почему?

В посте [1] слово «или» стоит не зря.
Никакой связи между первой и второй строкой того поста нет.
То есть, использовать рекоммендовалось либо одно, либо другое.
TFileStream, например, используют так:

var
 Fs: TFileStream;
 Data: Byte;
begin
 Fs := TFileStream.Create("d:\1.txt",fmCreate);
 try
   Data := ...
   Fs.Write(Data,SizeOf(Data))
   ...
 finally
   Fs.Free;
 end;
end;


---

← →
Джо ©   (2007-05-10 05:32) [5]

...А AssignFile, Rewrite, BlockWrite и CloseFile, например, так:

var
 AFile: file;
 Data: Byte;
begin
 AssignFile (AFile,"d:\1.txt");
 Rewrite (AFile,1);
 try
   Data := ...
   BlockWrite (AFile,Data,SizeOf(Data));
 finally
   CloseFile (AFile);
 end;
end;


Или так:

var
 AFile: file of Byte;
 Data: Byte;
begin
 AssignFile (AFile,"d:\1.txt");
 Rewrite (AFile);
 try
   Data := ...
   Write (AFile,Data);
 finally
   CloseFile (AFile);
 end;
end;


---

← →
Просто_новичок   (2007-05-10 05:38) [6]

Большое спасибо!

---

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

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



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