mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-04 06:03:46 +02:00
bcea8662ff
GetEnvironmentStringUTF8 and GetEnvironmentVariableUTF8 to LazUtf8 (and inline them in FileUtil). Part of the ongoing restructuring of LazUtils. git-svn-id: trunk@41587 -
24 lines
427 B
PHP
24 lines
427 B
PHP
{%MainUnit lazutf8.pas}
|
|
|
|
|
|
|
|
function ConsoleToUTF8(const s: string): string;// converts UTF8 string to console encoding (used by Write, WriteLn)
|
|
begin
|
|
Result := SysToUTF8(S);
|
|
end;
|
|
|
|
function UTF8ToConsole(const s: string): string;
|
|
begin
|
|
Result := UTF8ToSys(s);
|
|
end;
|
|
|
|
function ParamStrUTF8(Param: Integer): string;
|
|
begin
|
|
Result:=SysToUTF8(ObjPas.ParamStr(Param));
|
|
end;
|
|
|
|
procedure InitLazUtf8;
|
|
begin
|
|
//dummy procedure
|
|
end;
|