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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-01-2004
Avatar de __hector
[__hector] __hector is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Santo Domingo, Rep. Dom.
Posts: 1.075
Poder: 25
__hector Va por buen camino
Sencillo...

Declaras el arreglo del tipo, y lo recorres, tal y como lo planteas. Tan sencillo como:

Código:
var
   Arreglo : array[1..100] of TdetalleRecibo;
   m        : integer;
begin
   for m := 1 to 100 do 
   begin
       Arreglo[m].vrec_numero := 15;
       ...
       ...
   end;
__________________
Héctor Geraldino
Software Engineer
Responder Con Cita
  #2  
Antiguo 25-01-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 27
__cadetill Va por buen camino
Sólo añadir a las 2 respuestas de Marcos y Héctor que, el array puedes declararlo dinámico si en tiempo de diseño no sabes que longuitud va a tener. Sería algo como...

Código:
type
  TdetalleRecibo = record
    vrec_numero : integer;
    vrec_tipo : string;
    vcon_codigo : string;
    vdet_valor : currency;
end;
var
   Arreglo : array of TdetalleRecibo;
   m        : integer;
begin
   SetLength(Arreglo, 100)
   for m := 1 to High(Arreglo) do
   begin
       Arreglo[m].vrec_numero := 15;
       ...
       ...
   end;
  ....
end;
Responder Con Cita
Respuesta


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


La franja horaria es GMT +2. Ahora son las 17:33:49.


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