[Lazarus] Cyrillic symbol check

[Kamen Kamen]

 
Hello. 
In Listviev I have Cyrillic characters. How can I use it to check whether it is 
this that I want or else? For example I do: 
var
    ListItem: TListItem;
C: TUTF8Char; 
begin
C := Trim(ListItem.SubItems[6]);    // -->

'М'

if C = 'М' 
 

      then rbMan.Checked:=true

     
 else if Trim(ListItem.SubItems[6]) = 'Ж'

       
 
 then rbWoman.Checked:=true

       
 
else rbDrugo.Checked:=true;
end;
 
Regards,
Kamen
 
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus