ArrayInhalt ausgeben nach dem Sortieren

[G4schi]

Hallo,

ich möchte in mein Array of Records sortieren und dann das letzte Element meines Arrays ausgeben. In dieses Fall sortiere ich nach Uhrzeit und möchte das Datum ausgeben.

Delphi-Quellcode:

procedure THauptfenster.sonnenuntergang();
var array_min,array_hilfe:TAngaben;
    i,merken,j:Integer;
begin
     for I:=0 to Length(aDaten)-1 do
     begin
          array_min := aDaten[i];
          merken:=i;
          for j:=i+1 to Length(aDaten)-1 do
          if aDaten[j].sun_down < array_min.sun_down  then
          begin
              array_min := aDaten[j];
              merken:=j;
          end;
          array_hilfe := aDaten[merken];
          aDaten[merken] := aDaten[i];
          aDaten[i] := array_hilfe;
     end;
     lb_sonnenuntergang.Caption := DateToStr(aDaten[Length(aDaten)-1].datum);
end;

Wo liegt mein Denkfehler?


MfG

[Glados]

Zitat:

Wo liegt mein Denkfehler?

Welches Problem hast du denn?

[G4schi]

Zeigt mir nicht das korrekte Datum an. Deshalb denke ich, dass etwas an der Procedure nicht korrekt ist.

[Uwe Raabe]

Kannst du ein konkretes Beispiel-Projekt zusammenstellen, daß das Problem zeigt?

[G4schi]

Ok, hat sich erledigt. Ich merke, dass ich wo anders einen Fehler habe.