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

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

25.02.2017, 15:39. Просмотров 182. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В приложении создать и редактировать типизированный файл (Delphi):

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

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

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

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

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

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

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

Так у тебя zap.date объявлен как 1920..2000, а ты пытаешься присвоить InputBox, который возвращает string
1
AlexBitsadze
0 / 0 / 1
Регистрация: 25.02.2017
Сообщений: 2
25.02.2017, 16:36  [ТС] #3
А какую функцию тогда использовать?
0
northener
пофигист широкого профиля
3252 / 2304 / 628
Регистрация: 15.07.2013
Сообщений: 13,598
25.02.2017, 16:41 #4
Посмотри на свою 39 строку.
1
Joey
Модератор
827 / 549 / 218
Регистрация: 05.05.2015
Сообщений: 3,181
Записей в блоге: 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
Привет! Вот еще темы с решениями:

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

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

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

Создать типизированный файл. Заменить заданным числом первый элемент
Создать типизированный файл,содержащий 18 целых чисел. Заменить заданным...


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

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

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