Как создать класс с ссылками на классы другие [D6, WinXP]
Страницы:
<
1
2
>
Леха © (2005-01-11 15:53:00)
Нужно создать класс "Сотрудник фирмы", содержащий информацию о
сотруднике: имя, фамилия, должность, стаж, оклад. Кроме того,
каждый класс имеет две ссылки – на класс начальника и на массив
подчиненных.
Про классы информации в книгах (даже серьезных по Делфи)
практически ни чего нет. А про ссылки вообще точно нет.
Подскажите как эти ссылки создавать, куда вставлять и как их
связывать. Буду рад любой помощи...может есть исходники с
использованием классов или сайты посвященные классам в Делфи.
Вот мой код
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TSotrudnik = class(TObject)
public
//Имя, Фамилия, должность, стаж, оклад
Name: String;
LastName: String;
position: String;
experience: Integer;
salary: double;
end;
type
TBoss = class(TSotrudnik)
public
end;
var
Form1: TForm1;
//Указатель на адрес объекта
Sotrudnik: TSotrudnik;
Boss: TBoss;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Создание конструктором объекта
Sotrudnik:= TSotrudnik.Create;
//Удаление конструктором объекта из памяти
Sotrudnik.Destroy;
end;
begin...end (2005-01-11 16:08:00) [21]
> Леха (11.01.05 15:53)
> Про классы информации в книгах (даже серьезных по Делфи)
> практически ни чего нет. А про ссылки вообще точно нет.
Это Вы, тёзка, в лужу сказали.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
