Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Внизтекстовой файл Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c