Drücke ich dann Button2 dann wird nach der 2. Spalte sortiert. Aber die erste Spalte kommt durcheinander. Bei jedem drücken von Button2, verändert sich die erste Spalte.
Ich will gerne, das die erste Spalte vorsortiert bleibt, so das es im 'a' 2,2,3,3 ist und nicht 2,3,3,2 oder ähnlich.
OpenOffice macht es richtig.
Kann man dies einstellen ?
Code: Alles auswählen
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.FixedCols := 0;
StringGrid1.FixedRows := 0;
StringGrid1.ColCount := 2;
StringGrid1.RowCount := 12;
StringGrid1.Cols[0].AddCommaText('4,5,6,1,2,3,4,5,6,1,2,3');
StringGrid1.Cols[1].AddCommaText('b,b,c,c,a,a,b,b,c,c,a,a');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.SortColRow(True, 0, 0, StringGrid1.RowCount - 1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
StringGrid1.SortColRow(True, 1, 0, StringGrid1.RowCount - 1);
end;