Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bummi,
17. Jan 2013
@Uwe Raabe ich weiß schon und habe es nach Deiner Antwort selbst getestet.
Ich kann meinen Beitrag löschen, oder als schlechtes Beispiel stehen lassen ....
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bummi,
17. Jan 2013
@Uwe Raabe stimmt ...:oops:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bummi,
17. Jan 2013
var
primes: TStringList;
i, j, nr, curr: Integer;
begin
primes := TStringList.Create;
try
nr := strtoint(Edit1.Text);
for i := 2 to nr do
begin
primes.Add(inttostr(i));