Форум: "Начинающим";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
ВнизПодскажите, как код разнести по разным файлам (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c