FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Como se hace
Hola a todos estaba trabajando y me tope con un error a ver si alguien me pidiera ayudar
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); var i,o:integer; control,nombre,resul :string; com:Tobject; com2:Tedit; com3:tcontrol; begin // --------------------------------------------------- o := form3.ComponentCount; for i := 0 to form3.ComponentCount-1 do begin control := form3.Components[i].ClassName; if control = 'TEdit' then begin resul := form3.Components[i].Name + '.text'; // aqui lo que no pude hace es que el valor de resul concatenado con .text, lo convirtiera en una macro, esto para poder saber el valor de campo. end; end; end; Espero averme dado a enender, se trata de hacer macros, o algo como en php: eval , o con los signos $$, una solucion parecida nota. Ejecutar codigo en tiempo de ejecucion.
__________________
omar velazquez |
|
|
|