Ver Mensaje Individual
  #2  
Antiguo 06-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Unkger, bienvenido a los foros de Club Delphi y como es costumbre con los que ingresan, te invitamos a leer nuestra guía de estilo.


Intenta de este modo:
Código Delphi [-]
...
implementation  

type
  Tnombres = record
    nombre    : string[10];
    apellido1 : string[10];
    apellido2 : string[10];
    ciudad    : string[10];
    edad      : Integer;
  end;

var
  nombres : array [1..3] of Tnombres;

procedure Usuarios(TS: TStrings);
var
  i: Integer;
begin
  nombres[1].nombre    := 'Luan';
  nombres[1].apellido1 := 'apellido1';
  nombres[1].apellido2 := 'apellido2';
  nombres[1].ciudad    := 'ciudad';
  nombres[1].edad      := 34;

  nombres[2] := nombres[1];
  nombres[2].nombre    := 'Moon';

  nombres[3] := nombres[1];
  nombres[3].nombre    := 'Ami';

  for i := 1 to 3 do
    TS.Add(Format('%s - %s - %s - %s - %d',[nombres[i].nombre,
      nombres[i].apellido1, nombres[i].apellido2, nombres[i].ciudad,
      nombres[i].edad]));
end;

Ejemplo de uso:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  Usuarios(ListBox1.Items);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita