[solved] utf8string, widestring and unicode

[progamat]

Hi,

I am trying to get the unicode of a char in a widestring or in a utf8string.

With Delphi, I wrote

Code: [Select]

vText : Widestring;
...
vCode := Integer(vText[i]);
to get the character code of ith character of the string

With Lazarus, if vText is a Widestring or a utf8string, vText is a ? (except with 'classical', so A-Z letters and the character code is wrong - yet right if A-Z).

What could be the best way to have the character code of the ith character ?

I searched hard, on this site and others places, before posting this topic.

I am surely stupid, perhpas the TUTF8Scanner would do what I want, but all my tries until now are unsuccessfull  
 
Tx a lot for any help

[typo]

Try to do something like this:

Code: [Select]

uses LCLProc;

var
  p :PChar;
  unicode, charlen, n :integer;
  c :string;
begin
  p := PChar('ãâáàä');
  n := 1;
  repeat
    unicode := UTF8CharacterToUnicode(p, charlen);

    c := UTF8Copy(p, 1, 1);  // current character
    if c = 'ä' then ShowMessage(IntToStr(n));

    Inc(p, charlen);
    Inc(n);
  until (charlen = 0) or (unicode = 0);
end;                             


[progamat]

Tx a lot for your quick reply

What value has charlen, at first using of the parameter ?

[typo]

CharLen receives its value from the function UTF8CharacterToUnicode.

[progamat]

Ok,

I just tried your code, and the compilator don't find the UTF8CharacterToUnicode

google says me that it's in the lclproc.pas ...

I surely have to add this file in my project ?

[typo]

Yes.

uses LCLProc;

[progamat]

I just did it

Compilator now can't open the include file  "{$I fileutil.inc} 

[typo]

My Lazarus version:

Lazarus 0.9.29 r27895 FPC 2.4.3 i386-win32-win32/win64

[progamat]

I DLed today the 0.9.28.2 bbeta FPC 2.2.4 (the link at this page)

 

[typo]

I think this error is not inside that code.

[progamat]

I still added fileutil.inc in the project, and path to it....but always same error msg 

[typo]

{$I fileutil.inc}

Where is that?

[progamat]

this code is in the fileutil.pas

[typo]

Is FileUtil.pas in your uses clause?

[progamat]

Not in my uses, but in the lclproc uses ....

I just tried, adding it in my uses, and this error is always here