Привет всем! Возник вопрос касательно ООП.
Есть несколько классов:
Код:
TInteger3Locations = class
Location : array of Integer;
Value: array of TVector3i;
Name:array of ^string;
procedure SetLengthFor(NewLength:Integer);
end;
TInteger4Locations = class
Location : array of Integer;
Value: array of TVector4i;
Name:array of ^string;
procedure SetLengthFor(NewLength:Integer);
end;
TFloat1fLocations = class
Location : array of Integer;
Value: array of Single;
Name:array of ^string;
procedure SetLengthFor(NewLength:Integer);
end;
Как вы можете видеть, тут у каждого класса дублируется поле Location. Я решил проблему тем, что создал предка для этих классов и вынес Location и Name туда. Это просто и проблема не в этом.
Код:
TBaseLocations = class
Location : array of glint;
Name:array of ^string;
end;
Проблема в том, что помимо полей у этих классов дублируется ещё и процедура SetLengthFor. Вот её код:
Код:
procedure TInteger3Locations.SetLengthFor(NewLength:Integer);
var i:Integer;
begin
SetLength(Location,NewLength);
SetLength(Value,NewLength);
SetLength(Name,NewLength);
for i:=0 to NewLength-1 do begin
New(Value[i]);
New(Name[i]);
end;
end;
Как мне перенести её в класс-предок? Или как вообще назначить одну такую процедуру всем классам? Ведь у класса-предка нет поля Value. Создавать абсолютно одинаковые процедуры для трёх (в реале больше) классов - глопость, я уверен.
