Jupp, läuft schon, gedae implementiert:
Delphi-Quellcode:
function TLemon.GetTaste: String;
begin
result := 'sauer';
end;
procedure TLemon.Squeeze;
begin
ShowMessage('Von Hand ausdrücken.');
end;
function TGrapefruit.GetTaste: String;
begin
result := 'süß';
end;
procedure TGrapefruit.Squeeze;
begin
ShowMessage('Mit der Maschine ausdrücken.');
end;
function TBanana.GetTaste: String;
begin
result := 'fruchtig';
end;
Das ShowMessage in den Prozeduren ist Absicht. Funktionen wären logischerweise geeigneter, aber man soll ja sehen, dass es auch mit Prozeduren geht. Jetzt muss ich mir nur noch einBeispiel zur Verwendung dafür ausdenken und irgendwo
is und
as unterbringen.
Hat da jemand spontan einenen Geistesblitz?