Sieb des Eratosthenes

[info.noob]

Zitat von sx2008:

Ü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