Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

TOO LONG CODE   Найти похожие ветки 

 
Help Needer   (2002-10-10 09:47) [0]

Можно ли сократить этот код:

begin
With Edit1 do
begin
Enabled:=True;
Color:=clRed;
Text:="";
end;
With Edit2 do
begin
Enabled:=True;
Color:=clRed;
Text:="";
end
With Edit3 do
begin
Enabled:=True;
Color:=clRed;
Text:="";
end;
With Edit4 do
begin
Enabled:=True;
Color:=clRed;
Text:="";
end
End;

У всех EditBox я меняю одни и те же свойства на одни и те же значения. Только вот код у меня громоздкий. Не поможите упростить?


 
Alx2 ©   (2002-10-10 09:49) [1]

Конечно можно. Просто напиши отдельную процедуру для одного Edit, переданного как параметр. А потом ее вызови для нужных Edit


 
Skier ©   (2002-10-10 09:50) [2]

>Help Needer
Можно в цикле с использованием метода
владельца Edit-ов FindComponent(...)
А потом так :


with AFoundComponent as TEdit do begin
//бла-бла-бла
end; //with


 
Alx2 ©   (2002-10-10 09:52) [3]

>Help Needer (10.10.02 09:47)
>Alx2 © (10.10.02 09:49)

Получится примерно так: :)

procedure SetAttr(Edit : TEdit);
begin
with Edit do
begin
Enabled := True;
Color := clRed;
Text := "";
end;
end;

begin
SetAttr(Edit1);
SetAttr(Edit2);
SetAttr(Edit3);
SetAttr(Edit4);
end;


 
Skier ©   (2002-10-10 09:56) [4]

>Help Needer
А можно совсем просто, если ты
меняешь атрибуты у всех компонентов TEdit


 
X_Key   (2002-10-14 20:27) [5]

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


 
DarkGreen ©   (2002-10-15 05:47) [6]

2 Help Needer: А зачем его упрощать? Он и так простой донельзя. При чем самый быстрый :-) С процедурами и циклами будет медленней



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

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-78492
KLOP
2002-10-12 08:54
2002.10.24
Возможно ли в Делфях сварганить а-ля WinXP интерфейс ?


8-78532
GOGA44
2002-06-28 00:29
2002.10.24
шар


3-78258
Gaber
2002-10-02 10:10
2002.10.24
Данные из DBGrid


1-78319
GIL
2002-10-08 04:15
2002.10.24
FrontPage


14-78605
край
2002-10-01 21:19
2002.10.24
О жизни и смерти