blob: f122559a42eb94192cee428d524e9117ba16dd7e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
{$ifdef fpc}
{$mode objfpc}{$h+}
{$endif}
var
a: ansistring;
s: shortstring;
{$ifdef fpc}
u: unicodestring;
{$endif}
w: widestring;
code: Integer;
begin
code := 0;
a := 'foo bar';
delete(a, 4, maxint);
if a <> 'foo' then
code := code or 1;
s := 'foo bar';
delete(s, 4, maxint);
if s <> 'foo' then
code := code or 2;
w := 'foo bar';
delete(w, 4, maxint);
if w <> 'foo' then
code := code or 4;
{$ifdef fpc}
u := 'foo bar';
delete(u, 4, maxint);
if u <> 'foo' then
code := code or 8;
{$endif}
Halt(code);
end.
|
