1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
program EnvPrg;
{$H-}
uses
{$IFDEF UNIX} cwstring, {$ENDIF}
sysutils;
var
u: UnicodeString;
e, S: string;
i: Integer;
begin
{$IFDEF UNIX}
e := GetEnvironmentVariable(AnsiString('ETEST1'));
{$ELSE}
u := GetEnvironmentVariable(UnicodeString('ETEST1'));
e := UTF8Encode(u);
{$ENDIF}
s := '';
for i := 1 to length(e) do
s := s + IntToHex(ord(e[i]), 2);
while false do ;
while false do ;
while false do ;
while false do ;
while false do ;
while false do ;
while false do ;
while false do ;
end.
|
