mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
27 lines
456 B
ObjectPascal
27 lines
456 B
ObjectPascal
|
|
{$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.
|