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
  #3  
Antiguo 17-10-2013
sofiaz sofiaz is offline
Registrado
NULL
 
Registrado: oct 2013
Posts: 6
Poder: 0
sofiaz Va por buen camino
esto es el procedimiento para mostrar la pila, es recursivo:
Código Delphi [-]
procedure MostrarPila1(var pila:tipopila;var pos:reparto.tipopos; var numImage:integer);
var
  cartaSimple:reparto.TipoRegPila;
  cadena,xx:string;
begin
    if pos<>_posNula
      then begin
           reparto.capturar(montones,pos,cartaSimple);
           pos:=cartaSimple.enlace;
           MostrarPila1(montones,pos,numImage);
           cadena:=inttostr(cartasimple.numero)+cartasimple.color;
           xx:='image'+inttostr(numImage);
           Form1.xx.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
           Form1.listBox2.additem(inttostr(cartaSimple.numero)+'  '+cartasimple.color, Form1.ListBox2);
           numImage:=numImage+1;
           end;
end;

como se ve, la variable 'xx' es la que estaba usando ahora de prueba...

Última edición por ecfisa fecha: 17-10-2013 a las 04:56:32. Razón: Agregar etiquetas [DELPHI]
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
Duda de principiante sobre cámaras en GLScene kakarotv5 Gráficos 4 24-02-2007 11:08:19
Duda principiante con manejo de formularios Chompiras Varios 6 11-02-2006 20:49:55
Duda de principiante con combobox Chompiras Varios 5 09-02-2006 20:35:56
Duda de principiante (Help!!!!) taeyin Firebird e Interbase 2 04-06-2005 22:43:53
principiante olybola Conexión con bases de datos 3 17-05-2004 19:56:36


La franja horaria es GMT +2. Ahora son las 12:57:53.


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