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

почему не работает   Найти похожие ветки 

← →
Wistful ©   (2005-02-28 23:22) [0]

здесь все работает :
procedure TForm1.Button1Click(Sender: TObject);
begin
   MyMemo[KolUser]:=TMemo.Create(Self);
end;

А вот так не работает :
procedure AddTab(s:string);
begin
 MyMemo[KolUser]:=TMemo.Create(self);
end;

Ошибка : не описана переменная Self

---

← →
Leonid Troyanovsky ©   (2005-02-28 23:27) [1]

> Wistful ©   (28.02.05 23:22)  
> здесь все работает :
> procedure TForm1.Button1Click(Sender: TObject);

> А вот так не работает :
> procedure AddTab(s:string);

> Ошибка : не описана переменная Self


Within the implementation of a method, the identifier Self references the object in which the method is called.

--
Regards, LVT.

---

← →
jack128 ©   (2005-02-28 23:30) [2]

Любопытно, как ты можешь использовать псевдо переменную Self даже не зная, что это такое?

В первом случае ты реальзуешь МЕТОД, в котором Self имеет смысл, а во второом - процедуры, по отнашению к которой Self бессмысленен.  
Тебе бы книжку почитать - это самые азы.

---

← →
Simply Alex   (2005-03-01 00:09) [3]

Включи "procedure AddTab(Sender: TObject; S: String);" в реализацию формы, тогда Self будет иметь смысл.

---

← →
Wistful ©   (2005-03-01 01:09) [4]

Всем спасибо!
Наконец разобрался.
Надо было делать вот так :
type
 TForm1 = class(TForm)
   procedure AddTab(s:string);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

и дальше

procedure TForm1.AddTab(s:string);
begin
 MyMemo[KolUser]:=TMemo.Create(self);
end;

у меня с английским плоховато .. :(

---

← →
Германн ©   (2005-03-01 02:10) [5]

2 Wistful ©   (01.03.05 01:09) [4]
> у меня с английским плоховато .. :(

Именно поэтому jack128 ©   (28.02.05 23:30) [2] и посоветовал:
> Тебе бы книжку почитать - это самые азы.
Книжек на русском, в которых это (и многое другое полезное) описано - множество. Найди хотя бы одну.

---

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

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



Память: 0.46 MB
Время: -0.977 c