outer2000(天外流星) 你理会错我的意思了,我是说写一个解释程序,可以解释执行一些代码,如输入下面代码,程序可以解释执行下面代码。 if A > B then begin Result := 1.2 for i := 1 to 10 do begin Var := Result * C Var := Round(Var) Result := Result + Var end end else begin k := 1 Result := 1 while k < 25 do begin Result := Result + k / 3 k := k + 1 end end
应用像是$IFDEF的Compiler Directives ﹐就可以轻易的
指示Delphi要/不要将某一段程序编进执行文件中。
同时﹐Compiler本身也提供了一些错误检查的开关﹐
可以预先对程序中可能的问题提醒程序设计师注意﹐同样有助于撰写正确的程序。
if A > B then
begin
Result := 1.2
for i := 1 to 10 do
begin
Var := Result * C
Var := Round(Var)
Result := Result + Var
end
end
else
begin
k := 1
Result := 1
while k < 25 do
begin
Result := Result + k / 3
k := k + 1
end
end