Ver Mensaje Individual
  #4  
Antiguo 20-10-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Posteado originalmente por mateamargo
[...]había estado mirando la propiedad addobject pero no entendìa como se usaba ahora me ayudaste con dos temas.
Sin embargo del uso particular que expuse no queda muy claro:

Objects es una arreglo paralelo a Items que permite asociar a cada item un objeto. Si te fijas, cada elemento del arreglo Objects es de tipo TObject.

Como un TObject es en realidad un puntero y ocupa 4 bytes, lo mismo que un Integer, se puede hacer el "casting" para tratar al puntero como un entero.

Si requirieses guardar más información del empleado además de su número podrías entonces definir una clase:

Código:
TEmpleado = class
  Numero: Integer;
  Nombre: String;
  Apellido: String;
  Sueldo: Double;
  Ingreso: TDateTime;
end;
y asignar un objeto de esta clase:

Código:
Empleado := TEmpleado.Create;
Empleado.Numero := 84;
Empleado.Nombre := 'mate';
Empleado.Apellido := 'amargo';
Empleado.Sueldo := XXXXXX;
Empleado.Ingreso := aa//mm/dd;

ListBox.Items.Add('amargo mate', Empleado);
Y accederías al objeto así

Empleado := TEmpleado(ListBox.Items.Objects[i]);

Si llegas a considerar esta posibilidad entonces ten en cuenta que los objetos que insertes en el ListBox tienes que desruirlos en algún momento.

// Saludos
Responder Con Cita