blob: 25402c0f400c550baaf098a7e9b3a0a201452535 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
program widestringdelete;
{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
{$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}
sysutils;
var
wstr1: widestring;
begin
setlength(wstr1,10240);
delete(wstr1,1,10230);
end.
|
