ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / передача в процедуре в качестве параметра var TObject
33 сообщений из 33, показаны все 2 страниц
  все  
передача в процедуре в качестве параметра var TObject
    #39731844
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Где-то читал, что ссылочным типам не нужно ставить var

Есть у меня процедура

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure SetObjectData(var AObject: TObject; var AIndex: integer);
begin
 
    if AObject is TFDQuery then begin
      with (Aobject as TFDQuery) do begin
        Params[0].Values[AIndex]:= DT_START;
      end;
    end;

         
      TObjectQueue.Enqueu(AObject);
      AObject:= TObjext.Create;
      AIndex:= 0;
end;



И правильно ли я понимаю, что при создании нового объекта внутри этой процедуры я получаю новую ссылку и тогда мне нужно использовать var
А может переписать этот говнокод? А то ссылка на ссылку не очень. Но напишите, не просто переписать!! а как вы думаете лучше переписать?
...
Рейтинг: 0 / 0
12.11.2018, 16:11
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731855
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Pointer - PInteger - PString = Не нужен var

Правильное присвоение по указателю
Код: pascal
1.
PVar^ := ValueCurrType;



TObject - Integer - String =var Нужен (Исключительно когда надо вернуть из процедуры по параметру)

Так как это прямые значения.
...
Рейтинг: 0 / 0
12.11.2018, 16:25
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731864
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
cptngrb,

 
Где-то читал, что ссылочным типам не нужно ставить var
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure SetObjectData( pFDQuery: Pointer; var AIndex: integer);
var
   _FDQuery: TFDQuery;
begin
   _FDQuery:=pFDQuery;
   _FDQuery^.Params[0].Values[AIndex]:= DT_START;
  ...
end

где-то в далёкой-далекой галлактике...
 SetObjectData(@myFDQuery,  myIndex);



...
Рейтинг: 0 / 0
12.11.2018, 16:33
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731867
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
Gerasimenkocptngrb,

 
Где-то читал, что ссылочным типам не нужно ставить var
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure SetObjectData( pFDQuery: Pointer; var AIndex: integer);
var
   _FDQuery: TFDQuery;
begin
   _FDQuery:=pFDQuery;
   _FDQuery^.Params[0].Values[AIndex]:= DT_START;
  ...
end

где-то в далёкой-далекой галлактике...
 SetObjectData(@myFDQuery,  myIndex);




Промахнулся малость
var
_FDQuery: ^TFDQuery;
...
Рейтинг: 0 / 0
12.11.2018, 16:35
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731873
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Gerasimenko,

Зачем делать внутри функции ещё одну переменную ? Если в объявление аргументов можно было бы задать данный тип
...
Рейтинг: 0 / 0
12.11.2018, 16:38
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731880
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Gerasimenko, при таком и мой код будет работать, а если добавить строчку

Код: pascal
1.
new(_FDQuery);



То что получиться?
...
Рейтинг: 0 / 0
12.11.2018, 16:46
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731882
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
ГирлионайльдоGerasimenko,

Зачем делать внутри функции ещё одну переменную ? Если в объявление аргументов можно было бы задать данный тип
Потому что Pointer при передаче параметров должен оставаться Pointer - ом. Особенно в сложных конструкциях...
Сугубо личное...
...
Рейтинг: 0 / 0
12.11.2018, 16:48
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731887
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Gerasimenko,

Полный бред. Сейчас я тебе это докажу

- Он в любом случае будет Pointer

Просто компилятор будет знать, что с этим типом делать дальше.
...
Рейтинг: 0 / 0
12.11.2018, 16:49
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731888
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
cptngrb,

Может ты пойдёшь сначала писать программки уровня А + Б ? Так как явное непонимание
...
Рейтинг: 0 / 0
12.11.2018, 16:50
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731890
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
ГирлионайльдоGerasimenko,

Полный бред. Сейчас я тебе это докажу

- Он в любом случае будет Pointer

Просто компилятор будет знать, что с этим типом делать дальше.

Case myTypeObject of ...
...
Рейтинг: 0 / 0
12.11.2018, 16:51
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731895
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Gerasimenko,

К чему такие костыли ?

Код, объявленной переменной, в скомпилированном виде, будет иметь тип Uint32 или 64 в 64bit-ном компиляторе

Что предполагает, что бессмысленно объявлять вторую переменную
...
Рейтинг: 0 / 0
12.11.2018, 16:56
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731902
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
ГирлионайльдоGerasimenko,

К чему такие костыли ?

Код, объявленной переменной, в скомпилированном виде, будет иметь тип Uint32 или 64 в 64bit-ном компиляторе

Что предполагает, что бессмысленно объявлять вторую переменную
Я ничего не предлагаю. Я показал один из вариантов. В сложных конструкциях очень удобный. В простых, используемый для однообразия (удобства читаемости) кода. Вы поступайте, как Вам угодно
...
Рейтинг: 0 / 0
12.11.2018, 17:01
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731913
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Gerasimenko,

Ну ладно, ладно. Я не ожидал такого подхода, как всовывание более 1 хрена в одну щель
...
Рейтинг: 0 / 0
12.11.2018, 17:07
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731917
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
ГирлионайльдоGerasimenko,

Ну ладно, ладно. Я не ожидал такого подхода, как всовывание более 1 хрена в одну щель
Ты даже не понял, о чем я... Ну да ладно...
...
Рейтинг: 0 / 0
12.11.2018, 17:11
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731937
Фэйтл Эра
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фэйтл Эра
Участник
cptngrbИ правильно ли я понимаю, что при создании нового объекта внутри этой процедуры я получаю новую ссылку и тогда мне нужно использовать var
Да, если тебе нужно, чтобы в вызываемом коде ссылке, преданная как параметр в эту процедуру, тоже стала указывать на созданный в пооцедуре объект.
...
Рейтинг: 0 / 0
12.11.2018, 17:37
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39731942
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
cptngrbИ правильно ли я понимаю, что при создании нового объекта внутри этой процедуры я получаю новую ссылку и тогда мне нужно использовать var Правильно
cptngrbА может переписать этот говнокод? А то ссылка на ссылку не очень. Но напишите, не просто переписать!! а как вы думаете лучше переписать? Либо эта процедура вовсе не нужна, либо ей не хватает нескольких вещей:
1. нормальное название, а то нихрена не понятно нафига она
2. Типизированные входящие и выхлопные аргументы (нафига один аргумент использовать для данных разных типов?)
3. Описать, что ты хочешь этой процедурой достичь. Хотя бы для себя.
...
Рейтинг: 0 / 0
12.11.2018, 17:39
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732001
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
GerasimenkoТы даже не понял, о чем я... Ну да ладно...

Я понял что ты в одну дырку любишь пихать всё подрят, и думать только потом, о последствиях
...
Рейтинг: 0 / 0
12.11.2018, 18:35
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732015
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Dimonka,
1. я в этой процедуре присваиваю данные моему объекту
2. используется разные параметры, т.к. использую разные объекты для Windows и Linux
3. хотя бы для себя я уже все описал))
...
Рейтинг: 0 / 0
12.11.2018, 18:57
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732016
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Гирлионайльдо,
я так и пишу A+ Б
захотел добавить умножение, а Вы какашкой кидаетесь
...
Рейтинг: 0 / 0
12.11.2018, 18:58
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732018
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
cptngrb,

Если ты создаёшь объект, то возвращай его через Result обычный function
...
Рейтинг: 0 / 0
12.11.2018, 18:59
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732020
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
и как я понял, вариант с параметром pointer остался как самый красивый и только для тех, кто умеет уже писать программы сложнее А+Б.
Спасибо
...
Рейтинг: 0 / 0
12.11.2018, 19:00
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732368
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
cptngrbDimonka,
1. я в этой процедуре присваиваю данные моему объектуЗвучит примерно как: чтобы написать программу, я стучу пальцами по клавиатуре.

cptngrb2. используется разные параметры, т.к. использую разные объекты для Windows и LinuxИспользуй разные процедуры, если не можешь типизировать в одной. Либо делай фасады для платформенных обьектов с единым интерфейсом.

Все твои потуги с Pointer - лишь усугубят всю неправильность ситуации.
...
Рейтинг: 0 / 0
13.11.2018, 12:54
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732580
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Dimonka, если вы не стучите по клавиатуре, когда пишите программу, то мое вам почтение.
По поводу разных разных процедур. Я хочу разные процедуры объединить в одну и для этого решил использовать TObject в качестве параметра вместо TOracleQuery и TFDQuery. Работает это, в моем случае, если параметр передавать как var AObject: TObject , то на первый взгляд работает как надо. У форумчан хотелось узнать, что можно ли так делать? (это раз) нужно ли так делать? (это два).
Какие грабли впереди...

Dimonkaделай фасады для платформенных обьектов с единым интерфейсом
примерно такое и хотелось услышать желательно с примером
...
Рейтинг: 0 / 0
13.11.2018, 17:06
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39732967
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
cptngrbDimonkaделай фасады для платформенных обьектов с единым интерфейсом
примерно такое и хотелось услышать желательно с примером

Ну так сделай интерфейс для управления своими запросами:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
TMyQueryFacade = class
protected
  // Здесь ты в наследнике напишешь для каждого платформенного типа TQuery свой код для изменения параметров запроса
  function GetQueryParameters(AIndex: integer): variant; virtual;
  procedure SetQueryParameters(AIndex: integer; AValue: variant); virtual;
public
  property Query: TQuery read FQuery; // Здесь он будет возвращать  TQuery зависящий от платформы
  property QueryParameters[AIndex: integer]: variant read GetQueryParameters write SetQueryParameters; 
  // если классы TOracleQuery и TFDQuery сильно отличаются можно добавить любые свойства в фасад для единообразного управления запросами
  property SQL: string read GetSQL write SetSQL; 
end;
...
Рейтинг: 0 / 0
14.11.2018, 13:28
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39733107
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Dimonka, так и сделаю, когда надоест процедуры шлепать
...
Рейтинг: 0 / 0
14.11.2018, 16:31
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39735725
Beltar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beltar
Участник
автортогда мне нужно использовать var

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

Кто-то использует with?? ЖуДь...
...
Рейтинг: 0 / 0
20.11.2018, 16:04
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39736007
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
Beltar, удобно
...
Рейтинг: 0 / 0
21.11.2018, 11:37
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра 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
21.11.2018, 11:47
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39736084
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
21.11.2018, 13:20
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39736146
Beltar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
21.11.2018, 14:24
| Ответить | Цитировать | Написать  
передача в процедуре в качестве параметра var TObject
    #39736267
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Beltar,

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

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


Не исключено
...
Рейтинг: 0 / 0
23.11.2018, 11:37
| Ответить | Цитировать | Написать  
33 сообщений из 33, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / передача в процедуре в качестве параметра var TObject
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2040086]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 162ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 227ms
total:  493ms
созд. / загр.: 493ms
x
x
Закрыть


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