[lnkForumImage]
TotalShareware - Download Free Software

Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

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.

úÁÒÁÎÅÅ ÂÌÁÇÏÄÁÒÅÎ.

4 Answers

Jerzy Mahnaty

5/12/2005 8:44:00 AM

0

× ÏÎËÒÉÔÅ:
class1:=TMyClass.Create;

Ilya Osin

5/12/2005 8:50:00 AM

0


"Jerzy Mahnaty" <eujene@ua.fm> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ:
news:d5v50d$4b8$1@news.ntu-kpi.kiev.ua...
> × ÏÎËÒÉÔÅ:
> class1:=TMyClass.Create;

óÐÁÓÉÂÏ, á ÍÏÖÎÏ ÓÄÅÌÁÔØ ÔÁË, ÞÔÏÂÙ ×ÓÅ ×ÈÏÄÑÝÉÅ × ËÌÁÓÓ ÏÂØÅËÔÙ ÓÁÍÉ ÐÏ
ÓÅÂÅ ÓÏÚÄÁ×ÁÌÉÓØ - ÜÔÏ ÖÅ ÌÏÇÉÞÎÏ...

Chapaev

5/12/2005 8:57:00 AM

0

iAIOUN. e IE?ACI IICE?IICI ? UOII IAO.

äÏÈÌÁÑ òÙÂËÁ" <"ser [delthis]

5/12/2005 10:57:00 AM

0

ðÒÉ×ÅÔ ÍÏÇÕÞÉÊ Ilya Osin, ÚÁÓÔÁ×ÌÑÀÝÉÊ Í£ÒÔ×ÙÈ ÄÒÏÖÁÔØ!
>> × ÏÎËÒÉÔÅ:
>> class1:=TMyClass.Create;
IO> óÐÁÓÉÂÏ, á ÍÏÖÎÏ ÓÄÅÌÁÔØ ÔÁË, ÞÔÏÂÙ ×ÓÅ ×ÈÏÄÑÝÉÅ × ËÌÁÓÓ ÏÂØÅËÔÙ
IO> ÓÁÍÉ ÐÏ ÓÅÂÅ ÓÏÚÄÁ×ÁÌÉÓØ - ÜÔÏ ÖÅ ÌÏÇÉÞÎÏ...
÷ÓÐÏÍÎÉ ÐÒÏ ÔÁËÕÀ ÛÔÕËÕ, ËÁË ËÏÎÓÔÒÕËÔÏÒ É ÐÒÏ ÔÏ ËÁË ÏÎ ×ÙÇÌÑÄÉÔ.

--
UnitÅd minds...
Connecting...