Informatik GK 12 Klassen Seite 1 Klassen programmieren ... - Freidling

Informatik GK 12Klassenfunction faerben(x:string):integer ;beginif x='rot' then result:=clred;if x='blau' then result:=clblue;if x='grün' then result:=cllime;if x='gelb' then result:=clyellow;end;function ffaerben(x:string):string;beginwith meinauto do beginif farbe='rot' then result:='blau';if farbe='blau' then result:='grün';if farbe='grün' then result:='gelb';if farbe='gelb' then result:='rot';end;end;procedure TAuto.SetFarbe(Farbe: string);beginif (farbe='rot') or (farbe='blau') or (farbe='gruen') thenFFarbe:=Farbe;end;procedure Tauto.Setkm(km: integer);beginFkm:=km;form1.Kms.caption:=inttostr(km);end;procedure TForm1.Button1Click(Sender: TObject);beginshowmessage(meinauto.farbe);end;procedure TForm1.Farbe_neuClick(Sender: TObject);beginIm folgenden werden alle Methodendefiniert,SetFarbe() weist dem Auto die FarbezuSetKm erhöht den KilometerstandMeinAuto.FFarbe:=ffaerben(MeinAuto.Farbe);Kms.Color:=faerben(MeinAuto.Farbe);end;procedure TForm1.BJClick(Sender: TObject);beginshowmessage(inttostr(meinauto.FBaujahr));end;procedure TForm1.FahrenClick(Sender: TObject);beginFahrtimer.enabled:=true;end;procedure TForm1.StopClick(Sender: TObject);beginFahrtimer.Enabled:=false;end;procedure TForm1.FahrtimerTimer(Sender: TObject);beginmeinauto.km:=meinauto.km+1;end;procedure TForm1.Zeige_kmClick(Sender: TObject);beginshowmessage(inttostr(meinauto.fkm));end;Seite 2