Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
AlexBitsadze
0 / 0 / 0
Регистрация: 25.02.2017
Сообщений: 2
1

В приложении создать и редактировать типизированный файл

25.02.2017, 15:39. Просмотров 192. Ответов 4

При нажатии в строке меню должно открываться окно в котором записываются данные, но мне пишет " несовместимые типы данных word(и др.) и string"

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Type
           //tSex = (woman, man);
           tSlug = record
                       nam, fam : string[15];
                              date   : 1920..2000;
                                sex  :string[3]; //tSex;
                             dolgn : record
                                         prof : record
                                                   name : string[15];
                                                   stag   : byte;
                                                 doxod  : record
                                                               osn : word;
                                                        premiya : word;
                                                          nalog  : real;   {13%}
                                                               end; {doxod}
                                                    end; {prof}
                                           telef : longint;
                                         end; {dolgn}
                         end; {tSlug}
 
TFile= file of TSlug;
 
var
  Form11: TForm11;
  Fv:TFile;
implementation
 
{$R *.dfm}
 
procedure TForm11.aaa1Click(Sender: TObject);
var zap:tSlug;
    NameFile:string;
    n,i: integer;
begin
 NameFile:=InputBox('File','Input','');
 assignFile(Fv,NameFile);
// label1.Caption:=namefile;
rewrite(Fv);
n:=strtoint(InputBox('Kol','Input',''));
for i:=1 to n do
 begin
 zap.nam:=InputBox('nam','Input','');
 zap.fam:=InputBox('fam','Input','');
 zap.date:=InputBox('date','Input','');
 zap.sex:=InputBox('sex','Input','');
 zap.dolgn.prof.name:=InputBox('name','Input','');
 zap.dolgn.prof.stag:=InputBox('stag','Input','');
 zap.dolgn.prof.doxod.osn:=InputBox('osn','Input','');
 zap.dolgn.prof.doxod.premiya:=InputBox('premiya','Input','');
 zap.dolgn.prof.doxod.nalog:=InputBox('nalog','Input','');
 zap.dolgn.telef:=InputBox('telef','Input','');
 end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.02.2017, 15:39
Ответы с готовыми решениями:

Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный файл
Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный...

Создать типизированный файл записей
Создать типизированный файл записей, содержащий сведения об учениках. Структура записи имеет...

Как создать типизированный файл?
здравствуйте, не подскажите как создать типизированный файл??

Создать типизированный файл (подобие БД)
Всем доброго дня! Такая задача: созд. типизированый файл с информацией о авто. Возможность...

Создать типизированный файл с типом real
Пожалуйста помогите переделать код. Нужно сделать типизированный файл с типом real. 1-я форма:...

4
Joey
Форумчанин
831 / 552 / 219
Регистрация: 05.05.2015
Сообщений: 3,199
Записей в блоге: 1
25.02.2017, 16:30 2
Дай догадаюсь, ошибку выдает здесь:
Цитата Сообщение от AlexBitsadze Посмотреть сообщение
zap.date:=InputBox('date','Input','');
?

Так у тебя zap.date объявлен как 1920..2000, а ты пытаешься присвоить InputBox, который возвращает string
1
AlexBitsadze
0 / 0 / 0
Регистрация: 25.02.2017
Сообщений: 2
25.02.2017, 16:36  [ТС] 3
А какую функцию тогда использовать?
0
northener
пофигист широкого профиля
3423 / 2323 / 630
Регистрация: 15.07.2013
Сообщений: 13,738
25.02.2017, 16:41 4
Посмотри на свою 39 строку.
1
Joey
Форумчанин
831 / 552 / 219
Регистрация: 05.05.2015
Сообщений: 3,199
Записей в блоге: 1
25.02.2017, 16:44 5
Delphi
1
zap.date:=StrToInt(InputBox('date','Input',')');
0
25.02.2017, 16:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.02.2017, 16:44

Создать типизированный файл, содержащий целые числа
Из компонентов исходного файла целых чисел сформировать массив, записав в него только ненулевые...

Создать типизированный файл из записей, включающих данные о республиках
Создать типизированный файл из записей, включающих данные о республиках. Организовать работу с...

Создать типизированный файл, содержащий сведения о пациентах поликлиники
Создать файл, содержащий сведения о пациентах поликлиники. Структура записи: ФИО пациента, год...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru