mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
28 lines
473 B
ObjectPascal
28 lines
473 B
ObjectPascal
{ %version=1.1 }
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TCheck=class(TObject);
|
|
|
|
|
|
var
|
|
vlA : TCheck;
|
|
vlB : TObject;
|
|
|
|
procedure aa(const ParXX :array of TObject);
|
|
begin
|
|
// writeln(cardinal(ParXX[0]),' ', cardinal(ParXX[1]));
|
|
if (ParXX[0]<>vlA) or (ParXX[1]<>vlB) then
|
|
begin
|
|
writeln('error');
|
|
halt(1);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
vlB := TObject.Create;
|
|
vlA := TCheck.Create;
|
|
aa([vlA,vlB]);
|
|
end.
|