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 29-11-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Poder: 24
Bicho Va por buen camino
Otra forma de hacerlo podría ser usando la función FindComponent. Esto podrías usarlo en el caso en que tus edits tenga el mismo nombre común y un indice. Es decir, tener cinco edits y que los llames así:
Edit1
Edit2
Edit3
Edit4
Edit5

Puedes usar la función FindComponent para acceder directamente al componente en cuestión, o hacer un bucle y vaciar los todos.

Por ejemplo para el caso de los 5 edits:

Código Delphi [-]
var x : Integer;
begin
   for x := 1 to 5 do begin
      (FindComponent('Edit' + IntToStr(x)) as TEdit).text := '';
   end;
end;

En este caso como sabemos que tenemos 5 edits se lo indicamos en el bucle.
Y para cada uno buscamos con la función FindComponent (que necesita como parametro un nombre de componente = propiedad name), que en nuestro caso tiene todos en común "Edit" y una parte numérica que la llamamos X. Hay que hacer un cast de esta X, ya que la función espera un parámetro de tipo string. Después se especifica si el componente encontrado es del tipo TEdit. Y luego hacemos lo mismo que arriba, vaciamos su Text.
Me ha quedado un poco lioso, así que si tienes dudas aquí estamos.

Saludos
Responder Con Cita
  #2  
Antiguo 29-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
En mi opinión muy personal, esa función FindComponent deberían eliminarla de la VCL. Usar FindComponent es como quere hacer de Delphi un lenguaje interpretado en donde se puede acceder a los objetos por sus nombres. Pero además, FindComponent es de por sí un ciclo sobre todos los componentes del formulario para buscar el que tenga el nombre dado, de manera que estaríamos haciendo un doble ciclo innecesario.

Si se requiere trabajar sistemáticamente con un grupo de controles, Edits en este caso, para mi lo mejor es declarar un arreglo:

Código Delphi [-]
Edits: array of TEdit

llenarlo al momento de construir el formulario y entonces iterar sobre el arreglo cuando se necesario.

// Saludos
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
demasiados access violation ingel Varios 17 20-09-2006 03:53:25
Demasiados Caracteres en QReport JANDREGUE Impresión 1 24-04-2005 09:01:57
Metodo para borrar directorio VolaRe Varios 4 25-07-2004 16:29:52
Demasiados usuarios (2) muli Firebird e Interbase 6 11-05-2004 13:38:38
demasiados decimales Irina Varios 2 19-06-2003 14:24:33


La franja horaria es GMT +2. Ahora son las 02:12:00.


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