VPF::Помогите - Форум программистов

Hard

Дата 13.4.2006, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Описать класс записная книжка.Предусмотреть работу с произвольным числом записей поиска по какому либо признаку(фамилия, дата рождения, номеру телефона),добавления и удаления записей,сортировки по разным полям! Просто я в завале помогите чем сможете!!пожалуйста smile

Poseidon

Дата 13.4.2006, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


TNotePad = record
  SurName,
  Name,
  FathName: string;
  Birth: TDate;
  Tel: integer;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Guedda

Дата 13.4.2006, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

лучше так:

Код


TNotePad = record
  SurName,
  Name,
  FathName: string[100]; //Надо length учитывать, так как при записи в файл будет ошибка...
  Birth: TDateTime;
  Tel: integer;
end;

Но если ты хочешь именно класс, тогда вот тебе он:

Код


TNotePad = class
  private
    Fsurname : string;
    FName : string;
    FFathName : string;
    FBirth : TDateTime;
    FTel : Integer;
    procedure SetSurName(Value : string);
    procedure SetName(Value : string);
    procedure SetFathName(Value : string); 
  published
    property Surname read FSurname write SetSurName;
    property Name read FName write SetName;
    property FathName read FFathName write SetFathName;
    property Birth read FBirth write Fbirth;
    property Tel read FTel write FTel;
end;

Процедуры сам реализуешь, да и дополнишь малек smile

--------------------

Ll 2

Alexeis

Дата 14.4.2006, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Я думаю луше сделать наследника от TList
тогда

Цитата(Hard @ 13.4.2006, 18:34

)

добавления и удаления записей,сортировки по разным полям!

будет проще реализовать.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »