Aufgabe 3 a  - Welche Methoden ..... ?   -   Lösung

procedure TMyRobot.Vor; // -------------------------------------------------------------------- begin   if VorneFrei   then inherited Vor; //dann nimm die geerbte (inherited) Meth. end;   procedure TMyRobot.LinksDrehen; // -------------------------------------------------------------------- begin   RechtsDrehen;   RechtsDrehen;   RechtsDrehen; end; function TMyRobot.RechtsFrei : boolean; // -------------------------------------------------------------------- begin   RechtsDrehen;   Result := VorneFrei;   LinksDrehen; end;   function TMyRobot.LinksFreiFrei : boolean; // -------------------------------------------------------------------- begin   LinksDrehen;   Result := VorneFrei;   RechtsDrehen; end; function TRobot.VorDemAbgrund : boolean; //--------------------------------------------------------------------- begin   Result := false;   if   (((Richtung = W) and (GetSpaltenpos = 'A')) or    ((Richtung = O) and (GetSpaltenpos = 'N')) or    ((Richtung = N) and (GetZeilenpos = 1))    or    ((Richtung = S) and (GetZeilenpos = 12)))   then Result := true; end;