Ich hab diese fürchterliche Basisklasse geschreddert (nicht nur gelöscht). Die bringt überhaupt nichts null nothing gar nichts. Ich habe 3 Kategorien von geometrischen Objekten, die ich eh immer abfragen muß?
Beispiel:
Delphi-Quellcode:
procedure TDrawPadProperties.SetProperties(Item: TWerkzeug0);
var
Item1: TWerkzeug1;
Item2: TWerkzeug2;
Item3: TWerkzeug3;
begin
SetProperties0(Item);
if Item is TWerkzeug1 then
begin
Item1 := TWerkzeug1(Item);
SetProperties1(Item1);
end
else
if Item is TWerkzeug2 then
begin
Item2 := TWerkzeug2(Item);
SetProperties2(Item2);
end
else
begin
Item3 := TWerkzeug3(Item);
SetProperties3(Item3);
end;
end;