Okay,
habs jetzt hinbekommen. War eigentlich gar nicht so schwer, vielleicht habt ihr mich aber auch nur falsch verstanden wer weiß?!
Ich hab einfach den BubbleSortalgorythmus ein wenig auf mein Problem angepasst, mag vielleicht nicht die eleganteste Lösung sein aber funktioniert.
Delphi-Quellcode:
procedure Change(Row, I: Integer);
var
Dummy: String;
begin
Dummy := Form1.StringGrid2.Cells[Row,I];
Form1.StringGrid2.Cells[Row,I] := Form1.StringGrid2.Cells[Row,I+1];
Form1.StringGrid2.Cells[Row,I+1] := Dummy;
end;
Delphi-Quellcode:
procedure TForm1.Button11Click(Sender: TObject);
var
Done: boolean;
I, N: integer;
begin
N := StringGrid2.RowCount;
repeat
Done := true;
for I := 1 to N - 2 do //I=1 => Überschrift auslassen
if StrToDate(StringGrid2.Cells[2,I]) > StrToDate(Stringgrid2.Cells[2,I+1]) then
begin
Change(0, I);
Change(1, I);
Change(2, I);
Change(3, I);
Change(4, I);
Change(5, I);
Done := false;
end;
until Done;
end;
Danke an alle die sich Mühe gegeben haben mir zu helfen!
MfG War10ck