Function tupper Lparameters tcStr Return Upper(Chrtran(m.tcStr,'ýi','IÝ')) EndFunc Function tlower Lparameters tcStr Return Lower(Chrtran(m.tcStr,'IÝ','ýi')) EndFunc Function tCollate Lparameters tcStr Return Strtran(Strtran(Strtran(; Strtran(Strtran(Strtran(; tUpper(m.tcStr),; 'Ð','G'+Chr(255)),; 'Þ','S'+Chr(255)),; 'Ý','I'+Chr(255)),; 'Ö','O'+Chr(255)),; 'Ç','C'+Chr(255)),; 'Ü','U'+Chr(255)) endfuncTest code :
Create Cursor test (Names c(20)) For ix=1 to 26 Insert into test values (Replicate(Chr(Asc('A')-1+m.ix),5)) Insert into test values (Replicate(Chr(Asc('a')-1+m.ix),5)) EndFor Insert into test values (Replicate('ð',5)) Insert into test values (Replicate('ü',5)) Insert into test values (Replicate('þ',5)) Insert into test values (Replicate('ý',5)) Insert into test values (Replicate('ö',5)) Insert into test values (Replicate('ç',5)) Insert into test values (Replicate('Ð',5)) Insert into test values (Replicate('Ü',5)) Insert into test values (Replicate('Þ',5)) Insert into test values (Replicate('Ý',5)) Insert into test values (Replicate('Ö',5)) Insert into test values (Replicate('Ç',5)) index on tCollate(names) tag names browseCetin