Вниз
Скачать: 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-97695
zeppelin
2003-06-17 19:03
2003.06.30
Использование чужих OCX файлов.


6-97767
Dober_m@N
2003-04-12 04:57
2003.06.30
как узнать IP если их несколько на 1 компьютере


14-97830
Bboy
2003-06-12 10:25
2003.06.30
Вот бы поменять все буквы с больших на маленькие...


1-97700
marat_ch
2003-06-18 02:11
2003.06.30
Thread


7-97909
LikeLamer
2003-04-21 10:24
2003.06.30
Вызов свойства компонента из его контекстного меню




   Наверх