ASCII Strings

[Alex Cones]

Hello!

I have problem with a storage strings in ASCII. I trying to use String, ShortString, AnsiString, but I don`t have a correct symbols.

For ex.:

Code: [Select]

Var
 S : String;
Begin
 S := 'Привет всем русским'; //Russian symbols (128-255 part of ASCII)
If S[1] = 'П' Then ShowMessage('!');
I don`t have a message. If I try to show this I have a 'R®¤~  °®' like string;

How to solve this problem?
--------------------
I find only one way:

Code: [Select]

S := Chr($C0) + Chr($C1) + Chr($C2);Then I have a correct string and can to compare symbols:

Code: [Select]

If S[1] = 'А' (* Russian 'A' *) Then ...

[typo]

But if you write:

Code: [Select]

If UTF8Copy(s, 1, 1) = 'П' Then ShowMessage('!'); 
you have the message.

uses lclproc.

[theo]

Lazarus uses UTF-8 not ANSI.

The function Typo mentions is in unit LCLProc.

[Alex Cones]

It can be solved without lclproc module?

[theo]

It can be solved without lclproc module?

You could use my utf8scanner.pas if you like.
http://wiki.lazarus.freepascal.org/Theodp

[Alex Cones]

I`ll think about more solutions. Anyway thank you.
------------------------
I found default functions UTF8ToAnsi & AnsiToUTF8 [wstringh.inc]. It`s killed me.