Danke DelphiKlaus das wars...das war die Lösung!
Jetzt find ich es nur komisch das er nicht nach beiden Kriterien sortiert, sondern nur nach Jahr, d.h. Monate sind ungeordnet... Hat da vll jmd noch nen Tipp? Ich vermute das es am
Delphi-Quellcode:
if aa>1 then begin
for o:=1 to aa do begin
for k:=1 to aa-o do begin
if (Datei[k].Jahr>=Datei[k+1].Jahr) and
(Datei[k].Monat>=Datei[k+1].Monat) then begin
hilf:=Datei[k];
Datei[k]:= Datei[k+1];
Datei[k+1]:=hilf;
end;
end;
end;
end;
for p:=1 to aa do begin
form1.stringgrid1.Cells[0,p]:=IntToStr(Datei[p].Jahr);
form1.stringgrid1.cells[1,p]:=IntToStr(Datei[p].Monat);
end;
liegt. Danke