powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / передача в процедуре в качестве параметра var TObject
8 сообщений из 33, страница 2 из 2
передача в процедуре в качестве параметра var TObject
    #39735725
Beltar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автортогда мне нужно использовать var

Да. Но вообще, тоже люблю процедуры писать, а потом их на функции переделывать, когда всё начинает выглядеть через одно место...

Кто-то использует with?? ЖуДь...
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39736007
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Beltar, удобно
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39736018
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BeltarКто-то использует with?? ЖуДь...

Код: pascal
1.
2.
3.
4.
    ObjectList[ObjectListCount].Methods := Methods;
    ObjectList[ObjectListCount].Fields := rttiType.GetFields;
    ObjectList[ObjectListCount].Properties := rttiType.GetProperties;
    ObjectList[ObjectListCount].IndexedProperties := IndexedProperties;



Либо же

Код: pascal
1.
2.
3.
4.
5.
6.
7.
  with ObjectList[ObjectListCount] do
  begin
    Methods := Methods;
    Fields := rttiType.GetFields;
    Properties := rttiType.GetProperties;
    IndexedProperties := IndexedProperties;
  end;



Ой какая жуть!
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39736084
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ГирлионайльдоЛибо же

Код: pascal
1.
2.
3.
4.
5.
6.
7.
  with ObjectList[ObjectListCount] do
  begin
    Methods := Methods;
    Fields := rttiType.GetFields;
    Properties := rttiType.GetProperties;
    IndexedProperties := IndexedProperties;
  end;



Ой какая жуть!Либо
Код: pascal
1.
2.
3.
4.
5.
    RTTIObj := ObjectList[ObjectListCount];
    RTTIObj.Methods := Methods;
    RTTIObj.Fields := rttiType.GetFields;
    RTTIObj.Properties := rttiType.GetProperties;
    RTTIObj.IndexedProperties := IndexedProperties;


Без всякой неоднозначности и глюков отладчика.
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39736146
Beltar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я раньше использовал, теперь наоборот, набрал имя объекта, поставил точку и смотришь, как же зовут это очень нужное поле.

Код: pascal
1.
2.
3.
4.
5.
    RTTIObj := ObjectList[ObjectListCount];
    RTTIObj.Methods := Methods;
    RTTIObj.Fields := rttiType.GetFields;
    RTTIObj.Properties := rttiType.GetProperties;
    RTTIObj.IndexedProperties := IndexedProperties;



Именно!
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39736267
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Beltar,

А я скажу больше. Переходишь в begin ... end и нажимаешь ctrl + пробел. Или просто начинаешь набирать текст, и он автоматически подхватывает всё
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39737301
Beltar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Например то, что относится к форме, если код находится в одном из ее методов. Ну или иного класса. Он же не знает, хочешь ты с этого класса что-то взять, или с того, что через with идет.

Я вообще не расстроюсь, если with исключат из языка.
...
Рейтинг: 0 / 0
передача в процедуре в качестве параметра var TObject
    #39737407
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BeltarЯ вообще не расстроюсь, если with исключат из языка.
С введением инлайн переменных, если уже можно делать так
Код: pascal
1.
2.
with var v := some.very.long.construction do
  v.somemethod


Не исключено
...
Рейтинг: 0 / 0
8 сообщений из 33, страница 2 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / передача в процедуре в качестве параметра var TObject
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]