Sieb des Eratosthenes

[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.

[p80286]

Wäre Dein Sourcecode ordentlich formatiert, sollte es eigentlich offensichtlich sein.
Zunächst solltest du mit TryStrtoInt die Obergrenze aus dem Edit übernehme.
Dann solltest du die Obergrenze auf Gültigkeit prüfen und dann erst rechnen.
Ob Du mit Exit abbrichst oder mit If..else arbeitest ist wahrscheinlich von den Vorlieben Deines Lehrers abhängig.

Gruß
K-H

[info.noob]

Zitat von p80286:

Wäre Dein Sourcecode ordentlich formatiert, sollte es eigentlich offensichtlich sein.
Zunächst solltest du mit TryStrtoInt die Obergrenze aus dem Edit übernehme.
Dann solltest du die Obergrenze auf Gültigkeit prüfen und dann erst rechnen.
Ob Du mit Exit abbrichst oder mit If..else arbeitest ist wahrscheinlich von den Vorlieben Deines Lehrers abhängig.

Gruß
K-H

Leider hatten wir das mit dem TryStrtoInt noch nicht. Nur eben Exit und if...else wie du sagst.
mit 'Exit' funktioniert's jetzt auch, hab's einfach vergessen!^^
Aber trotzdem Danke für deine Hilfe!

[Descole]

Vielen Dank noch mal an euch alle für eure Hilfe!

[sx2008]

Wie verprochen kommt hier meine "Musterlösung" für das Sieb des Eratosthenes.
Primzahlen bis 10 Mio. zu errechnen benötigt ~ 1 Min.

Wer Spass an Mathe und Delphi hat kann ja mal versuchen eine neue Klasse für das Sieb von Atkin zu schreiben.

Und dann gibt es auch noch das Sieb von Sundaram... (etwas komplizierter als Eratosthenes aber einfacher als Atkin zu implementieren)

[Furtbichler]

Das Sieb von Atkin wurde in der DP bereits umgesetzt. Einfach mal suchen, allerdings nach 'Sieve of Atkins' (nicht Atkin).

[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