mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
18 lines
269 B
ObjectPascal
18 lines
269 B
ObjectPascal
program test;
|
|
|
|
{$MODE OBJFPC}
|
|
{$MODESWITCH UNICODESTRINGS}
|
|
|
|
var
|
|
S: string;
|
|
pS: PChar;
|
|
ppS: PPChar;
|
|
|
|
begin
|
|
S := 'test string';
|
|
pS := @S[1];
|
|
ppS := @pS;
|
|
pS := ppS^; // Error: Incompatible types: got "PChar" expected "PWideChar"
|
|
WriteLn(string(pS));
|
|
end.
|