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

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

← →
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;

---

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

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



Память: 0.44 MB
Время: 0.025 c