Bubblesort....

[DelphiKlaus]

Versuch es mal so:

Delphi-Quellcode:

for o:=1 to aa do 
  for k:=1 to aa-o do 
    if (Datei[k].Jahr>Datei[k+1].Jahr) or
       ((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; 

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;

Viele Grüße