mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:07:56 +02:00
22 lines
462 B
ObjectPascal
22 lines
462 B
ObjectPascal
program stringconcat;
|
|
//compile with -gh
|
|
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
|
|
{$ifdef mswindows}{$apptype console}{$endif}
|
|
uses
|
|
{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
|
|
sysutils;
|
|
|
|
var
|
|
wstr1: widestring;
|
|
begin
|
|
{$ifdef mswindows}
|
|
winwidestringalloc:= false;
|
|
{$endif}
|
|
//crash exist with winwidestringalloc also but with bigger application only
|
|
wstr1:= '123';
|
|
wstr1:= 'ABC'+wstr1+'abc';
|
|
writeln(wstr1);
|
|
flush(output);
|
|
end.
|