Hallo Community,
ich habe folgende Frage: Ich habe ein Programm geschrieben, dass vorsieht, das ein Button sichtbar wird bzw. eingeschaltet wird, wenn eine Variable einen Wert über 0 hat. Ist der Wert aber nun gleich 0, soll dieser ausgeschaltet bleiben und dafür ein anderer Button aktiviert werden.
Nun klappt das leider nicht so ganz. Der Code sieht so aus:
Code:
procedure TForm1.B_100erClick(Sender: TObject);
begin
Preis:=Preis-100;
L_Rest.Caption:=inttostr(Preis)+'€';
if Preis <=0 then
begin
L_Wechsel.Caption:='Ihr Wechselgeld: '+inttostr((Preis-Wechsel)*-1)+'€';
L_Rest.Caption:=inttostr(0)+'€';
Wechsel:=Wechsel+100;
B_5er.Enabled:=false;
B_10er.Enabled:=false;
B_20er.Enabled:=false;
B_50er.Enabled:=false;
B_100er.Enabled:=false;
B_200er.Enabled:=false;
B_500er.Enabled:=false;
B_Wechsel.Enabled:=false;
B_zumTicket.Enabled:=true;
end;
if Wechsel >0 then
begin
B_Wechsel.Enabled:=true;
B_zumTicket.Enabled:=false;
end;
end;
Ich hoffe ihr kennt meinen Fehler.
Danke schonmal
justMatzi