Überleg mal was hier passiert:
Delphi-Quellcode:
if (edtZahl.Text='') then
begin
lblFehler.Visible:= true
end
else
begin
lblFehler.Visible:= false;
end;
Das Programm läuft doch einfach weiter; da fehlt ein
Exit;
für den Fall dass die Eingabe nicht korrekt ist.
Stimmt! Das hab ich ja vollkommen vergessen!
Jetzt funktioniert es auch, Danke!
Hier noch mal der Teil des Codes der verändert wurde:
Delphi-Quellcode:
begin
if (edtZahl.Text='') then begin lblFehler.Visible:= true; Exit; end
else begin
lblFehler.Visible:= false;
a:= StrtoInt(edtZahl.Text);
if (a > 10000) then begin lblFehler3.Visible:= true ;Exit; end // Hab dann einfach 'Exit' hinzugefügt!
else begin
lblFehler.Visible:= false;
Sorry, dass ich jetzt noch etwas fragen muss, aber das ist jetzt wirklich die letzte Frage!
Bei der Memobox werden die Zahlen alle untereinander angezeigt, also eine Zahl eine Zeile. Ich würde es aber gern so haben, dass in jeder Zeile so viele Zahlen stehen, wie möglich, damit es übersichtlicher wird! Mein Lehrer hat was von nem String gesagt aber ich weiß nicht genau, was er meint...
Edit: Schon geklärt!^^ Habs hier gefunden!
http://www.delphipraxis.net/159391-d...emo-box-2.html