Вау...ЭТО РАБОТАЕТ...спасибки...спасибки...спасибки...!!!
1.) Дмитрий..., возможно Ваш выше стоящий скрипт усовершенствовать...
RZ-007 пишет:
Доброго времени суток!!!
У меня на форме 500-едитов...заполнены целыми числами от 1 до 50...!!!
Как по клику на битон...подсчитать сколько едитов заполненно например числом: 7
и отобразить в лабер...???
подсчитать сколько едитов заполненно например числом: 7 и отобразить в лабер
НО ПРИ УСЛОВИИ :
Конкретно перечислить в скрипте у каких имено едитов нужно производить расчёт...
В ИДЕАЛЕ БЫЛО БЫ: я хочу добавить несколько CheckBox, которые будут на форме 1
управлять едитоми...делать определённое количество едитов видемые или невидемые,
т.е. делать расчёт у тех едитов, которы видны на форме 1...???
2.) У меня на форме 500-едитов...заполнены целыми числами от 1 до 50...!!!
собираюсь прописать такой скрипт:
procedure Form1_Edit1_OnChange (Sender: string);
begin
if Form1.Edit1.Text ='0' then Form1.Edit1.Color:= clLime;
if Form1.Edit1.Text ='1' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='2' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='3' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='4' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='5' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='6' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='7' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='8' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='9' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='10' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='11' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='12' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='13' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='14' then Form1.Edit1.Color:= clRed;;
if Form1.Edit1.Text ='15' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='16' then Form1.Edit1.Color:= clRed;;
if Form1.Edit1.Text ='17' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='18' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='19' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='20' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='21' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='22' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='23' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='24' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='25' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='26' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='27' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='28' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='29' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='30' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='31' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='32' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='33' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='34' then Form1.Edit1.Color:= clRed;
if Form1.Edit1.Text ='35' then Form1.Edit1.Color:= clBlack;
if Form1.Edit1.Text ='36' then Form1.Edit1.Color:= clRed;
end;
Вопрос: я собираюсь прописывать этот скрипт для каждого едита...,
А ИХ ВСЕГО 500 шт.....Есть способ, как то упростить скрипт...???