Forum: Object-Pascal / Delphi-Language
Delphi
by BigCrunsh,
12. Mai 2003
also ich seh ein es gibt ne kleinigkeit die man verbessern kann:
procedure Primzahlen;
var prim: boolean;
i,k: integer;
begin
form1.listbox1.Clear;
i:=2;
form1.gauge1.maxvalue:=strtoint(form1.edit1.text);
form1.gauge1.progress:=0;
Forum: Object-Pascal / Delphi-Language
Delphi
by BigCrunsh,
12. Mai 2003
was heißt schnell...
ich hab ne procedure, die dir Primzahlen ermittelt... musst mal gucken,
ob dir das reicht....
procedure Primzahlen;
var prim: boolean;
i,k: integer;
begin
listbox1.Clear;
i:=2;