Delphi-Quellcode:
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);
das genau muss in die prozedur..wie muss nun der kopf dazu aussehen und wie rufe ich dann die prozedur auf?