Hya,
ich hab ein Primzahl such programm geschrieben, jedoch bekomme ich immer bei
dem Gauge Prozentbalken einen fehler wenn meine anfangszahl von wo aus er suchen
soll größer 1 ist.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| p := StrToInt(Edit1.Text);
bis := StrToInt(Edit2.Text);
Gauge1.MinValue := von;
Gauge1.MaxValue := bis;
repeat
i := 1;
p := p+1;
repeat
i := i+1;
if (p mod i) = 0 then break;
if (i = p-1) and ((p mod i) <> 0) then
begin
ListBox1.Items.Add(IntToStr(p));
anzahl := anzahl +1;
end;
until i = bis-1;
Gauge1.Progress := p;
until p = bis; |
undzwar wenn p > 1 dann kommt der fehler bei Gauge1.MaxValue := bis;
dort sagt er die zahl muß zwischen -27000 und 99 oder so liegen.
wenn p = 1 dann klappt es mit der Prozentleiste.
Weiß einer was ich tun kann das er mir auch dann den Status ausgibt wie weit er ist?
Greetz
Master_BB
