Habe schon was:
Delphi-Quellcode:
uses
Fruits;
procedure TForm1.Button1Click(Sender: TObject);
var
MyFruit: TFruit;
idx: Integer;
begin
idx := RadioGroup1.ItemIndex;
case idx of
0: MyFruit := TLemon.Create;
1: MyFruit := TGrapefruit.Create;
2: MyFruit := TBanana.Create;
end;
if Assigned(MyFruit) then
begin
try
if MyFruit is TCitrusFruit then
(MyFruit as TCitrusFruit).Squeeze
else
ShowMessage('Keine Zitrusfrucht.');
finally
FreeAndNil(MyFruit);
end;
end;
end;
Banane kann man nicht ausdrücken.
@choose: Ich hoffe mal, dass du an dem Tag keine Final für den Kunden zur Auslieferung fertig gemacht hast.
