почему не работает

← →
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 будет иметь смысл.

Всем спасибо!
Наконец разобрался.
Надо было делать вот так :
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;

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

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

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

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