好像begin，end不匹配！怎么看不出呢》？？

Question

begin
Th:=LoadLibrary('ZLDS200_TCP_DLL.dll'); {装载DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar('ZLDS200Connect'));
if Tp<>nil then
begin
Tf:=TIntFunc(Tp);
IntToStr(Tf(620)); {调用ZLDS200Connect函数}
end
else

ShowMessage('ZLDS200Connect函数没有找到');
finally
FreeLibrary(Th); {释放DLL}
end
else
ShowMessage('ZLDS200_TCP_DLL.dll没有找到');
end;

Answer 1

beginTh:=LoadLibrary('ZLDS200_TCP_DLL.dll'); {装载DLL}if Th>0 thenbegintryTp:=GetProcAddress(Th,PChar('ZLDS200Connect'));if Tp<>nil thenbeginTf:=TIntFunc(Tp);IntToStr(Tf(620)); {调用ZLDS200Connect函数}endelseShowMessage('ZLDS200Connect函数没有找到');finallyFreeLibrary(Th); {释放DLL}end;endelseShowMessage('ZLDS200_TCP_DLL.dll没有找到');end;

Answer 2

是 begin..end不匹配，但这是指整个文件，不一定发生在这个程序。也有可能你把 end. 给删了。

Answer 3

在 FreeLibrary(Th); {释放DLL}再加个end试试