Ein Vorschlag: Erstell eine Klasse
TMotorrad, von der die andern beiden abgeleitet werden:
Klassendeklarationen:
Delphi-Quellcode:
type
TMotorrad = class(TObject)
// Eigenschaften und Methoden, die beide Klassen gemeinsam haben sollen
end;
TSuzuki = class(TMotorrad)
// hier alles suzukispezifisches
end;
TKawasaki = class(TMotorrad)
// und hier kawasakispezifisches
end;
Verwendung:
Delphi-Quellcode:
var
MeinMotorrad: TMotorrad;
begin
if Maschine = 'Suzuki' then
begin
MeinMotorrad := TSuzuki.Create;
end
else
if Maschine = 'Kawasaki' then
begin
MeinMotorrad := TKawasaki.Create;
end;
end;
Unterscheiden, welche Marke es ist, kannst Du später so:
Delphi-Quellcode:
if MeinMotorrad.ClassType = TSuzuki then
// ...
// oder für Kawasaki:
if MeinMotorrad.ClassType = TKawasaki then
// ...
MfG