Помошь с Классами

[Dokee]

Нужно создать графическую программу отображения классов, главный Человек (THumen) у него есть фио и возраст, от него идёт Студенты(TSyudent), у с тудентов группа, кафедра и специальность. И Рабочие(TWorken), у них Профессия, Стаж и Компания. Помогите кто чем может, буду благодарен каждому совету...

[Sciv]

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

Ну вот Вам набросок класса Человек:

Type THumen=class
                 FIO: string[100];
                 Age: integer;
                 constructor Create;
                 destructor Destroy;
              end;

У Вас в чем траблы?

[Dokee]

Случайно вышло 2, не знаю как удалить, только зарегался...
я накидал вот такую:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(tform)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
 THuman = class
 private
 FName: string;
 FAge: integer;
 protected
 public
 constructor Create(FName : string);
 overload;
 constructor Create(FAge : integer);
 overload;
 published
 property Name : string
 read   FName;
 property Age   : integer
 read   FAge;

 end;

type
 TStudent = class(THuman)
private
 FGroup: string;
 FCaf: string;
 FSpec: string;
 protected
 public
 constructor Create(FGroup, FCaf, FSpec: string);
 overload;
 published
 property Group : string
 read   FGroup;
 property Caf   : string
 read   FCaf;
 property Spec   : string
 read   FSpec;
 end;

type
TWorken = class(THuman)
private
FProfession: string;
FDepartament: string;
FProfege: integer;
protected
public

 published
 property Profession : string
 read   FProfession;
 property Profege   : integer
 read   FProfege;
 property Departament   : string
 read   FDepartament;
end;
var
  Form1: TForm1;
  a,b : TStudent;
  c,d : TWorken;
implementation

{$R *.dfm}
constructor THuman. Create(FName: string);
 begin
 a.FName := 'Щегольков сергей викторович';
 b.FName:='Рубан Александр Сергеевич';
 c.FName:='Столбов Алексей Григорьевич';
 d.FName:='Воробьев Максим Алексеевич';
 end;

 constructor THuman. Create(FAge : integer);
  begin

 a.FAge := 20;
 b.FAge := 20;
 c.FAge := 20;
 d.FAge := 20;

  end;

constructor TStudent .Create(FGroup, FCaf, FSpec: string);
begin
a.FGroup:= 'ЭВТ-10';
b.FGroup:= 'ЭВТ-10';
a.FCaf:= 'Электромагнитизм';
b.FCaf:= 'Электромагнитизм';
a.FSpec:= 'Электрик';
b.FSpec:= 'Электрик';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin
 a  := TStudent.Create;
 b := TStudent.Create;

ListBox1.Items.Add(TStudent.)
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Dokee]

Ток не пойму как вывести хоть что нибудь...))) капался в инете всё ночь капец

[Sciv]

constructor Create(FName : string);
overload;
constructor Create(FAge : integer);
overload;

Зачем так? Имхо лучше будет:

constructor Create(FName : string;FAge : integer);

сразу при создании зададите человеку и имя, и возраст.

Далее:

a,b : TStudent;
c,d : TWorken;
implementation

{$R *.dfm}
constructor THuman. Create(FName: string);
begin
a.FName := 'Щегольков сергей викторович';
b.FName:='Рубан Александр Сергеевич';
c.FName:='Столбов Алексей Григорьевич';
d.FName:='Воробьев Максим Алексеевич';
end;

Неправильно. Вы создаете конструктор класса (типа шаблон, хотя не самая удачная аналогия), а параметры будете передавать в него при вызове из программы. Не говоря уже о том, что типы TStudent и THuman разные, хоть и наследуются один от другого.

constructor THuman.Create(FName : string;FAge : integer);
begin
  THuman.FName:=FName;
  THuman.FAge:=FAge;
end;

Ток не пойму как вывести хоть что нибудь...))) капался в инете всё ночь капец

Ну во-первых, создать экземпляр класса.

var h: THuman;
begin
  h:=THuman.Create('Иванов',18);   //Создает человека Иванова 18 лет от роду ;)
end.

и далее обращаться к элементам класса через h:

ListBox1.Items.Add(h.FName+' '+IntToStr(h.FAge));

[Dokee]

А вот это

published
 property Name : string
 read   FName;
 property Age   : integer
 read   FAge;

Это вообще нужно? и для чего?

implementation

{$R *.dfm}
constructor THuman.Create(FName : string;FAge : integer);
begin
  THuman.FName:=FName;
  THuman.FAge:=FAge;
end;

ругаеться на эти две строчки Тхуман, [DCC Error] Unit1.pas(81): E2096 Method identifier expected

[Sciv]

ругаеться на эти две строчки

Уберите THuman, это я увлекся И параметры конструктора переименуйте, не нужно, чтоб они совпадали с переменными класса:

constructor THuman.Create(FN : string;FA: integer);
begin
  FName:=FN;
  FAge:=FA;
end;

Это вообще нужно? и для чего?

на мой взгдяд, нет, не нужно. У Вас в классе уже есть переменные FNAme и FAge, на кой Вам еще и одноименные свойства?

Вообще, рекомендую начать с самого простого - объявить классы и конструкторы. А уже потом переходить ко всяким public, private, properties и т.п.

[Stilet]

THuman.FName:=FName;
THuman.FAge:=FAge;

Нужно писать

  Self.FName:=FName;
  Self.FAge:=FAge;

Или не писать класс вообще, раз поля принадлежат ему.

[Dokee]

Ура! Добавил Self. Заработало

[Dokee]

А вот теперь как сделать так что бы Обьект 'А' был классом студента, и одновременно у него можно было увидеть поля от класса Человека?