Question

delphi提示错误[Error] Unit1.pas(81): Declaration expected but end of file found

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;
好像begin，end不匹配！怎么看不出呢》？？

Answer 1

是 begin..end不匹配，但这是指整个文件，不一定发生在这个程序。
也有可能你把 end. 给删了。
你可以下载 cnpack 套件，它能帮你作配对检查。

Answer 2

begin
Th:=LoadLibrary('ZLDS200_TCP_DLL.dll'); {装载DLL}
if Th>0 then
begin
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;
end
else
ShowMessage('ZLDS200_TCP_DLL.dll没有找到');

end;

追问

还是一样的错误额，[Error] Unit1.pas(64): Declaration expected but end of file found。不知道什么原因。

追答

你能把64行标注出来吗？

追问

第64行是空的，不能用。在第64行加end后，出现[Error] Unit1.pas(63): '.' expected but ';' found错误。

Answer 3

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

追问

试了，加了end的那里会报错！

追答

感觉a470198949写的没错，如果不行，再看看其他地方了，一步一步来......