Ilya Osin
5/12/2005 8:33:00 AM
îÅ ÍÏÇÕ ÐÏÎÑÔØ, ÐÏÞÅÍÕ ×ÏÚÎÉËÁÅÔ ÏÛÉÂËÁ ÐÒÉ ÎÁÖÁÔÉÉ Button1 ... ðÏÍÏÇÉÔÅ
ÒÁÚÏÂÒÁÔØÓÑ.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
public
class1 : TMyClass;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
class1.pr1;
end;
end.
unit Unit2;
interface
Type TMyClass = class
public
s : string;
procedure pr1;
end;
implementation
procedure TMyClass.pr1;
begin
s:='New value';
end;
end.
úÁÒÁÎÅÅ ÂÌÁÇÏÄÁÒÅÎ.