Guten Tag,
habe eine klitzekleine Frage bezüglich meines Programmes. Und zwar habe ich das Sieb des Eratosthenes programmiert. Der Algorithmus funktioniert auch soweit. Jetzt versuche ich das Prinzip optisch darzustellen. Hierbei möchte ich, dass der alle vielfachen einer gefundenen primzahl streicht. Habe dynamisch 100 Panels erzeugt. Die Zahlen bis 100 sind in einem Array gespeichert. Jedes mal wenn keine Primzahl beim schleifendurchlauf gefunden worden ist wird der wert im Array auf true gesetzt. Jetzt soll dieses Panel was true gesetzt worden ist rot gefärbt werden und nach einer bestimmten zeit dann ganz verschwinden.(visible := false und das ganze geht von vorne los, bis alle nicht Primzahlen makiert bzw unsichtbar gesetzt worden sind.
Habe das jetzt so probiert aber wenn ich auf den Button drücke passiert einfach nichts. Wenn ich nur Farben oder Visible := false setze funktioniert es, aber es geht mir zu schnell. Ich möchte, das man es der Reihe nach sieht wie die nicht Primzahlen "gelöscht" werden.

Hier mal mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var j,l,o:integer;
begin



j := 2;
// while Schleife solange durchlaufen bis die Quadratzahl des Indexes
// größer ist als die eingegebene Zahl
while j*j <= 100 Do begin

// prüfen ob der Arraywert bei j false ist, wenn ja handelt es sich um eine Primzahl
    if( gestrichen[j] = false) then begin
// alle mehrfachen von j auf true setzen und damit als Primzahl ausschliessen

        l:=j*j;
        while l <= 100 do begin

             gestrichen[l]:=true;
             if gestrichen[l] = true then
             begin
               TPanel(FindComponent('number'+inttostr(l))).Color := clRed;
               sleep(1000);
               TPanel(FindComponent('number'+inttostr(l))).Visible := false;
             end;
             l:=l+j;

        end;

    end;

            j:= j+1;
end;


end;

Ich hoffe, das es so verständlich genug erklärt ist und mir jemand helfen kann
Habe wahrscheinlich grade wieder nur ein Brett vor dem Kopf.
Besten Dank Christian

Dein Suchwort heisst sleep

Besser Delay aus der Code-Lib. Sleep legt den ganzen Thread lahm, so dass gar nichts mehr passiert, auch kein neu zeichnen der Oberfläche.

Zitat von Wolfgang Mix:

Dein Suchwort heisst sleep

markieren

Delphi-Quellcode:

 begin
               TPanel(FindComponent('number'+inttostr(l))).Color := clRed;
               sleep(1000);
               TPanel(FindComponent('number'+inttostr(l))).Visible := false;
             end;

das hatte ich ja schon mit drin. Problem ist aber das dann einfach gar nichts mehr passiert und ich über den Taskmanager das projekt beenden muss. Nur ich weiß nicht warum?!? ^^

@Michael:
Hast gewonnen
Wo war wieder der rote Kasten?

Zitat von ChristianR:

das hatte ich ja schon mit drin. Problem ist aber das dann einfach gar nichts mehr passiert und ich über den Taskmanager das projekt beenden muss. Nur ich weiß nicht warum?!? ^^

Begründung und Lösung habe ich dir in meinem Beitrag genannt.

ja danke ich probiere es mal aus.

Häng mal noch ein Application.ProcessMessages dazwischen....

Ist in Delay schon enthalten.

Zitat von Bummi:

Häng mal noch ein Application.ProcessMessages dazwischen....

Perfekt! Jetzt läuft es so, wie ich es haben wollte! Danke

markieren

Delphi-Quellcode:

if gestrichen[l] = true then
             begin
               TPanel(FindComponent('number'+inttostr(l))).Color := clRed;
               sleep(1000);
               Application.ProcessMessages;
               TPanel(FindComponent('number'+inttostr(l))).Visible := false;
             end;

läuft Einwandfrei