Error de Memoria Super Raro

[[AgustinOrtu]]

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:

MetodoNormal: Project1.TAlgunaClase
MetodoVirtual: Project1.TAlgunaClase
Metodo Constante: Hola mundo
MetodoConstanteVirtual: Hola mundo virtual

[jhonny]

Empezado por AgustinOrtu

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:

MetodoNormal: Project1.TAlgunaClase
MetodoVirtual: Project1.TAlgunaClase
Metodo Constante: Hola mundo
MetodoConstanteVirtual: Hola mundo virtual

jejeje caramba, no me imaginé que esto sucediera, ya estaba sorprendido con el primer caso donde MetodoConstante funcionaba y ahora esto... vaya oscuridad

[dec]

Hola a todos,

Interesante cuanto menos...