запись в файл

← →
Просто_новичок (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;

...А 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]

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

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