Главная страница
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.02 c
14-78652
Николай Быков
2002-10-04 16:48
2002.10.24
I hate the third companies components


3-78238
Tat
2002-10-01 11:20
2002.10.24
Live result set + SQL


1-78347
AL2002
2002-10-14 14:57
2002.10.24
RichEdit.SelAttributes


3-78307
hogo
2002-10-02 08:56
2002.10.24
ADO и Paradox


1-78349
MikeFW
2002-10-14 17:53
2002.10.24
Архивация файлов