Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 27-08-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Poder: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Intente recrear la idea con algunas correcciones...

Código Delphi [-]
Type
  TComp = class
     nombre : string;
  end;

  TAComp=Array of TComp;
...

{Arreglo y nvoArreglo son del mismo tipo TAComp...}

procedure TForm4.Editar(out arreglo: TAComp);
var
  nvoArreglo : TAComp;
  i:integer;
begin
     {Solo es de una dimencion el vector...}
     SetLength(nvoArreglo,1);
    
    {Se crea la clase TComp...}
     nvoArreglo[0]:=TComp.Create;

    {Asigna valor a .Nombre}
     nvoArreglo[0].Nombre := 'Algo';

    
{//Para un vector de mas dimensiones...
     SetLength(nvoArreglo,10);
     For i:=Low(nvoArreglo) To High(nvoArreglo) Do
     begin
            nvoArreglo[i]:=TComp.Create;
            nvoArreglo[i].Nombre := 'Algo...'+Inttostr(i);
     End;
}

     {Al ser del mismo tipo TAComp se puede hacer la asignacion...}
     arreglo := nvoArreglo;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
   Arreglo:TAComp;
begin
     Editar(Arreglo);
     ShowMessage(Arreglo[0].nombre);
end;

Saludos...
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Probleas con el Composite Reports paladincubano Impresión 2 27-01-2008 20:07:56
Ayuda con arreglos !! Siegfried Varios 2 27-09-2006 20:43:53
AYUDA con arreglos pecosita C++ Builder 1 18-09-2006 22:00:50
Probleas con el juego de Caracteres en una *.DBF ^TxTeZ^ Conexión con bases de datos 2 12-07-2004 12:55:54
Arreglos Lobo Varios 3 19-09-2003 00:09:19


La franja horaria es GMT +2. Ahora son las 20:17:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi