ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите создать класс
4 сообщений из 4, страница 1 из 1
Помогите создать класс
    #32191874
nomorenames
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nomorenames
Участник
Что-то я совсем запутался в классах :(
Попробую рассказать упрощенную структуру:
Есть:
1. Заявление с некоторыми параметрами, к примеру (Номер, Дата);
2. К одному заявлению привязано несколько заявителей (Ф, И, О);
3. У каждого заявителя может быть несколько документов (Номер документа, Наименование, Кем выдан)

Как для такой структуры правильно создать класс?
т.е. хочется получить нечто следующее

Order .Declarant[N].FirstName
Order.Declarant[N].LastName

или глубже
Order.Declarant[N].Document[K].Name
Order.Declarant[N].Document[K].DateIssue
...
Рейтинг: 0 / 0
26.06.2003, 09:01
| Ответить | Цитировать | Написать  
Помогите создать класс
    #32191877
nomorenames
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nomorenames
Участник
Браузер покоцал текст. Вот так надо
Код: plaintext
1.
2.
Order[I].Declarant[N].FirstName 
Order[I].Declarant[N].LastName

или глубже
Код: plaintext
1.
2.
Order[I].Declarant[N].Document[K].Name 
Order[I].Declarant[N].Document[K].DateIssue
...
Рейтинг: 0 / 0
26.06.2003, 09:05
| Ответить | Цитировать | Написать  
Помогите создать класс
    #32192094
_designer_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_designer_
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
TДокумент = class
public
...
end;

TЗаявитель = class
public
Документы : array of TДокумент
...
end;

TЗаявление = class
public
Заявители : array of TЗаявитель;
...
end;

Это если классами...
А так, как ты написал - это просто структуры.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
TДокумент = record
...
end;

TЗаявитель = record
Документы : array of TДокумент
...
end;

TЗаявление = record
Заявители : array of TЗаявитель;
...
end;


Если хочешь, можешь их динамическими сделать.
Код: plaintext
1.
2.
3.
4.
PДокумент = ^TДокумент;
TДокумент = record
...
end;

и т.д.

Или может я неправильно понял вопрос?
...
Рейтинг: 0 / 0
26.06.2003, 11:40
| Ответить | Цитировать | Написать  
Помогите создать класс
    #32192429
nomorenames
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nomorenames
Участник
Ага, получилось :))
Я хочу дополнить это процедурами по загрузке и сохранению, поэтому говорил о классах.
Спасибо.
...
Рейтинг: 0 / 0
26.06.2003, 14:04
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите создать класс
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]