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

markieren

Delphi-Quellcode:

hilf:=Datei[k+1];
Datei[k+1]:=Datei[k];
Datei[k]:=hilf;

durch

markieren

Delphi-Quellcode:

hilf:=Datei[k];
Datei[k]:= Datei[k+1];
Datei[k+1]:=hilf;

ersetzten

Hab ich gemacht...gleiches Ergebnis wie vorher....woran könnte das denn liegenn??? Jmd ne Idee?

Dreieckstausch ist Dreieckstausch, egal in welche Richtung man tauscht.

Hallo,

der normale BubbleSort sieht so aus

markieren

Delphi-Quellcode:

for i:=1 to aa do
begin
  for j:=i+1 to aa do
  begin
    jetzt i und j vergleichen

Heiko

Hai,

wenn es um Sortierungen geht, da hat Daniel mal ein Tutorial geschrieben.

immernoch das gleiche...hab jetzt den code verändert, aba immernoch sind die werte gleich...

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) {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;

keiner mehr ne idee?

Hallo,

wenn du mein Posting nicht willst ...

markieren

Delphi-Quellcode:

i:= 1 to max
  j:= i+1 to max

nicht j:= 1
und nicht aa und aa-o !!!


Heiko

so...habs jetzt so gemacht wie du es gesagt hast...aba jetzt sind wieder alle werte 0