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

Question

delphi，DLL

Answer 1

谁让你不装个cnpack帮你检查拼写错误，为这种拼写错误的无效问题困扰实在是浪费时间好无意义procedure TForm1.Button1Click(Sender: TObject);
type
  TIntFunc = function(i: integer): integer; stdcall;
var
  Th: Thandle;
  Tf: TIntFunc;
  Tp: TFarProc;
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;

Answer 2

老大，你的跟我的没区别啊。
我是新手，今天才开始接触。呵呵，不知道cnpack这个东东。
问题还是没解决哦！

Answer 3

你把完整的这个.pas文件的代码全部贴上来，或者自己ctrl+d代码格式化一下，就看到哪里错了，你这个提示64行自己也可以检查下

Answer 4

养成良好的代码习惯：一个begin一个缩进，一个end少一个缩进。匹不匹配自然就看出来了，这种问题要自己解决。

Answer 5

已解决，是最后一个写成end；。第一次接触delphi感觉好不灵活啊！！