IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Record, сохранение в файл
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  0  +


вот пишу такой код
type

person = record
lastname:string;
name:string;
phone:integer;
bd:array [1..8] of integer;
end;

Pfile = file of person;

var
men:person;
f:pfile;
i:byte;
st:string;
begin
men.lastname := edit1.text;
men.name :=edit2.text;
men.phone := strtoint(edit3.text);
for i:=1 to length(edit4.Text) do begin
men.bd[i]:=strtoint(edit4.text[i]);
end;

Assignfile(F,'Spis.txt');
Rewrite(F);
write(F,men);
closefile(f);
end;
по идее все что находится в списке men должно сохранятся в файл...но вместо значений которые я вводил с клавиатуры в файле какието посторонние символы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






bigglewood, ты бы во-первых, сделал хотя бы так:
person = record
lastname: string[100]; // Ограничить длину строки
name: string[100];
phone: integer;
bd: array [1..8] of integer;
end;
, а уж потом сохранял в файл...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  0  +


а вот дальше что бы открыть этот же файл и вывести на экран я пишу:
var F:file of string;
st:string;
begin
Assignfile(F,'Spis.txt');
read(F,st);
label1.Caption:=st;
end;
он чевото не открывает (
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






bigglewood, а ты открывай не как File of String, а как и создавал:
File of Person...

И потом: ОТКРЫВАТЬ файл кто будет? Reset где?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  0  +


ухты. спосибо. заработало!:))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.12.2017 5:17
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"