14 lines
178 B
ObjectPascal
14 lines
178 B
ObjectPascal
program Test;
|
|
{$mode objfpc}{$h+}
|
|
uses
|
|
MyObjDef;
|
|
|
|
var
|
|
MyObj: Variant;
|
|
|
|
begin
|
|
MyObj := MyObjCreate;
|
|
WriteLn(MyObj.Bark);
|
|
WriteLn(MyObj.Moo);
|
|
WriteLn(MyObj.Meow);
|
|
end.
|