Ver Mensaje Individual
  #1  
Antiguo 09-02-2009
Avatar de PaFernan99
PaFernan99 PaFernan99 is offline
Miembro
 
Registrado: mar 2004
Ubicación: La Plata, Buenos Aires, Argentina
Posts: 79
Reputación: 21
PaFernan99 Va por buen camino
¿¿Es posible pasar una clase como parámetro con el modificador var??

Bueno, es eso nomás!
Estoy realizando el clásico ejercicio de Arboles Binarios, el método "espejo", que devuelve un espejo del arbol binario actual, y pensé realizarlo de esta manera...

Código Delphi [-]
procedure TArbolBinario.espejo(ab: TArbolBinario;var ac: TArbolBinario);
var acd:TArbolBinario;
begin
   if ab.getRaiz<> nil then
     begin
        ac := TArbolBinario.create(ab.getDatoRaiz);

        if (ab.getRaiz.tieneHijoIzq) then
            self.espejo(ab.getHijoIzq,ac.getHijoDer);
        if (ab.getRaiz.tieneHijoDer) then
            self.espejo(ab.getHijoDer,ac.getHijoIzq);
     end;
end;

pero al compilar la clase arroja el siguiente error:
Cita:
[Error] ArbolBinario.pas(138): Types of actual and formal var parameters must be identical
¿Existe otra manera de plantear el mismo método? porque lo querá era que me devuelva el espejo del arbol binario ab, en la variable ac.
Gracias y saludos!
Responder Con Cita