Скачать: CL | DM;

Подскажите, как код разнести по разным файлам (Unit ам)?   Найти похожие ветки 

← →
Michael5   (2005-07-09 20:09) [0]

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

Покажите, если не трудно, на примере нижеследующей программы, как правильно вынести процедуру 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.

---

← →
grouzd[E]v ©   (2005-07-10 20:32) [1]

unit Unit1;

interface

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

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
DoSomething;
end;

end.

//следующий юнит:

unit unit2;

interface

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

procedure DoSomething;

implementation

procedure DoSomething;
begin
//твоя процедура
end;

end.

Только учти, что ты НЕ можеш обращатся к первому юниту и к форме
Good Luck!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.066 c