<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On 23 May 2016 at 15:23, Jonas Maebe <span dir="ltr"><<a href="mailto:jonas.maebe@elis.ugent.be" target="_blank">jonas.maebe@elis.ugent.be</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><br>
Michael Van Canneyt wrote on Mon, 23 May 2016:<br>
<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
The typecase will not help you, since the result is an ansistring.<br>
The result will still be crippled.<br>
</blockquote>
<br>
It would help when DefaultSystemCodePage is changed to UTF-8, as Lazarus does.<br>
<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
The only solution for this is a unicode RTL.<br>
</blockquote>
<br>
That is incorrect, since as he wrote the unicodestring version of GetEnvironmentVariable() already exists in our RTL today. It's just that it's only used if you pass it a unicodestring argument, which won't be be the case in most Lazarus programs by default.<br></blockquote><div><br></div><div>So, do we agree that it would be beneficial to change SysUtils.GetEnvironmentVariable(String) to call the UnicodeString overload internally?<br><br>function GetEnvironmentVariable(const EnvVar: String): String;<br>begin<br>  Result := String(GetEnvironmentVariable(UnicodeString(EnvVar)));<br>end;<br><br></div><div>This would propagate to GetEnvironmentVariableUTF8 in Lazarus, where a ConsoleToUTF8 conversion should then be removed.<br><br></div><div>SysUtils.GetEnvironmentString(Integer) and SysUtils.GetEnvironmentVariableCount() also call crippled GetEnvironmentStringsA.<br></div><div><br></div><div>Denis<br></div></div></div></div>