Delphi-Quellcode:
if ... then
// ein Befehl
if ... then
begin
// mehrere Befehle
end;
Tipp: Das nächste Mal selber debuggen und scon siehst du warum etwas nicht geht.
Jedenfalls dieser Fehler wäre sofort aufgefallen.
Und nochwas:
Debuggen solltest du dennoch, damit du das nächste Problem erkennst.
Tipp: ELSE
noch'n Tipp:
if length(Euro.Text)>=1 then
entspricht
if Euro.Text <> '' then
Und es wäre schön, wenn du das [delphi]-Tag noch reinmachen könntest.
Die grauenhafte Codeformatierug erwähnen wir besser mal nicht.
