Работа с файлами

← →
an-na2002 (2004-03-02 03:00) [0]

Читаю файл который содержит две колонки цифр, присваиваю переменной:
procedure TForm1.BitBtn1Click(Sender: TObject);
var Vf,Vff: file of integer;
h,g: string;
t,w,w2,n,R,E,A,F,L,d: integer;
begin
r:=1;
h := Edit1.Text;
AssignFile(Vf, h );
{$I-}
Reset(Vf);
g:= ChangeFileExt( h, ".rez");
AssignFile(Vff, g );
Rewrite(Vff);
read(Vf,w,t);
Арифмитические вычисления
write(Vff,w,A);
А в файл записывается ерунда.
Поможите кто чем может. :0(((

← →
Defunct (2004-03-02 03:14) [1]

> А в файл записывается ерунда.
Поможите кто чем может. :0(((

В Файл записывается не ерунда а Integer (4 байта).

Хотите, чтобы были числа в строковом виде, пишите так:

var Vf,Vff: TextFile;

Работа с файлами Найти похожие ветки