Hi !
zu meinem Problem:
Ich möchte das der Anwender meines programms die veränderungen sehen kann während der algorithmus durchläuft!
Nur wie kann man es erreichen, wenn ich sleep und co innerhalb der procedure verwende wartet das programm seine zeit und gibt dann das endergebnis aus!
wie kann mann die ausgabe der werte (siehe code KW_dist,pre,R)so gestalten das erst
die initialisierung dagestellt wird
dann die weiteren veränderungen!
die Aktuellesituauin soll auf stringgrid ausgegeben werden.

zusammenfalten · markieren

Delphi-Quellcode:

procedure Dijkstra_Pfeil ( var pre,kw_dist:TKnoten; var b,c:TPfeil;{Endknotennummernvektor, Bewertungsvektor}
                           var PN:TKnoten_plus_1_feld; {Pfeilnummernvektor}
                               Knotenzahl:integer; Start:integer;var stringgrid1:Tstringgrid); {Anzahl Knoten}
var locali,localj,min:integer;
    R:array [1..8] of boolean;
begin
   //Initialisierung
   for locali:=1 to Knotenzahl do
    begin
      pre[locali]:=0;
      stringgrid1.Cells[locali,1]:=inttostr(pre[locali]);
      kw_dist[locali]:=999;
      stringgrid1.Cells[locali,2]:=inttostr(kw_dist[locali]);
      R[locali]:=true;
    end;
   kw_dist[Startknoten]:=0;
    stringgrid1.Cells[locali,2]:=inttostr(kw_dist[startknoten]);
   R[Startknoten]:=true;
   while true do {Wiederholung Schritt 1 + 2}
    begin
    //Schritt 2
      min:=999;
      for localj:=1 to Knotenzahl do
       if R[localj] and (kw_dist[localj] < min)
        then
         begin
           min:=kw_dist[localj]; locali:=localj; end;
        if min = 999
         then exit;
    //Schritt 3
      for localj:=PN[locali] to PN[locali+1]-1 do
       if R[b[localj]] or ( kw_dist[b[localj]] = 999 )
        then
         if kw_dist[locali] + c[localj] < kw_dist[b[localj]]
          then
           begin
             kw_dist[b[localj]]:= kw_dist[locali] + c[localj];
             pre[b[localj]]:=locali;
             R[b[localj]]:= True;
           end;
    R[locali]:= False;
    stringgrid1.Cells[locali,1]:=inttostr(pre[locali]);
    stringgrid1.Cells[locali,2]:=inttostr(kw_dist[locali]);
    end; {Ende Schritt 1 und 2}
end;

könnt ihr mir helfen?

Application.ProcessMessages kann da Wunder bewirken

was bewirkt Application.ProcessMessages?
die ergebnisse mussten doch einem stringgrid oder so übergeben werden, damit
sich die tabelle je nach der aktuellen lage im algorithmus aktualisiert?

es bewirkt das die Veränderungen angezeigt werden sozusagen als zwischen status. dementsprechend solltest du diesen Befehl einfügen nachdem du in dein stringgrid schreibst. als alternative wären threads zu nennen

um wieviel zeit muss mann dann noch verzögern?
oder beinhaltet dieses schon eine "lesbare" verzögerung?

ach meinst du das wird komplett verändert ? dann würde ich zu delay raten zu finden in der codelib

der code oben ist der dijkstra algorithmus

und er hatt ja mehere durchläufe (besonders bei schritt 2+3) bis er das energebnis hat
und diese zwischen werte sollen jeweis angezeigt werden bzw die im stringgrid "vorhandenen" werte sollen durch die ermittelten werte "aktualisiert" werden
(das müste doch dann wenn es klapt doch auch analog zu übertragen sein, wenn er die gezeichnete pfeile
durch andersfarbige pfeile ersetzen soll sprich z.B. gerade im angriff genommener pfeil (gelb), dieser pfeil stellt verbesserung da grun...)
im anhang die komplette unit

naja ist ja realtiv egal wenn du eine bestimmte zeit aussetzen willst dann musst du diese Luckies delay oder Hagens delay einfügen danach fügst du einfach die zeile
delay(100); //bsp 100 = 100 ms am ende bei dir ein

markieren

Delphi-Quellcode:

    
    stringgrid1.Cells[locali,1]:=inttostr(pre[locali]);
    stringgrid1.Cells[locali,2]:=inttostr(kw_dist[locali]);
   // Hier
    end; {Ende Schritt 1 und 2}
end;