Como pasar un Listview?

[yusnerqui]

Empezado por Lepe

Se pasa "por valor"

Creo que va a ser que no, cuando lo que pasamos es la dirección en memoria donde está guardada la variable, como es el caso, estamos en presencia de traspaso "por referencia". Al menos así me lo enseñó la nana


Saludos Yusnerqui

[[Lepe]]

no, no, que no. Que no e a. (nada, que me apetecía un trabalenguas )

Código Delphi [-]
procedure Porvalor(const dato:integer);

procedure PorReferencia(var dato:integer);

Al menos a mí me enseñaron que pasar por referencia implica el "var" delante del parámetro, y podemos modificar el valor de la variable "dato".

En el caso de objetos, digamos que "no es común" modificar el valor de la variable, es como si quisiéramos hacer esto:

Código Delphi [-]
procedure PorReferencia(var dato:TListView);
begin
  dato := pointer(300);
end;

Aquí si es necesario pasar el ListView por referencia, ya que estamos modificando el valor que contiene la variable dato... aunque eso si... a saber qué hay en la dirección 300 de nuestra RAM, casi seguro que no está el ListView

Al pasar un objeto por valor, realmente estamos queriendo decir que su dirección de RAM no la podemos cambiar. Pero podemos modificar todas sus propiedades y eventos, ya que estos, no se encuentran en la propia variable "dato" sino en el espacio que ocupa el objeto.

Ufff, no sé si he tenido una violación de acceso a memoria con tanto objeto en mente

Saludos

[yusnerqui]

Pues yo mantengo mi postura, y de paso, rectifico lo que dije

Además quien a visto que una nana sepa programar.... y mucho menos en delphi.

Para asegurarme de que tienes razón hice la siguiente prueba:

Código Delphi [-]
private
    { Private declarations }
    Obj1 : TStrings;
    Obj2 : TStrings;
    Procedure Intercambia(O1 , O2: TStrings);
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Obj1 := TStringList.Create;
  Obj2 := TStringList.Create;
  Obj1.Add('Prueba') ;
  Intercambia(Obj1,Obj2);
  ShowMessage(Obj2[0]);
end;
procedure TForm1.Intercambia(O1 , O2: TStrings);
 Var
   Temp : TStrings;
begin
 Temp :=  O1;
 O1   :=  O2;
 O2   := Temp
end;
//Esto da un lindo error, pero si la sustituimos por:
Procedure Intercambia(Var O1 , O2: TStrings);
....
 
procedure TForm1.Intercambia( Var O1 ,O2: TStrings);
 Var
   Temp : TStrings;
begin
 Temp :=  O1;
 O1   :=  O2;
 O2   := Temp
end;
 
//Todod Marcha como se espera.

Bueno esto demuestra la teoría de Lepe, por tanto acabo de perder el juicio

Saludos Yusnerqui