Delphi-Quellcode:
procedure TForm3.EinCentClick(Sender: TObject);
begin
zahlung:=StrToFloat(Label1.Caption);
zahlung:=zahlung-0.01;
// BEGINN DER FUNKTION
if zahlung<0 then
begin
Label2.Caption:='Ihr Rückgeld:';
Label1.Caption:=FloatToStrF(-zahlung,fffixed,16,2);
EinCent.Enabled:=false;
ZweiCent.Enabled:=false;
FuenfCent.Enabled:=false;
ZehnCent.Enabled:=false;
ZwanzigCent.Enabled:=false;
FuenfzigCent.Enabled:=false;
EinEuro.Enabled:=false;
ZweiEuro.Enabled:=false;
FuenfEuro.Enabled:=false;
ZehnEuro.Enabled:=false;
ZwanzigEuro.Enabled:=false;
FuenfzigEuro.Enabled:=false;
HundertEuro.Enabled:=false;
ZweihunderEuro.Enabled:=false;
FuenfhundertEuro.Enabled:=false;
end
else
Label1.Caption:=FloatToStrF(zahlung,fffixed,16,2);
//ENDE DER FUNKTION
end;
Kann ich aus dem eingegrenzten Teil eine Funktion machen? Habe nämlich noch 14 weitere Buttons in dieser Code teil der markiert ist rein muss. Mit einer Funktion würde sich da mächtig Code sparen lassen. Wenn es geht, wie muss die Funktion aussehen und wie führe ich sie aus?