Hallo! Ich möchte in einer Tabelle jahre und Monate aufsteigend ordnen. Dazu will ich Bubblesort verwenden.
Ich habe jetzt jedoch das Problem, dass die Records(Arrays) nicht getauscht werden, sondern beide mit einmal identisch sind, d.h. alle Werte in der Tabelle sind gleich. Hier ist der Quelltext...könnt ihr mir vll helfen?
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) then begin
if (Datei[k].Monat>Datei[k+1].Monat)
then begin
hilf:=Datei[k+1];
Datei[k+1]:=Datei[k];
Datei[k]:=hilf;
end;
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;
end;
THX und mfg