виртуальные функции

[vanek1]

Как провести наследование из класса персона в класс рабочий с помощью виртуальной функции?

[mss]

ну, например, вот так:

TПерсона = class(..)
..
function ЦветШтанов: TColor; virtual; // + abstract; если у просто Персоны нет штанов и она не подлежит цветоштанной дифференциации
..
end;

TРабочий = class(TПерсона)
..
function ЦветШтанов: TColor; override;
..
end;

TРабочий = class(TПерсона)
..
function ЦветШтанов: TColor; override;
..
end;

TЧиновник = class(TКолхозница)
..
function ЦветШтанов: TColor; override;
..
end;

TЧиновник = class(TПерсона)
..
function ЦветШтанов: TColor; override;
..
end;

TБандит = class(TПерсона)
..
function ЦветШтанов: TColor; override;
..
end;

TИнтеллигент = class(TПерсона)
..
function ЦветШтанов: TColor; override;
..
end;