blob: 2530de180865b96b95cd5c81a8724da2d14621e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %norun }
uses
{$ifdef unix}
cwstring,
{$endif}
sysutils;
{ just to make sure that no all wide->shortstring compile time conversions }
{ fail, but only those resulting in data loss }
const
cw = widestring('abc');
de = 'a'+shortstring(cw);
wc = widechar('a');
df = shortstring(wc)+'abcd';
dg = char(wc)+'abcd';
begin
end.
|
