pogledni towa:
procedure TForm1.Button4Click(Sender: TObject);
const
char_ = WideChar(#$3b5);
var
i: Integer;
text_:WideString;
begin
// text_:=widestring('');
// text_:=text_+#$0152#$0122;
text_:=widechar(#$0152)+widestring('')+widechar(#$0122);
// text_:=widestring(#$0152#$0122);
// ShowMessage(IntToHex(word(char_),4));
for i := 1 to Length(text_) do begin
ShowMessage(IntToHex(word(text_[ i]),4));
if char_ = text_[ i] then begin
ShowMessage('ok');
break;
end;
end;
end;
------------------------------
I got a COMPILER, and I'm not afraid to use it!