AHA...achso, also brauche ich nur folgendes?
Irgendwie bin ich grad etwas verwirrt:
Delphi-Quellcode:
// Event Handler für OnCustomCompare() im OI erzeugen:
procedure TForm.AdvStringGrid1ClickSort(Sender: TObject; ACol: Integer);
begin
with Sender
as TAdvStringGrid
do
SortByColumn(ACol);
end;
Delphi-Quellcode:
procedure TForm.AdvStringGrid1CustomCompare(Sender: TObject; str1,
str2: String; var Res: Integer);
begin
// die Locale solltest du in deinem Programm an zentraler Stelle
// gleich zu Beginn zwischenspeichern, damit der ständige Aufruf
// von GetThreadLocale hier unterbleiben kann.
Res := CompareString(GetThreadLocale or SORT_GERMAN_PHONE_BOOK shl 16,
NORM_IGNORECASE, PChar(str1), Length(str1), Pchar(str2), Length(str2)) - 2;
end;