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

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

запись в файл

Просто_новичок ©   (2007-05-10 05:05:00) 

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

---

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

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

---

Джо   (2007-05-10 05:32:00) [2]

...А 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:28:00) [3]

> [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:21:00) [4]

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

---

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

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

---

Джо   (2007-05-10 05:10:00) [6]

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

---

Наверх