Quien ha Usado Macro-Sustituciones?
Me gustaria saber como se hace en Delphi una Macro-sustitución de Valores de una variable, es decir por ejemplo "si yo tengo 20 objetos TEdit (cEdit01,cEdit02..cEdit20) y quiero incializarlos con un For..to. Do, como podria hacer esto?".
en Vfox se hace de la siguiente manera: With Thisform For Xi=1 to 20 vTxt = 'cEdit' + Transform(Xi,'@L 99') Thisform.&vTxt..Value = 0 Endfor EndWith Es decir el Simbolo para construir la macro es el ampersan "&". Podrian decirme como se hace en Delphi esto.??? |
La macro-sustitución no existe en delphi. Sin embargo, si podes inicializar los edits de la forma siguiente:
Código:
for i := 1 to 20 do ;) |
Mira yo he trabajado mucho y aún me toca hacer algunas cosas con Clipper en donde si existe macrosustitución, pero en Delphi, nunca se me ha ocurrido ni pensar en ella, creo que intentar hacer con un lenguaje las mismas cosas y de la misma manera que con otro anterior es un error, en el cual en un principio caemos casi todos.
Un Saludo. |
yo creo que La parte clave del asunto es pensar que es lo que se quiere conseguir y como lo hago en otro programa y luego tratar de interpretarlo en la herramienta de desarrollo actual.
creo que los algoritmos son buenos para eso :D . Por ejemplo vamos a ver cual es el fin de inicializar los Edit... no se pero creo que hay un metodo para manejar los objetos ubicados en un contenedor (en este caso un form) y mediante la variable sender entonces manipulas las propiedas de los objetos... por favor.. corrijanme si estoy equivocado... :) |
Gracias.... probaré con esas instrucciones ...
Saludos, bye |
Gracias.
Me sugirieron esto: for i := 1 to 20 do (FindComponent('Edit' + IntToStr(i)) as TEdit).Text := 'Hola' Pq en Delphi no existe la macro-sustitución... |
Cita:
De ser así me aventuro a contestar que por el hecho de ser Delphi un lenguaje compilado en lugar de interpretado. // Saludos |
La franja horaria es GMT +2. Ahora son las 01:50:07. |
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