TÉMA:

function UTF8Osszehasonlitas(List: TStringList;Index1: Integer;Index2: Integer):Integer;
begin
  Result := WideCompareStr(WideString(List[Index1]),WideString(List[Index2]));
end;
// Stringlist sorbarendezése:
SL.CustomSort(@UTF8Osszehasonlitas);

var
  SL:TStringList;
  I:Integer;
 
{
 // A WideStrinManager is valószínűleg ugyanezt csinálja, az eredmény legalábbis ugyanaz. Lásd az SL.Sort(..) és az SL.CustomSort(...) hívásokat lentebb (utóbbit  megjegyzésben)...
function UTF8Osszehasonlitas(List: TStringList;Index1: Integer;Index2: Integer):Integer;
begin
   Result:=UTF8CompareStrCollated(List[Index1],List[Index2]);
end;
}
 
begin
  SL:=TStringList.Create;
  SL.Add('a');
  SL.Add('á');
  SL.Add('e');
  SL.Add('é');
  SL.Add('i');
  SL.Add('í');
  SL.Add('o');
  SL.Add('ó');
  SL.Add('ö');
  SL.Add('ő');
  SL.Add('u');
  SL.Add('ú');
  SL.Add('ü');
  SL.Add('ű');
 
  SL.Add('zz');
  SL.Add('ss');
  SL.Add('zs');
  SL.Add('sz');
  SL.Add('sy');
  SL.Add('zy');
 
  SL.Add('áz');
  SL.Add('ázz');
  SL.Add('áss');
  SL.Add('ázs');
  SL.Add('ász');
  SL.Add('ás');
  SL.Add('ásy');
  SL.Add('ázy');
 
  SL.Add('az');
  SL.Add('azz');
  SL.Add('ass');
  SL.Add('azs');
  SL.Add('asz');
  SL.Add('as');
  SL.Add('asy');
  SL.Add('azy');
 
  // a fentebbi magánhangzókat és "szavakat" az alábbi mássalhangzók közé helyesen kell besorolnia a .Sort eljárásnak
 
  SL.Add('b');
  SL.Add('c');
  SL.Add('d');
  SL.Add('f');
  SL.Add('g');
  SL.Add('h');
  SL.Add('j');
  SL.Add('k');
  SL.Add('l');
  SL.Add('m');
  SL.Add('n');
  SL.Add('p');
  SL.Add('q');
  SL.Add('r');
  SL.Add('s');
  SL.Add('t');
  SL.Add('v');
  SL.Add('w');
  SL.Add('x');
  SL.Add('y');
  SL.Add('z');
 
  SL.Sort;
  // SL.CustomSort(@UTF8Osszehasonlitas); // Lásd az UTF8Osszehasonlitas eljárást megjegyzésben fentebb...
 
  for I:=0 to SL.Count-1 do WriteLn(SL[I]);
 
  SL.Free;
 
end.

a
á
as
ás
ass
áss
asy
ásy
asz
ász
az
áz
azy
ázy
azz
ázz
azs
ázs
b
c
d
e
é
f
g
h
i
í
j
k
l
m
n
o
ó
ö
ő
p
q
r
s
ss
sy
sz
t
u
ú
ü
ű
v
w
x
y
z
zy
zz
zs