StringGrid Sortieren

[p80286]

die Daten, die Du in dem Strringgrid anzeigst, sind doch wohl irgendwo noch gespeichert (tlist,TObjectlist...)
wie wäre es denn wenn Du die sortieren würdest?

eine andere Möglichkeit wäre es den Inhalt einer Row als Object an den entsprechenden Datensatz in der Stringlist zu packen.

Gruß
K-H

[War10ck]

Zitat von p80286:

die Daten, die Du in dem Strringgrid anzeigst, sind doch wohl irgendwo noch gespeichert (tlist,TObjectlist...)
wie wäre es denn wenn Du die sortieren würdest?

Die Einzelnen Reihen sind jeweils in einer eigenen StringList gespeichert. Hilft mir aber eigentlich auch nicht oder?

Zitat von p80286:

eine andere Möglichkeit wäre es den Inhalt einer Row als Object an den entsprechenden Datensatz in der Stringlist zu packen.

Kannst du mir das etwas genauer erklären oder einen erklärenden Link posten?

War10ck

[DeddyH]

Hmmm... könnte man nicht die Rows in eine TObjectlist packen, diese sortieren und anschließend wieder ins StringGrid zurückschreiben? Allerdings erscheint mir das selbst etwas aufwändig.

[War10ck]

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