blob: 4410d4051f66b958d67497f208ee11107d5e7492 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Source provided for Free Pascal Bug Report 3529 }
{ Submitted by "Alexey Barkovoy" on 2005-01-07 }
{ e-mail: clootie@ixbt.com }
var
v1, v2: Variant;
S1, S2: AnsiString;
begin
S1:= 'aa';
S2:= 'bb';
v1:= S1;
v2:= S2;
if v1 = v2 then
begin
WriteLn('Equal');
halt(1);
end
else
writeln('not-equal');
end.
|
