como ejecutar una instruccion

[omy]

Ok


Tengo en un form 50 objetos Edit con el siguiente nombre


Nombre1
Nombre2
Nombre3
.
.
.
Nombre50

La problemática viene cuando con un TComboBox (contiene del 1 al 50 ) selecciono el número del nombre que deseo. Ahora con ese nombre genero un sql, para hacerlo tendría que hacer un CASE del valor de TComboBox para hacer el sql con el valor seleccionado, lo que quiero es hacer menos lineas como ¿?

Yo lo conocia como macro donde a una variable tipo texto le asigno esto:

Supongamos que selecciono en el TComboBox el 10

Código Delphi [-]
prueba:=  'nombre'+ TComboBox.text+’.txt’;

entonces   prueba vale ‘nombre10.txt’

al ejecutar la macro lo hacia 


nombre := &prueba;

y me daba la referencia del objeto nombre10.txt que es Juan Perez

[[Caral]]

Hola

Código Delphi [-]
var
  prueba :String;
begin
   prueba:=  'nombre'+ Combobox1.Text;
   ShowMessage(prueba);
end;

Saludos

[[eduarcol]]

Ok tu Te refieres a un metodo de foxpro que no existe en delphi, pero puedes hacerlo de otra manera, puedes buscar un componente dentro de un formulario que coincida con el nombre deseado, por ejemplo:

Código Delphi [-]
var
   //Declara las variables necesarias
   dbTexto: TComponent;
   Prueba: String;
begin
   prueba :=  'nombre'+ TComboBox.text; //Arma el nombre del componente a buscar
   dbTexto := FindComponent(prueba); //Busca el componente
   if dbTexto is TDBEdit then   //Valida si es de la clase requerida
   begin
      ShowMessage(TDBEdit(dbTexto).Text); //Muestra el valor deseado.
   end;   
end;

[[egostar]]

Excelente ejemplo amigo Eduardo

Pero todo el rollo que nos aventamos Caral y yo se hubiese ahorrado si omy aportara esa información desde el principio, eso es a lo que nos referimos constantemente en el foro al invitarlos a leer la guía de estilo y que tanto escosor suele producir.

Salud OS

[omy]

gracias eduarcol

aun no se como pero lo voy a chekar lo cambie quedo como yo deseaba con objetos TDateTimePicker

Código Delphi [-]
   for i:= 1 to ina do   // Este es el codigo para insertar las inasistencias
      begin

         prueba := 'fecha_inasistencia'+inttostr (i);
         dbTexto := FindComponent(prueba); //Busca el componente
         if dbTexto is TDateTimePicker then   //Valida si es de la clase requerida
         ShowMessage(datetostr (TDateTimePicker(dbTexto).date));

gracias.....