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
|