Bubblesort....

**Razor90**

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?

zusammenfalten · markieren

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

Bubblesort....

Bubblesort....

Forumregeln