Вниз
Скачать: CL | DM;

Оптимизация кода   Найти похожие ветки 

← →
Vihr   (2003-06-18 21:12) [0]

Я новичок в этом деле, поэтому,ПОЖАЛУЙСТА, не смейтесь над моим вопросом, на каждый простой вопрос должен быть и простой ответ
Как можно оптимизировать эту образину:

Form1.Edit2.Text:="Введите число";
Form1.Edit3.Text:="Введите число";
Form1.Edit4.Text:="Введите число";
Form1.Edit5.Text:="Введите число";
Form1.Edit6.Text:="Введите число";
Form1.Edit7.Text:="Введите число";
Form1.Edit8.Text:="Введите число";
Form1.Edit9.Text:="Введите число";
Form1.Edit10.Text:="Введите число";
Form1.Edit11.Text:="Введите число";
Form1.Edit12.Text:="Введите число";
Form1.Edit13.Text:="Введите число";
Form1.Edit14.Text:="Введите число";
Form1.Edit15.Text:="Введите число";
Form1.Edit16.Text:="Введите число";
Form1.Edit17.Text:="Введите число";
Form1.Edit18.Text:="Введите число";
Form1.Edit19.Text:="Введите число";
Form1.Edit20.Text:="Введите число";


← →
Palladin ©   (2003-06-18 21:20) [1]

=8|


var
i:integer;
for i:=2 to 20 do
(Form1.FindComponent("Edit"+inttostr(i)) as TEdit).Text:="Введите число";


← →
Palladin ©   (2003-06-18 21:21) [2]

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


← →
Anatoly Podgoretsky ©   (2003-06-18 21:46) [3]

И самое главное совсем не нужный :-)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
1-97733
pupil
2003-06-17 21:40
2003.06.30
конец строки в RichEdit


14-97860
Caponid
2003-06-12 11:32
2003.06.30
Язык SQL самые основы - дайте ссылки


1-97720
QUE
2003-06-18 14:00
2003.06.30
Как избавиться от пунктирных линий при отрисовке ячеек StringGrid


3-97476
Term
2003-06-04 14:23
2003.06.30
Проблема с dbf файлом!!!


3-97508
Tanya
2003-06-05 13:19
2003.06.30
Нужно реализовать восстанавливаемость системы




   Наверх