Nur eine Anmerkung am Rande. Das:
Delphi-Quellcode:
if Preis <=0 then
begin
...
B_Wechsel.Enabled:=false;
B_zumTicket.Enabled:=true;
end;
if Wechsel >0 then
begin
B_Wechsel.Enabled:=true;
B_zumTicket.Enabled:=false;
end;
ist u. U. interessanter wenn man es so löst:
Delphi-Quellcode:
if Preis <=0 then
begin
...
end;
B_Wechsel.Enabled := Wechsel > 0;
B_zumTicket.Enabled := not B_Wechsel.Enabled;
Man spart sich die doppelte Pflege.