Помогите с классами в делфи(((

[PRIVIDENIE18]

сама задача сделана, но только в записи. Не могу описать классы. Помогите кто чем может!!!!!
Задание примерно такое: Разработать приложение «Поликлиника». Описать следующие классы: Пациент, Пациент ребенок, Пациент взрослый, Врач. Класс Пациент является базовым для классов Пациент ребенок и Пациент взрослый. Класс Пациент содержит следующие поля: Фамилия, Имя, Отчество, Год рождения. Класс Пациент ребенок содержит следующее дополнительное поле: Детский врач. Класс Пациент взрослый содержит следующие поля: Терапевт, Хирург, Офтальмолог, Дата последнего про-фосмотра. Класс врач – следующие поля: Фамилия, Имя, Отчество, Специализация, Категория.
У каждого класса реализовать методы - конструктор, деструктор, заполнение Карточки пациента.

[Stilet]

Некисло...
Дык вроде была уже тема такая, что там непонятно было?

[PRIVIDENIE18]

Сообщение от Stilet

Некисло...
Дык вроде была уже тема такая, что там непонятно было?

была))) Но толком не написали как классы описать((( у меня программа готова, но только в записи Я немного не понимаю куда эти классы впихнуть надо?

[Пепел Феникса]

скоро буду дома могу написать примерчик

[PRIVIDENIE18]

Сообщение от Пепел Феникса

скоро буду дома могу написать примерчик

хорошо буду ждать)))

[Stilet]

Но толком не написали как классы описать

Дак, ведь знать надо что эти твои классы содержать будут, какие поля, методы, что они выполнять должны...
Общее описание не трудно описать.

[DM_bite]

TPatient = class(TObject)
    public
    Sirname: string;
    Name:string;
    Otchestvo:string;
    GodR:integer;
  end;
  TChildPatient = class(TPatient)
    public
    CDoctor:string;
  end;
  TAdultPatient = class(TPatient)
    public
    Terpevt:string;
    Hirurg:string;
    Oftalmolog:string;
    DataOsm:integer;
  end;
  TDoctor = class(TObject)
    public
    Sirname: string;
    Name:string;
    Otchestvo:string;
    Spec:string;
    Category:string;
  end;

Что-то типа того, если правильно понял.Но это набросок.

[Пепел Феникса]

вот мой набросок
там и конструкторы есть

unit Unit2;

interface

type
 TDoctor=class
  FirstName:string; //имя
  LastName:string;  //фамилия
  MiddleName:string;//отчество
  Speciality:string;//специализация
  Category:string;  //Категория
  constructor Create(FName,LName,MName,Spec,Cat:string);
 end;
 TPatient=class
  FirstName:string; //имя
  LastName:string;  //фамилия
  MiddleName:string;//отчество
  Year:word;        //год
  constructor Create(FName,LName,MName:string;Y:word);
 end;
 TSmallPatient=class(TPatient)
  Doctor:TDoctor; //Врач
  constructor Create(FName,LName,MName:string;Y:word;Doc:TDoctor);
 end;

implementation

constructor TDoctor.Create(FName,LName,MName,Spec,Cat:string);
begin
 inherited Create;
 FirstName:=FName;
 LastName:=LName;
 MiddleName:=MName;
 Speciality:=Spec;
 Category:=Cat;
end;

constructor TPatient.Create(FName,LName,MName:string;Y:word);
begin
 inherited Create;
 FirstName:=FName;
 LastName:=LName;
 MiddleName:=MName;
 Year:=y;
end;

constructor TSmallPatient.Create(FName,LName,MName:string;Y:word;Doc:TDoctor);
begin
 inherited Create(FName,LName,MName,Y);
 Doctor:=Doc;
end;

end.

[PRIVIDENIE18]

Спасибо всем за примеры)))))))