Hallo, ich habe folgendes Problem:
Delphi-Quellcode:
procedure TForm1.rechnen;
var wert,i: longint;
begin
wert:=1;
repeat
wert:=wert+1;
prim:=true;
Panel1.Caption:=floattoStr(wert);
for i:=2 to wert-1 do
begin
if (wert MOD i) = 0 then
begin
prim:=false;
{i:=wert-1;}
end;
end;
if prim=true then Panel2.Caption:=floattoStr(wert);
until wert=10000{ 2147483647};
end;
Ich will mit dieser Prozedur alle Primzahlen ermitteln und in einem Panel anzeigen lassen.
Der Rest meines Programmes besteht nur noch aus einem Button, der die ganze Geschichte aktiviert.
Nun zu meinem Problem:
Wenn ich nun den Button drücke rechnet er fein, so wie's sein soll. Aber der Taskmanager zeigt zu meinem Programm an: Keine Rückmeldung.
Das ist ja eigentlich nicht das Problem, aber ich will, dass er mir immer die Aktuelle Zahl ausgibt, aber das macht er nicht, erst wenn er fertig mit rechnen ist. Aber während er noch rechnet kann ich auf der Oberfläche meines Programmes nichts drücken...
Also ich hoff einer von euch kann mir helfen, damit ich immer den aktuellen Wert anzeigen kann...