1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
| procedure SortGrid (Grd: TStringGrid; Spalte, ZweiteSpalte, BeginnZeile,
Endzeile: Integer; GrossKleinIgnorieren: boolean);
var
i, j, k: integer;
function verglsp(s: integer): integer;
begin
if GrossKleinIgnorieren then
result := ansistricomp (pchar(grd.cells[s, j]),
pchar(grd.cells[s, j + k]))
else
result := ansistrcomp(pchar(grd.cells[s, j]),
pchar(grd.cells[s, j + k]));
end;
function vergl: boolean;
var
x: integer;
begin
x := verglsp(spalte);
if x = 0 then
x := verglsp(zweitespalte);
result := x > 0;
end;
procedure doit;
var
y: integer;
s: string;
begin
for y := grd.fixedcols to grd.colcount - 1 do begin
s := grd.cells[y, j];
grd.cells[y, j] := grd.cells[y, j + k];
grd.cells[y, j + k] := s;
end;
end;
begin
with grd do begin
editormode := false;
k := EndZeile shr 1;
while k > 0 do begin
for i := BeginnZeile to EndZeile - k do begin
j := i;
while (j >= BeginnZeile) and vergl do begin
doit;
if j > k then
dec(j, k)
else
j := BeginnZeile;
end;
end;
k := k shr 1;
end;
end;
end;
// Beispielaufruf mit Familiennamen in Spalte 3 und Vornamen in Spalte 2
procedure TFormx.Button4Click(Sender: TObject);
begin
sortgrid(stringgrid1, 2, 1, stringgrid1.fixedrows, stringgrid1.rowcount - 1, false);
end; |