Edit

← →
Poha (2005-01-20 07:42) [0]

Люди подскажите пожалуйста, как можно 50 Editов очистить в цикле???

← →
Kerk © (2005-01-20 07:45) [1]

http://delphimaster.net/view/1-1106194333/

===
LMD

← →
07BB:080Dh (2005-01-20 08:04) [2]

Kerk © (20.01.05 07:45) [1]

легко ты LMD раздаеш, если человек не знает чего то, это еще не чего не значит.

← →
Kerk © (2005-01-20 08:05) [3]

07BB:080Dh (20.01.05 8:04) [2]
при чем тут не знает? поиском не пользуется (такая тема на днях была) и одинаковые вопросы в разные конфы постит.

← →
КаПиБаРа © (2005-01-20 08:06) [4]

Текст в предсмерной записке:
LMD

:)

← →
Kerk © (2005-01-20 08:06) [5]

КаПиБаРа © (20.01.05 8:06) [4]
LOL

← →
07BB:080Dh (2005-01-20 08:35) [6]

Kerk © (20.01.05 08:05) [3]

скорее всего это студенты несколько человек получили одинаковое задание так что им поиск не ведом

← →
WondeRu © (2005-01-20 08:55) [7]

Kerk © (20.01.05 7:45) [1]
LMD

злой ты!

← →
Kerk © (2005-01-20 08:57) [8]

WondeRu © (20.01.05 8:55) [7]
ты недельку в "Основной" посиди.. не так озвереешь. :)))

← →
07BB:080Dh (2005-01-20 09:04) [9]

Kerk © (20.01.05 08:57) [8]
непосредственно перед зачетами в "Потрепаться" была тема "Помогать ли студентам". Пришли к выводу что если хочеш помогай, но будь готов к тому что надо будет терпеть элементарные вопросы. Мое ИМХО пора и в "Потрепаться" вводить поиск. Без обид ладно....

зы
)))))

← →
Alexander Panov © (2005-01-20 09:57) [10]

Edit1.Text :="";
Edit2.Text := "";
...
Edit50.Text := "";

и так любое количество Editов в цткле.

← →
Sandman25 © (2005-01-20 10:01) [11]

[10] Alexander Panov © (20.01.05 09:57)

Цикл лучше repeat until false, хотя можно и for.

← →
Alexander Panov © (2005-01-20 10:05) [12]

Ну вот, а я думал, что моя помощь будет самой весомой, а клиент, оказывается, в основной конфе уже решил вопрос.
http://delphimaster.net/view/1-1106194333/

← →
Kerk © (2005-01-20 10:06) [13]

07BB:080Dh (20.01.05 9:04) [9]
надо будет терпеть элементарные вопросы
опять же ПРИЧЕМ ТУТ ВОПРОСЫ? причем тут их сложность? поиск никто не отменял... в "Основной" одно и то же по 10 раз спрашивают.

← →
WondeRu © (2005-01-20 10:28) [14]

Kerk © (20.01.05 10:06) [13]
"Основной" одно и то же по 10 раз спрашивают.

могу сказать тоже самое и про WinApi (список вопросов на 1-й страницы вообще не меняется, тока форма подачи разная), наиболее интересные и разнообразные конфы: Игры и Базы! ИМХО!

← →
Kerk © (2005-01-20 10:32) [15]

WondeRu © (20.01.05 10:28) [14]
не... в винапи я тоже часто бываю.. :) по сравнению с "Основной" там свежак. :)

← →
Danilka © (2005-01-20 10:34) [16]

[12] Alexander Panov © (20.01.05 10:05)
Он его там неправильно решьи. Ему надо 50 едитов очистить, а тама ответы, которые очищают все едиты. :)

← →
Sandman25 © (2005-01-20 10:35) [17]

[16] Danilka © (20.01.05 10:34)

Точно. Надо счетчик завести, и как только очищено 50 едитов, выходить из процедуры :)

← →
Алхимик © (2005-01-20 10:38) [18]

Если ЕДИТОВ не хватит - на перезагрузку уходить.

← →
Kerk © (2005-01-20 10:41) [19]

Алхимик © (20.01.05 10:38) [18]
нееетт. надо сначала на других окнах поискать.. :)

← →
Alexander Panov © (2005-01-20 10:45) [20]

Kerk © (20.01.05 10:41) [19]
нееетт. надо сначала на других окнах поискать.. :)

И в окнах других приложений, так как своих может не хватить.

← →
07BB:080Dh (2005-01-20 11:32) [21]

Alexander Panov © (20.01.05 10:45) [20]

и по инету на всякий случай тоже Едиты явовские поискать

← →
Marser © (2005-01-20 12:06) [22]

> Sandman25 © (20.01.05 10:01) [11]
> [10] Alexander Panov © (20.01.05 09:57)
>
> Цикл лучше repeat until false, хотя можно и for.

Лучше классика - while true do
;-)

Я по привычке написал repeat until false, а имел в виду repeat until true, чтобы цикл ровно 1 раз выполнился

Sandman25 © (20.01.05 12:08) [23]
Не, использование циклов замедляет работу. Лучше последовательное выполнение операторов.

Вот человек придет и обрадуется! Как подробно ему ответ расписали! На 25 постов!

Вот у меня есть программа с исходником размером 1Гб, очень быстро должна работать, так как в ней нет циклов и прочей гадости. Но никак откомпилировать не могу-(

Smotri primer.

if Components[i] is TEdit then
begin
if (Components[i] as TEdit).Tag = 0 then
begin
(Components[i] as TEdit).Color := VGlobal.InfoColor.CouleurFondSaisie;
(Components[i] as TEdit).Font.Color := VGlobal.InfoColor.CouleurFonteSaisie;
//(Components[i] as TEdit).Font.Style:= [fsBold];
if (Components[i] as TEdit).PasswordChar <> #0 then
begin
(Components[i] as TEdit).Font.Name := "Wingdings";
(Components[i] as TEdit).Font.Size := 9;
(Components[i] as TEdit).CharCase := ecUpperCase;
end;
end;
end;

Edit Найти похожие ветки