![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
|||
|
|||
![]() 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 |
|
|
![]() |
|