Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.012 c