![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
||||
|
||||
|
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;
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
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 |
|