Macrosustitucion de código
Publicado por Juan (11 intervenciones) el 14/11/2011 17:42:30
Buenas tardes, vengo del lenguaje FoxPro y estoy pensando en pasarme a Delphi, lo que me gustaría saber es si en Delphi se puede hacer la macrosustitución, como por ejemplo:
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 cadena As String
# Dim code As Long
#
# Private Sub Command1_Click()
# 'Hacemos un bucle for de 1 a 10 y mostramos el valor
# cadena = "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
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 cadena As String
# Dim code As Long
#
# Private Sub Command1_Click()
# 'Hacemos un bucle for de 1 a 10 y mostramos el valor
# cadena = "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
Valora esta pregunta
0