"Антоним" процедуры на событи Create

← →
Mariya (2007-10-12 07:47) [0]

Подскажите, плз, вот Create создать, а какая есть процедура, наоборот не создавать

← →
ЮЮ © (2007-10-12 08:12) [1]

> а какая есть процедура, наоборот не создавать

Не вызывать процедуру Create :)
Если в качестве, типа создать/не создавать, то DoCreate: boolean.

З.Ы. Извини, какой вопрос, такой ответ :)

← →
ЮЮ © (2007-10-12 08:14) [2]

Ник вроде русский, а выражаещь мысль на непонятеом (без бутылки) языке

← →
Skyle © (2007-10-12 08:40) [3]

Destroy?

← →
Mariya (2007-10-12 08:50) [4]

У меня в цикле программно создаются button-ы, а мне нужно написать, что при условии (каком-нибудь не создавать)... не создавать

← →
Kolan © (2007-10-12 08:53) [5]

> (каком-нибудь не создавать)&#133 не создавать

if условие then TButton.Create else {Ничего не надо делать, то есть не создавать}

ЗЫ
Ессо else вообще не нужен&#133

← →
ЮЮ © (2007-10-12 08:54) [6]

> а мне нужно написать, что при условии (каком-нибудь не создавать)
> ... не создавать

Замени на
при определенном условии создавать button-ы
тогда останется только
if DoCraete then begin
<создание кнопки>
end;

← →
Mariya (2007-10-12 08:57) [7]

У меня if FileExists(.........) then не создавать
else создавать

← →
Zeqfreed © (2007-10-12 08:59) [8]

Изучаем булевы операторы. В частности оператор not.

← →
ЮЮ © (2007-10-12 09:00) [9]

if not FileExists(.........) then begin
создавать
end;

Если настаиваешь, то не создавать = ничего не писать по then

if FileExists(.........) then
else begin
создавать
end;

← →
MBo © (2007-10-12 09:01) [10]

Ложится программист спать, ставит на тумбочку 2 стакана - с водой и пустой. Полный - если пить захочет, пустой - а вдруг не захочет...

← →
Ega23 © (2007-10-12 09:11) [11]

> Ложится программист спать, ставит на тумбочку 2 стакана
> - с водой и пустой. Полный - если пить захочет, пустой -
> а вдруг не захочет...

А админ 4 ставит. 2 пустых и 2 полных. Один полный - если захочет пить. Один пустой - если не захочет. А остальные два - бэкап.

← →
Mariya (2007-10-12 09:28) [12]

Подскажите, if not FileExists(Ini.ReadString("Prog", "Prog"+InttoStr(i)+"", " ")) then так можно? Вообще Мне нужно проверить в секции [Prog] есть ли Prog1=... и вот мне надо если этого Prog1=... нет, не прописан, то кнопку не рисовать. Или вообще идеальный вариант, если написан Prog1="несуществующая программа", чтобы тоже не создавал

← →
clickmaker © (2007-10-12 09:32) [13]

if FileExists() then
Btn := TButton.Create(Self);

← →
Игорь Шевченко © (2007-10-12 09:34) [14]

> Подскажите, плз, вот Create создать, а какая есть процедура,
> наоборот не создавать

TButton.DontCreate(AOwner: TComponent);

НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!

← →
ЮЮ © (2007-10-12 09:35) [15]

> если написан Prog1="несуществующая программа", чтобы тоже
> не создавал

Надеюсь, при этом файла "несуществующая программа" на диске нет? :)
Чего тогда боишься?

← →
Kolan © (2007-10-12 09:36) [16]

Вопревых тебя наверно то, что считано из ини еще понадобится, поэтому лучьше его сразу сохранить, чтобы сто раз не читать:

Сранно что такое " "  непонятно&#133 Наверно лучьше ""?
Value := Ini.ReadString("Prog", "Prog"+InttoStr(i)+"", "");

Далее
if (Value <> "") and (Value <> "несуществующая программа") then TButton.Create(&#133)

Или если я не правильно понял про «несуществующая программа», то

if (Value <> "") and (FileExists(Value)) then TButton.Create(&#133)

← →
Mariya (2007-10-12 09:38) [17]

> НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!

Сама бы рада! Никто не хочет, вот Вы к нам приедете? В городок в Киргизстане, где численность населения 2000 человек??? И откуда здесь программисты?

← →
ЮЮ © (2007-10-12 09:40) [18]

> У меня if FileExists(.........) then не создавать
> else создавать

Т.е. кнопочки создаем для несуществующих и не найденных программ, а по нажатии на них их будем пытаться выполнить? Странная логика :)

← →
Ega23 © (2007-10-12 09:41) [19]

Удалено модератором

← →
Mariya (2007-10-12 09:41) [20]

FileExists(Ini.ReadString("Prog", "Prog"+InttoStr(i)+"", " ")) что насчет этого? Как мне обратиться к Prog[i]?

← →
clickmaker © (2007-10-12 09:43) [21]

> [20] Mariya (12.10.07 09:41)

а для чего программа?

← →
ЮЮ © (2007-10-12 09:46) [22]

> В городок в Киргизстане, где численность населения 2000
> человек??? И откуда здесь программисты?

А зачем компьютер?

В конце концов в папку Windows набросай ярлыков нужных программ - и не нужна будет твоя супер-пупер программв.

> [19] Ega23 © (12.10.07 09:41)
> Не трогайте Марину, она меня целовать обещала!

Выезжай в Киргизстане, на месте и программу сбацаете !!!

← →
Kolan © (2007-10-12 09:46) [23]

> Сама бы рада!

*Шепотом* Нанять программиста можно и через интернет. :)

> FileExists(Ini.ReadString("Prog", "Prog"+InttoStr(i)+"",
> " ")) что насчет этого? Как мне обратиться к Prog[i]?

Так ты же уже научилась? Сама написала InttoStr(i), в чем вопрос?

← →
ЮЮ © (2007-10-12 09:54) [24]

Удалено модератором

← →
Mariya (2007-10-12 10:17) [25]

В общем не работает, перепробывала все варианты, что-то неправильно делаю... При заработной плате 1 доллар в день, нанимать программиста? Не могу себе позволить такое!!!

← →
clickmaker © (2007-10-12 10:21) [26]

> [25] Mariya (12.10.07 10:17)

так а все-таки: для чего предназначена эта чудо-программа?
неужели нет готовых аналогов, возможно даже бесплатных?

← →
ЮЮ © (2007-10-12 10:23) [27]

> В общем не работает, перепробывала все варианты, что-то
> неправильно делаю...

Что не работает то?
Кнопки не создаются? Программы не запускаются?

← →
Mariya (2007-10-12 10:31) [28]

> предназначена эта чудо-программа

навигатор, фигов, зачем, не знаю! Типа, юзеров несколько, у кого-то 7 программ ему нужных (вообще баз), а ненужные у него не установлены, у кого-то 5 и т.д.... И вот, надо, чтобы каждый открывал, у него на форме были только те кнопки с названиями программ, которые у него есть, а остальные чтобы даже не рисовались!
> Кнопки не создаются? Программы не запускаются?

Кнопки создаюся, все! А мне не все нужны! Которым нет записи в ини файле, всмысле Prog не написан или написанное не существует, не создавались!
for i:=1 to 8 do
if FileExists(Ini.ReadString("Prog", "Prog"+InttoStr(i)+"", " ")) then
else

begin
btn[i]:=TMyButton.Create(Form1);
btn[i].Parent:=Form1;
btn[i].Caption:=Ini.ReadString("Button", "Cap"+IntToStr(i)+"", " ");
btn[i].Left:=Cons.ReadInteger("Button", "left", 200 );
btn[i].Top:=Cons.ReadInteger("Button", "Top"+InttoStr(i)+"", 70 + (45*(i-1)));
btn[i].Height:=Cons.ReadInteger("Button", "Height", 30);
btn[i].Width:=Cons.ReadInteger("Button", "Width", 160);
btn[i].Visible:=True;
btn[i].OnClick:=ButtonClick;
btn[i].Prog:=Ini.ReadString("Prog", "Prog"+InttoStr(i)+"", " ");

> Mariya (12.10.07 10:31) [28]

Посмотрите почту

> Типа, юзеров несколько, у кого-то 7 программ ему нужных
> (вообще баз), а ненужные у него не установлены, у кого-то
> 5 и т.д....

а это не user ли profile, часом?
зачем делать лишнюю работу, если она операционной системой уже проделывается?

>Кнопки создаюся, все! А мне не все нужны!

Это говорит лишь о том, что
1) ini не найден
2) нет ни одной программе в "сканируемой" директории

else убери. кнопки должны создаваться по then

Удалено модератором

← →
Ping (2007-10-12 10:53) [33]

Типа, юзеров несколько, у кого-то 7 программ ему нужных (вообще баз), а ненужные у него не установлены, у кого-то 5 и т.д.... И вот, надо, чтобы каждый открывал, у него на форме были только те кнопки с названиями программ, которые у него есть, а остальные чтобы даже не рисовались!

Каждому пользователю на рабочий стол - ярлыки от нужных ему программ.
И все.
Зачем тут вообще программа?!

Удалено модератором

> Mariya (12.10.07 10:31) [28]

> И вот, надо, чтобы каждый открывал, у него на форме были
> только те кнопки с названиями программ, которые у него есть,
> а остальные чтобы даже не рисовались!

Пока понятно

> if FileExists(Ini.ReadString("Prog", "Prog"+InttoStr(i)+"",
> " ")) then
> else
>
> begin
> btn[i]:=TMyButton.Create(Form1);

А вот здесь уже не понятно. По условию "которые у него есть", а в программе кнопки для "остальные"...

PS. Я конечно понимаю, что конференция "начинающим", но должны же быть какие-то сведения об основах и хоть какие-то зачатки логики...

> и хоть какие-то зачатки логики...

Ты слишком требователен

> Игорь Шевченко (12.10.2007 09:34:14) [14]

Предлагали, сказали дорого.

> Скупой платит дважды :)

Пойду работать к скупому...

> Игорь Шевченко (12.10.2007 12:22:38) [38]

Правильно, купят дешевого, сменят Марию на Марио.
Лучше совсем не покупать.

"Антоним" процедуры на событи Create Найти похожие ветки