Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 23-04-2006
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Poder: 0
Ruben_Cu Va por buen camino
No existe MiEdit2

Hola edusus, claro que al tratar de asignale 'Hola' a la propiedad text te indica error puesto que la componente, al querer ejecutar el procedimiento con el botón dos, no existe. MiEdit2 solo existe después que has ejecutado el procediento con el botón uno y entonces tienes que buscar la componente para poder asignarle el texto o leer el que tenga escrito.
Prueba el siguiente código, tienes que incluir dentro del bucle del botón uno una asignación de un valor a la propiedad Tag, en este caso lo mejor es el mismo valor de la variable N, de Tag, sería agregar en el ejemplo de marcoszorrilla.
Código Delphi [-]
  miedit.Name:='Miedit'+IntToSTr(n);
  MiEdit.Tag:=N; //línea agregada
  N:= N + 1;

Ahora coloca dentro de del botón 2 lo siguiente
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var m:integer;
    Casilla: TComponent;
begin
   for m:=0 to ComponentCount-1 do begin
   Casilla:= Components[m];
   if (Casilla is TEdit) then
      case TEdit(Casilla).Tag of
        1:TEdit(Casilla).text:='Hola';
        2:TEdit(Casilla).text:='Mi';
        3:TEdit(Casilla).text:='Amigo';
        4:TEdit(Casilla).text:='Miguel Angel';
        5:TEdit(Casilla).text:='es un';
        6:TEdit(Casilla).text:='placer';
        7:TEdit(Casilla).text:='saludarte';
        8:TEdit(Casilla).text:='este';
        9:TEdit(Casilla).text:='domingo.';
        end;
   end;
end;
Al ejucutarlo se logra asignar texto a cada uno de los edit creados, en lugar del Case se pudiera utilizar If..Then y tambien crear una función a la que llamar para leer o escribir en un edit en específico a partir del Tag asignado.
Esto puede ser una solución, esta fue la que se me ocurrió de seguro deben haber otras. El inveniente de esta es que hay que recorrer las componentes del formulario, que si tiene muchas retarda en algo la respuesta.
Espero te sirva para ilustrar el caso y lo aprovecho para mandar un saludo a un amigo.
Saludos
Responder Con Cita
 



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
Eventos en componentes creados en tiempo de ejecucion joumont OOP 3 27-12-2005 14:48:23
tRABAJO CON CONTROLES CREADOS EN EJECUCION bustio OOP 4 08-02-2005 17:52:23
Campos creados dinámicamente vs creados estáticamente Jose_Pérez Conexión con bases de datos 2 14-04-2004 11:34:03
Ayuda con Ejecución de programas creados con Kylix 3 Enterprise Trial darkone2k3 Lazarus, FreePascal, Kylix, etc. 0 18-11-2003 15:58:56
Objetos creados en tiempo de ejecución Scocc OOP 4 13-06-2003 20:55:29


La franja horaria es GMT +2. Ahora son las 22:47:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi