uses ModuleTest;
var TestVar : TType;
begin
TestVar := TType.Create;
writeln( 'Этот вызов свойства => ', TestVar.Test[ 0 ] );
writeln( 'То же самое, что и => ', TestVar[ 0 ] );
writeln( 'Так как "Test" является свойством по умолчанию' );
TestVar.Free;
end;
|