текстовой файл

← →
Xero (2003-04-10 11:23) [0]

Подскажите как переменную R записать в текстовой файл
type Rec = record
Fam,Name:string[20];
Zarp:extended;
end;
var F:file of Rec;
R,R1:Rec;
begin
AssignFile(F,"C:\Test.txt");
Rewrite(F);
with R do
begin
Name:="Ivan";
Fam:="Ivanov";
Zarp:=100;
Write(F,R);
CloseFile(F)

← →
Ozone © (2003-04-10 11:32) [1]

Ну ты все правильно написал....

← →
SVM (Perm) (2003-04-10 12:16) [2]

type Rec = record
Fam,Name:string[20];
Zarp:extended;
end;
var F:Text;
R,R1:Rec;
begin
AssignFile(F,"C:\Test.txt");
Rewrite(F);
with R do
begin
Name:="Ivan";
Fam:="Ivanov";
Zarp:=100;
WriteLn(F,R.Name,R.Fam,R.Zarp:10:3);
CloseFile(F)
end;
end;

← →
Xero (2003-04-10 12:28) [3]

У меня глюк, оказывается все правильно

Ozone © (10.04.03 11:32)
Нет не правильно, это запись в типизированный файл.
Запись в теастовый файл делается с помощью создания файла типа TextFile и дальше Write, writeLn в зависимости от того как должны быть представлены данные в текстовом файле. Пример SVM (Perm) (10.04.03 12:16), за исключением использования, не рекомендуемого типа Text

Ну что ж , рискну предложить свое решение на тот
(Я согласен с Анатолием, что переменный типа структуры желательно писать в текстовый файл) случай если использование структуры критично.

Рекомендую модифицировать
type Rec = record
Fam,Name:string[20];
Zarp:extended;
end;

следующим образом :
type Rec = record
case byte of
1:(Fam,Name:string[20];
Zarp:extended;)
2:(StringForSaveInTextFile:string[46])
end;

46 сумма длин Fam,Name,Zarp (мог и общитаться)

В текстовый файл писать
Write(r.StringForSaveInTextFile

На гениальность не претендую, однако сам примерно так делал :)

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