| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите, как код разнести по разным файлам (Unit'ам)? [D7, WinXP]

Michael5 ©   (2005-07-09 20:31:00) 

Будьте добры, объясните на пальцах, как разнести код по разным файлам? Это нужно для удобства чтения этого кода.

Покажите, если не трудно, на примере нижеследующей программы, как правильно вынести процедуру TForm1.Button1Click в Unit2.pas (основной код находится в Unit1.pas), как подключить потом Unit2.pas в Unit1.pas?

Буду очень признателен!!!

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.

---

Michael5   (2005-07-09 21:04:00) [1]

Ну что ж, спасибо всем! Теперь понятно...

---

Anton_K   (2005-07-09 20:50:00) [2]

Да? Пишется procedure, а читается ливерпуль?
Button1Click это метод.

То есть без вариантов?
Ну, в принципе можно примерно так сделать:

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
Btn1Click(Sender);
end;

end.

unit Unit2;

interface

procedure Btn1Click(Sender:TObject);

implementation

procedure Btn1Click(Sender:TObject);
begin
...
end;

end.


---

Гаврила   (2005-07-09 20:48:00) [3]

> Да? Пишется procedure, а читается ливерпуль?... Оч.интересно...
> :)


Читается "Метод"
это метод класса TForm1.
Существует ограничение, согласно которому весь класс должен находиться в одном юните, так что в чистом виде никак. (Вариант {$I} рассматривать не будем).
Вот будет 2 класса - тогда пожалуйста. один в одном, другой в другом

---

Michael5   (2005-07-09 20:43:00) [4]

Да? Пишется procedure, а читается ливерпуль?... Оч.интересно... :)

То есть без вариантов? Потому что хотелось бы выкинуть в отдельный файл в том числе и эти явления, происходящие при нажатии кнопок и т.д.

---

Anton_K   (2005-07-09 20:38:00) [5]

Никак. TForm1.Button1Click это не процедура.

---

Наверх