Macrosustitucion por codigo
Publicado por Juan (11 intervenciones) el 14/11/2011 17:48:05
Buenas tardes, lo que quiero es poder ejecutar el contenido de una variable como por ejemplo en otros lenguajes:
FOXPRO
=======
cCadena="do CalcularSaldo"
Run &cCadena
VISUAL BASIC
===========
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Dim cCadena As String
Dim code As Long
Private Sub Command1_Click()
'Hacemos un bucle for de 1 a 10 y mostramos el valor
cCadena = "For i = 0 to 10 : msgbox " & Chr(34) & "valor de i: " & Chr(34) & "&i:next"
code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0
End Sub
En Visual Basic para hacerlo hay que declarar la función "EbExecuteLine", me gustaría saber si esto desde Delphi se podría hacer de alguna forma igual que crear controles mediante un bucle e ir cambiando por ejemplo el caption.
Espero toda la ayuda que puedan.
Un saludo
FOXPRO
=======
cCadena="do CalcularSaldo"
Run &cCadena
VISUAL BASIC
===========
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Dim cCadena As String
Dim code As Long
Private Sub Command1_Click()
'Hacemos un bucle for de 1 a 10 y mostramos el valor
cCadena = "For i = 0 to 10 : msgbox " & Chr(34) & "valor de i: " & Chr(34) & "&i:next"
code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0
End Sub
En Visual Basic para hacerlo hay que declarar la función "EbExecuteLine", me gustaría saber si esto desde Delphi se podría hacer de alguna forma igual que crear controles mediante un bucle e ir cambiando por ejemplo el caption.
Espero toda la ayuda que puedan.
Un saludo
Valora esta pregunta


0