mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
19 lines
359 B
ObjectPascal
19 lines
359 B
ObjectPascal
{ 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.
|