immernoch das gleiche...hab jetzt den code verändert, aba immernoch sind die werte gleich...
Delphi-Quellcode:
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;
for p:=1 to aa do begin
form1.stringgrid1.Cells[0,p]:=IntToStr(Datei[aa].Jahr);
form1.stringgrid1.cells[1,p]:=IntToStr(Datei[aa].Monat);
end;