Что здесь не правильно ?

← →
Yakudza © (2003-10-14 11:26) [0]

if MyMemo = nil then
begin
MyMemo := TMemo.Create(frmStatus);
MyMemo.Parent := frmStatus;
MyMemo.Color := clBlack;
end;

Мемо не создаеться.

← →
Семен Сорокин © (2003-10-14 11:27) [1]

а может создается но его не видно?

← →
Семен Сорокин © (2003-10-14 11:27) [2]

а может создается но его не видно?

← →
Reindeer Moss Eater © (2003-10-14 11:32) [3]

MyMemo <> nil

← →
dmtr © (2003-10-14 11:40) [4]

> Reindeer Moss Eater © (14.10.03 11:32) [3]

При первом вызове = nil

У меня создается

var
MyMemo: TMemo;

procedure TForm1.Button1Click(Sender: TObject);
begin
if MyMemo = nil then
begin
MyMemo := TMemo.Create(form1);
MyMemo.Parent := Form1;
MyMemo.Color := clBlack;
end;
end;

← →
dmtr © (2003-10-14 11:44) [5]

Где у тебя объявленно MyMemo? Если локально, то не создаться, т.к. локальные переменные не обнуляются, соответственно условие if не выполнится. Объяви глобально или как член класса формы

← →
Семен Сорокин © (2003-10-14 11:45) [6]

2Yakudza
а может у тебя на frmStatus есть панелька (или другое что), под которой твой мемо и создается?

← →
Reindeer Moss Eater © (2003-10-14 11:46) [7]

Если код приведен правильно и мемо не создается, то
MyMemo <> nil

← →
Reindeer Moss Eater © (2003-10-14 11:47) [8]

var MyMemo : TMemo = nil;

← →
Юрий Зотов © (2003-10-14 11:48) [9]

> Yakudza © (14.10.03 11:26)
> Что здесь не правильно

Клавиша F8 отвечает на такие вопросы за 5 секунд. Гораздо быстрее, чем писать на форум.

← →
Yakudza © (2003-10-14 11:48) [10]

Вот так проверять можно MyMemo <> nil
а чего неззя MyMemo = nil, непонимаю..

← →
Reindeer Moss Eater © (2003-10-14 11:54) [11]

а чего неззя MyMemo = nil, непонимаю..

Можно. Что у тебя и делается. И при этом результат = False;

← →
dmtr © (2003-10-14 11:55) [12]

> Reindeer Moss Eater © (14.10.03 11:46) [7]
> Если код приведен правильно и мемо не создается, то
> MyMemo <> nil
>
>
> Reindeer Moss Eater © (14.10.03 11:47) [8]
> var MyMemo : TMemo = nil;

Вы не видите противоречий?

← →
app © (2003-10-14 11:57) [13]

Мы так и не дождемся рассказа про это секретное MyMemo

← →
Reindeer Moss Eater © (2003-10-14 11:57) [14]

dmtr ©
В упор не вижу

← →
Yakudza © (2003-10-14 11:57) [15]

2Семен Сорокин ©
>а может у тебя на frmStatus есть панелька (или другое что), >под которой твой мемо и создается?

Есть панелька .

← →
Yakudza © (2003-10-14 11:58) [16]

2Юрий Зотов © (14.10.03 11:48) [9]
Смотрел, не nil, непонятно, потому и спрашиваю.

← →
Reindeer Moss Eater © (2003-10-14 12:00) [17]

Мемо не создаеться.

Люди исходили из того, что не создаеться

← →
Yakudza © (2003-10-14 12:02) [18]

Я короче нифига уже непонимаю, из диалогов, заторбили :))

Но у меня уже все получаеться, спасибо, уже раздуплился, что не так и как надо :))

> Reindeer Moss Eater © (14.10.03 11:57) [14]
> dmtr ©
> В упор не вижу

Если при инициализации MyMemo = nil, то как мы сможем зайти в блок if для создания если проверяем на неравенство.

2 Yakudza ©
Где описано MyMemo!!!!!!!!!!!!!

Если при инициализации MyMemo = nil, то как мы сможем зайти в блок if для создания если проверяем на неравенство.

Вот так вот и зайдем с разбегу.
Потому что if вернет True

> Reindeer Moss Eater © (14.10.03 12:04) [20]

Вы хотите сказать, что если
MyMemo := nil;
if MyMemo <> nil then
мы окажемся в этом блоке?

Что здесь не правильно ? Найти похожие ветки