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

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

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

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

---

← →
Anatoly Podgoretsky ©   (2003-04-10 12:50) [4]

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

---

← →
malkolinge ©   (2003-04-10 13:06) [5]

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

Рекомендую модифицировать
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

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

---

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

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



Память: 0.46 MB
Время: 0.011 c