Gente: Vean este Código:
Código Delphi
[-]
type TForm1 = class(TForm)
Label1: TLabel;
private
public
function miFuncion:Integer;virtual;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.miFuncion:Integer;
begin
result := 0;
end;
type TForm2 = class(TForm1)
private
public
function miFuncion:Integer;override;
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
function TForm2.miFuncion:Integer;
var
valor:Integer;
begin
inherited; ***
showmodal;
result := 0
end;
Bueno, tenemos a TForm2 que hereda de TForm1... no importa la funcionalidad, lo que me llama la atención es que al querer compilar me tira error: Incompatible Types en la linea *** y no se porque... cabe aclarar que si en lugar de una función utilizo en las dos clases, un procedure, no tengo ningún problema: compila... pero ¿porque puede ser el error?
Gracias y bye bye
Gabriel