blob: 7846889a379be5e78feeee873bd82e404f17ca36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 2765 }
{ Submitted by "Michael Van Canneyt" on 2003-11-04 }
{ e-mail: michael.vancanneyt‚wisa.be }
program testw;
var
P : PWideChar;
PA : PChar;
S,T : AnsiString;
begin
S:='SomeThing';
P:=PWideChar(S);
PA:=PChar(Pointer(P));
Writeln('P : ',PA);
T:=WideCharToString(P);
Writeln('T : ',T);
end.
|
