请教vlax.cls中一个过程的参数用法

ttthhh_hb

vlax.cls 中有一个过程如下：
Public Sub SetLispSymbol(symbolName As String, value)
    Dim sym As Object, ret, symValue   
    symValue = value
    Set sym = VLF.Item("read").funcall(symbolName)
    ret = VLF.Item("set").funcall(sym, symValue)
    EvalLispExpression "(defun translate-variant (data) (cond ((= (type data) 'variant) (translate-variant (vlax-variant-value data))) ((= (type data) 'safearray) (mapcar 'translate-variant (vlax-safearray->list data))) (t data)))"
    EvalLispExpression "(setq " & symbolName & "(translate-variant " & symbolName & "))"
    EvalLispExpression "(setq translate-variant nil)"
End Sub

我对VB不是很熟，想请问下SetLispSymbol(symbolName As String, value) 中第二个参数value是什么含义，难道不用声明类型的吗？

雪山飞狐_lzh

默认变体

ttthhh_hb

谢谢版主指教！我想试着把它翻译成Delphi语言。

zzyong00

ttthhh_hb 发表于 2015-4-3 09:38
谢谢版主指教！我想试着把它翻译成Delphi语言。

有理想，现在很少有人用dehpi了吧

ttthhh_hb

十几年前接触的Delphi语言，当时觉得好用，但没学精，偶尔用用。