blob: 7389727d3da75ee36db0b54977702c6e218b3594 (
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
|
{$mode fpc}
var
err : boolean;
procedure check(const s:string;b:boolean);
begin
writeln(s,b);
if not b then
begin
err:=true;
writeln('error!');
end;
end;
Var SS : ShortString;
AS : AnsiString;
Begin
SS := 'asdf';
AS := 'asdf';
Check('SS > '''': ', SS > '');
Check('Length(SS) > 0: ' , Length(SS) > 0);
Check('AS > '''': ', AS > '');
Check('Length(AS) > 0: ' , Length(AS) > 0);
if err then
halt(1);
End.
|
