paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2003-11-05 12:50:35 +00:00
parent 99b2916678
commit 5ba9745d5e
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/webtbs/tw2763.pp
View File

@ -1,4 +1,5 @@
{ %version=1.1 } { %version=1.1 }
{$mode objfpc}
{ Source provided for Free Pascal Bug Report 2763 } { Source provided for Free Pascal Bug Report 2763 }
{ Submitted by "Michael Van Canneyt" on 2003-11-04 } { Submitted by "Michael Van Canneyt" on 2003-11-04 }
{ e-mail: Michael.VanCanneyt@wisa.be } { e-mail: Michael.VanCanneyt@wisa.be }

18
tests/webtbs/tw2765.pp Normal file
View File

@ -0,0 +1,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.