dll и делфи

[Pein95]

Вот разбиралса впервые с библиотеками создал самую простую
в которой токо одна функция:

library FirsDLLProject;

uses
  SysUtils,
  Classes;

  function summ (x,y:integer):integer; stdcall;
  begin
   result:=x+y;
  end;

  exports summ; 
{$R *.res}

begin
end.

вот код проги которая использует ету библиотеку

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  function summ(x,y:integer):integer stdcall;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
function summ; external 'FirsDLLProject.dll' name 'summ';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
begin
r:=summ(10,34);
application.MessageBox(pchar(inttostr(r)), 'result summ');

end;

end.

Button1: TButton; в етой строке такая ошибка:
[Error] Unit1.pas(12): Field definition not allowed after methods or properties
как её решить?

[BOBAH13]

...
Button1: TButton;
...
end;
...
implementation

function summ(x,y:integer):integer stdcall; external 'FirsDLLProject.dll' name 'summ';
...

Вроде так

[Pein95]

тоже самое. странно както все делал так как в примере в книге написано а оно не работает(

[BOBAH13]

Сообщение от Pein95

тоже самое. странно както все делал так как в примере в книге написано а оно не работает(

Что тоже самое? Покажите что вы изменили и как.

[vasek123]

Попробуй следующим образом:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function Summ(x, y: Integer):Integer;stdcall;

implementation

function Summ(x, y: Integer):Integer; external 'FirsDLLProject.dll';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  r: Integer;
begin
  r:= Summ(10, 24);
  Application.MessageBox(PChar(IntToStr(r)), 'result summ', MB_OK);
end;

end.

У меня все работает.

[Johnson]

Блин ну это же элементарно...

type
  TForm1 = class(TForm)
  function summ(x,y:integer):integer stdcall;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Сначала объявляются переменные, только потом методы. И на как иначе...
У Вас же сначала функция, потом Баттон1, на которую ругается. После объявления метода нельзя объявлять переменную или объект.