1
{%MainUnit lazutf8.pas}
5
function ConsoleToUTF8(const s: string): string;// converts UTF8 string to console encoding (used by Write, WriteLn)
7
Result := SysToUTF8(S);
10
function UTF8ToConsole(const s: string): string;
12
Result := UTF8ToSys(s);
15
function ParamStrUTF8(Param: Integer): string;
17
Result:=SysToUTF8(ObjPas.ParamStr(Param));
20
procedure InitLazUtf8;