Имена компонентов....

← →
Manulo © (2002-10-22 11:19) [0]

Фишка такая, в проекте используеться 8 ServerSocket... Понятное дело, множество функций и процедур касательно этих компонент очень сильно перекликаються друг с другом... Отличие сосотоит только в том, какая именно компонента используется в данной процедуре. Например:

procedure btnClick (Sender ...); var i : byte; begin i:=StrToInt(Edit1.text); case i of 1 : ServerSocket1.open; 2 : ServerSocket2.open; 3 : ServerSocket3.open; 4 : ServerSocket4.open; 5 : ServerSocket5.open; 6 : ServerSocket6.open; 7 : ServerSocket7.open; 8 : ServerSocket8.open; end; end;
Так вот вопрос, как можно избежать повторения одних и тех же строк, отличающихся по сути только именем компонента? То есть как сделать некую процедуру ServerSocketOpen (i : byte);, которая по указанному ключу активировала компонент ServerSocketN, где вместо N -- ключ, передаваемый в процедуру?

← →
Skier © (2002-10-22 11:20) [1]

>Manulo
FindComponent(...) ?

← →
Smithson © (2002-10-22 11:26) [2]

Создай массив var Sockets: Array[1..8] of TserverSocket и дальше твой case превратиться в
i:=StrToInt(Edit1.text);
Sockets[I].Open;

← →
Manulo © (2002-10-22 11:32) [3]

Хорошо, допустим компонент я нашёл, а как получить доступ к его свойствам (Я не имею в виду свойства типа Create, Destroy, который из определения присущи любому компоненту, а именно его личные свойства, как в данном случае процедура Open

← →
Skier © (2002-10-22 11:36) [4]

>Manulo
Кастинг ? :)

← →
Peter Gluhiy © (2002-10-22 11:43) [5]

Manulo © (22.10.02 11:32)
TServerWinSocket(Component).Open

Skier
Это ты такой лаконичный, или просто решил поза!!!вать? :)
Поподробнее можна?

Peter Gluhiy
Skier
Дякую, Хлопці (укр.) -- пасибки, Мастера :)

Имена компонентов.... Найти похожие ветки