On 14.04.2012 15:39, Marcos Douglas wrote:
On Sat, Apr 14, 2012 at 6:36 AM, Sven Barth<pascaldra...@googlemail.com> wrote:
On 14.04.2012 07:20, Martin Schreiber wrote:
On Friday 13 April 2012 20:32:23 Marcos Douglas wrote:
On Fri, Apr 13, 2012 at 2:59 PM, Martin Schreiber<mse00...@gmail.com>
wrote:
On Friday 13 April 2012 18:51:42 Michael Van Canneyt wrote:
Also:
Lazarus happened to choose UTF-8 as the encoding of their LCL.
By contrast, MSEGui chose UTF-16 as it's encoding.
In order to differentiate from other string types and encodings MSEgui
uses "msestring" in properties, variables and parameters. msestring is
defined as
"
type
msestring = UnicodeString;
"
But even so, we still can pass AnsiString<UTF8String, string,
whatever> to a function:
type
MyString = UnicodeString;
procedure Foo(const s: MyString);
begin
ShowMessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: AnsiString;
begin
s := 'hi';
Foo(s);
end;
Yes. And if "s" is not in utf-8 but in current system encoding it even
will be
translated correctly in FPC 2.6.0. ;-)
In that case it will also be translated correctly in 2.7.1. It will also be
translated correctly if the AnsiString is defined as "AnsiString(CP_UTF8)"
and has an UTF-8 encoded string in it.
I did understand.
I coded a console app (just FPC) on Windows:
program Project1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
var
fname: UnicodeString;
list: TStringList;
begin
fname := 'c:\á b ç\á.txt';
list := TStringList.Create;
try
list.LoadFromFile(fname);
writeln(list.Text);
finally
list.Free;
end;
end.
Should work? Here not worked...
It won't work when interfacing with system functionality (like file
loading) for now. At least on Windows, because there FPC still uses the
Ansi (single character encoding) functions of the Windows API, but for
your example to work it would need the WideString functions. This change
was discussed some time ago, but I don't know what the final decission
was...
Regards,
Sven
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
