Delphi - Macrosustitucion por codigo

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder