Bubblesort....

[DelphiKlaus]

Hey,

so sollte es funktionieren (p statt aa):

Delphi-Quellcode:

   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

Klaus

[Razor90]

Danke DelphiKlaus das wars...das war die Lösung!
Jetzt find ich es nur komisch das er nicht nach beiden Kriterien sortiert, sondern nur nach Jahr, d.h. Monate sind ungeordnet... Hat da vll jmd noch nen Tipp? Ich vermute das es am

Delphi-Quellcode:

if aa>1 then begin
 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;
   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;

liegt. Danke

[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

[Razor90]

wieder voll ins schwarze DANKE Delphiklaus!!!! mfg Razor