Stringgrid inkl. Umlaute richtig sortieren

[Christian Seehase]

Moin Steven,

ich kenne TadvStringgrid nicht, aber so wie die Sort-Routine aussieht dürfte sich das recht leicht einbauen lassen.
So müsste das genügen:

Delphi-Quellcode:

procedure TForm1.AdvStringGrid1CustomCompare(Sender: TObject; str1,
  str2: String; var res: Integer);
begin
  res := AnsiCompareText(str1,str2);
  if res < 0 then begin
    res := -1;
  end else begin
    if res > 0 then begin
      res := 1;
    end;
  end;
end;

Ich weiss jetzt nicht, ob AnsiCompareText evtl. garantiert auch -1,0 und 1 zurückgibt.
Für den Fall könnte man dann auch die ganze if/then/else-Konstruktion auch weglassen.