Тогда такой вопрос: for i:=0 to servers.count-1 do Begin Server:=servers.data[i]; Port:=Server.AddCards.AddPort; Port.keydata['inservice']:=False; End; ... AddCards возвратит TPorts У Tports

Question

Тогда такой вопрос: for i:=0 to servers.count-1 do Begin Server:=servers.data[i]; Port:=Server.AddCards.AddPort; Port.keydata['inservice']:=False; End; ... AddCards возвратит TPorts У Tports

есть метод AddPort и возвращает Tport

Тоже ведь обычное дело?
На каждый сервер в списке добавит по tports и по одному tport с Inservise=false

#lazarus #programming #russian

0

27.09.2021

4 ответов

28 просмотров

Alexey Shumkin

получается, что ты рулишь внутренностями сервера/портами "снаружи".. по сути, устанавливаешь поля класса вне самого класса - это ппц как неправильно с точки зрения контроля

0

27.09.2021

Renat Suleymanov

Тут смотреть в контексте надо. Кстати, присваивание False полю это инициация? Тогда ее можно внедрить в конструктор объекта TPort. Вернее даже не нужно это делать, так как итак проинициируется этим значением. AddCards неговорящее название функции. Вернее неправильно говорящие. Я бы все-таки сделал просто Cards (необязательно как свойство, можно оставить функцию) ну или GetCards

0

27.09.2021

Hemul GM

for i := 0 to Servers.Count - 1 do with Servers.Data[i].AddPort do KeyData['inservice'] := False;

0

27.09.2021

Alexey Shumkin · Accepted Answer

Alexey Shumkin

нет, не обычное ))) нарушается принцип инкапсуляции

0

27.09.2021

169 похожих чатов

Тогда такой вопрос: for i:=0 to servers.count-1 do Begin Server:=servers.data[i]; Port:=Server.AddCards.AddPort; Port.keydata['inservice']:=False; End; ... AddCards возвратит TPorts У Tports

4 ответов

Похожие вопросы