pascalabcnet/TestSamples/CompilationSamples/pointer_bred_plus.pas
Бондарев Иван e6e67c193c initial commit
2015-05-14 21:35:07 +02:00

10 lines
122 B
ObjectPascal

function pointer.operator+(left,right:pointer):pointer;
begin
writeln('XXX');
end;
var p:pointer;
begin
p:=p+p;
end.