Y este es el caso mas oscuro de todos
Código Delphi
[-]var
Foo: TAlgunaClase;
begin
Foo := TAlgunaClase.Create;
Foo.Free;
try
Foo.MetodoNormal;
Foo.MetodoVirtual;
Foo.MetodoConstante;
Foo.MetodoConstanteVirtual;
finally
Readln;
end;
end.
Salida:
Código:
MetodoNormal: Project1.TAlgunaClase
MetodoVirtual: Project1.TAlgunaClase
Metodo Constante: Hola mundo
MetodoConstanteVirtual: Hola mundo virtual