@Nadya7

Разработка DLL в среде Borland Delphi. Выдаёт ошибку, что нужно исправить?

Выдаёт ошибку
[Error] Project2.dpr(31): Undeclared identifier: 'ShowModal' и [Error] Project2.dpr(32): Undeclared identifier: 'Free'
library Project2;
uses
  SysUtils,Classes,
 // UnitDLLSD in 'UnitDLLSD.pas' {Form1};
  ImportDLL in 'ImportDLL.pas' {Form1};


{$R *.res}
function Max(X,Y:Integer):Integer;stdcall;
begin
  if X<Y then Result:=Y else Result:=X
end;
function Min(X,Y:Integer):Integer;stdcall;
begin
  if X<Y then Result:=X else Result:=Y
end;
exports Min, Max;
procedure ShowTheForm(AOwner: TComponent);stdcall;
begin
  Form1:=TForm1.Create(AOwner);
  Form1:=ShowModal;
  Form1:=Free
  end;
  exports ShowTheForm;
  begin
end.



и второй!!!!
unit ImportDLL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Form1: TForm1;
  DllApp:TApplication;



 procedure ShowTheForm(AOwner:TComponent); stdcall; external
 'Project2.DLL';
 function ShowForm:Variant;stdcall;external
 'ShowDll.dll';
 procedure ShowForms(AOwner:TComponent);stdcall;external
 'ShowDll.dll';


   implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowTheForm(Form1);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  ShowForm;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
   ShowForms(Form1);
end;

end.
  • Вопрос задан
  • 73 просмотра
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ

Form1:=TForm1.Create(AOwner);
Form1:=ShowModal;
Form1:=Free

Я в шоке. Что вы тут хотели сделать?
Form1:=TForm1.Create(AOwner);
Form1.ShowModal;
Form1.Free;
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы