Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
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 05-02-2010
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.702
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
google->buscar: delphi record

Código:
procedure TForm1.Button1Click(Sender: TObject);
type
  registroPrueba = record
    campo1 : integer;
    campo2 : string;
    campo3 : double;
    campo4 : TStringList;
  end;

var
  registro : registroPrueba;
  listaEjemplo : TStringList;
begin
  registro.campo1 := 43;
  registro.campo2 := 'Esto es una prueba de registros';
  registro.campo3 := 112234;
  //inicializamos un TStringList cualquiera y le insertamos valores
  listaEjemplo := TStringList.Create;
  listaEjemplo.Add('Estro es una prueba');
  listaEjemplo.Add('de inserción de una lista');
  listaEjemplo.Add('en un tipo "record"');

  //inicializamos el TStringList del registro
  registro.campo4 := TStringList.Create;
  //le insertamos la lista creada anteriormente en el registro
  registro.campo4 := listaEjemplo;

  //mostramos algún valor del registro
  showmessage (registro.campo4.Strings[1]);
  showmessage (IntToStr(registro.campo1));
end;
Espero que te sirva.
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
Como puedo instalar e usar el SynEdit? THACKER Varios 1 04-04-2009 14:13:20
Como puedo usar procedimientos en archivo aparte Stanley Varios 4 05-11-2007 16:52:58
No puedo usar el TXPManifest en Delphi 7 her_127 OOP 6 05-01-2007 19:00:31
como puedo usar el StatusBar en EmbeddedWb teatry Internet 9 09-10-2005 16:56:10
puedo usar Qreport en delphi 2005 ? Pascual Montes .NET 1 15-05-2005 17:11:08


La franja horaria es GMT +2. Ahora son las 13:53:02.


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