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