ich hab einen normalen Rechner, bloss nen eigenen code...
der wird wahrscheinlich irre lahm sein!
(mit inttostr und strtoint und listbox raus und rein noch und nöcher)
wollte mal nen Vergleich
Hier mein Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,i1:integer;
prim:boolean;
begin
listbox1.Items.add('2');
for i:=3 to 1000000 do
begin
prim:=true;
i1:=0;
while strtoint(listbox1.items[i1])<sqrt(i) do
begin
if (i/strtoint(listbox1.Items[i1]))=(i div strtoint(listbox1.Items[i1])) then prim:=false;
inc(i1);
end;
if prim=true then listbox1.items.add(inttostr(i));
gauge1.progress:=i;
gauge2.progress:=i-((i div 10000)*10000);
end;
end;