blob: 023affc2614e779629a20c8937d8b4d102cde3f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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.
|
