Greetings All!
У меня есть процедура, которая описана так:

Код

procedure LoadVar(var gInt:integer;VarName:string);overload;

Но при попытке скормить ей Form.Top

Код

LoadVar(MainForm.Top,'MainFormTop');

Компилятор говорит:

Цитата

There is no overloaded version of 'LoadVar' than can be called with these arguments.

Хотя обычные интеджеровские переменные она обрабатывает нормально. Как обойти эту траблу?

Код

var  t: Integer; begin  t:= MainForm.Top;  LoadVar(t,'MainFormTop');  MainForm.Top:= t; end;

Или так:

Код

procedure LoadVar(gInt:pinteger;VarName:string); begin if VarName='' then gInt^:=gInt^+200; end; procedure TMainForm.Button1Click(Sender: TObject); begin LoadVar(@MainForm.Top,''); MainForm.Top:=MainForm.Top+1; MainForm.Top:=MainForm.Top-1; end;

alex-co
Так изврануться - не проблема, хоцца однообразия в процедурах, так, как написал Girder, за что ему большое спасибо.

Удалено модератором!

А ничего подобного - Girder не ответил на вопрос.

Код

procedure LoadVar(gInt:pinteger;VarName:string);begin if VarName='' then gInt^:=gInt^+200; end; procedure TMainForm.Button1Click(Sender: TObject); begin LoadVar(@MainForm.Top,''); MainForm.Top:=MainForm.Top+1; MainForm.Top:=MainForm.Top-1; end;

не канает т.к.
нада чтобы было

Код

procedure LoadVar(VAR gInt:pinteger;VarName:string);

Пацаны, дак ведь все эти топы и лефты это не переменные (хотя у них даже тип есть) это - своиства, хранящие данные в полях типа Ftop, Fleft о осуществляющие доступ через методы
Я сделал так:

Код

procedure MyProc(var VF: Tform1);    overload; begin  VF.Top:=VF.Top-1; end; procedure TForm1.Button1Click(Sender: TObject); begin MyProc(Form1); end;

или так

Код

procedure MyProc( VF: TObject);    overload; begin  if VF is TForm1 then  (VF as TForm1).Top:=(VF as TForm1).Top-1; end; procedure TForm1.Button1Click(Sender: TObject); begin MyProc(Form1); end;

Кстати а кто объяснит зачем нужен этот overload;
УДАЧИ

Это сообщение отредактировал(а) Pegas - 1.7.2004, 07:47

А ты знаеш разницу !!!, между

Код

var gInt:integer

и

Код

gInt:pinteger

Когда увидел код Girderа, был удивлен, и считал что это даже не должно скомпилиться. Поясню почему: Дело в том, что Top это свойство а не переменная и не поле. Т.е. сущность которая вообще-то не имеет адреса. Поэтому, применение к ней оператора @ по моему невозможно.
Кстати, именно по этой причине нельзя передавать свойство как var параметр.
Однако, решил проверить. Был крайне удивлен, когда выяснилось что мнение компилятора отличается от моего . Приведенный Girderом пример РАБОТАЕТ. Однако, более подробное изучение вопроса показало, что этот код работает ТОЛЬКО если есть операторы

Код

MainForm.Top:=MainForm.Top+1; MainForm.Top:=MainForm.Top-1;

Если их убрать, то код перестает работать.
Решил разобраться.
Свойство Top у tControl который является предком tForm описано так:

Код

property Top: Integer read FTop write SetTop;

При выполнении

Код

LoadVar(@MainForm.Top,'');

в LoadVar передается адрес поля FTop, что по сути НЕПРАВИЛЬНО. Следовательно, внутри LoadVar, все манипуляции проводятся с FTop, и при присваивании ему нового значения вызова SetTop, как предписано описанием свойства, не происходит. Но, именно в SetTop производится реальный перенос значения FTop tControlа в соответствующий объект Windows. Поэтому-то на экране ничего и не происходит! На лицо факт нарушения целстности данных.
Наличие в примере

Код

MainForm.Top:=MainForm.Top+1; MainForm.Top:=MainForm.Top-1;

как раз и приводит к тому, что будет выполнен SetTop который приведет все в соответствие.
Резюме.
Несмотря на то, что компилятор допускает получение адреса свойства, использовать это НЕДОПУСТИМО!
Вообще, считаю что это ошибка в компиляторе.

Это сообщение отредактировал(а) Петрович - 1.7.2004, 08:54

Цитата

Вообще, считаю что это ошибка в компиляторе.

Согласен.

Цитата

...нового значения вызова SetTop, как предписано описанием свойства, не происходит.

Я уже давно думаю как бы это проблему разрешить при написании своих компонентов. Идеи были, ... но все они не работают (или не совсем корректно работают)
А вообще прикольно менять некоторые значения, которые поменять(легко) не удается .

Это сообщение отредактировал(а) Girder - 1.7.2004, 10:17

Girder

Код

А ты знаеш разницу  !!!, между Код   var gInt:integer и Код   gInt:pinteger

Да я усек разницу.
Хоть и выглядит это как косяк но компилятор генерирует один и тот же вызов процедуры

Цитата(Calypso @ 30.6.2004, 21:22)

Кстати а кто объяснит зачем нужен этот overload;

Это указывает компилятору на то, что существует еще одна функция(метод) с таким же именем - различие в них в разном наборе параметров. Без данной директивы компилиться ни чего не будет(при наличии двух одиноковых в названии функций(методов одного класса)). Например:

Код

function MyFunction: Boolean; overload; begin end; function MyFunction(Value: integer): Boolean; overload; begin end;

Цитата

Да я усек разницу.

Т.в: Разница только в терминологии!
В первом случаи: Передача типизированного параметра по ссылке(читай передача указателя)
Во втором случаи: Передача типизированного указателя(читай передача указателя).

В первом случаи для доступа к данным нам ни чего делать не надо(все сделает компилятор), во втором случаи для доступа к данным нам надо применить операцию его(указателя) разыменования.

P.S. А еще бывают нетипизированные параметры и указатели

Удачи.

Ни фига себе тред развился!
Петрович

Цитата

Несмотря на то, что компилятор допускает получение адреса свойства, использовать это НЕДОПУСТИМО!

Предложи допустимый вариант решения проблемы.
И на всякий случай: проблема не в том, чтобы изменить значение Form.Top, а чтобы с помощью процедуры загружать разные значения в разные свойства формы, то есть примеры типа

Цитата

if VF is TForm1 then(VF as TForm1).Top:=(VF as TForm1).Top-1;

и

Цитата

vart: Integer; begint:= MainForm.Top;LoadVar(t,'MainFormTop');MainForm.Top:= t;

не канают.
Всем спасибо за интерес, проявленый к теме.

Цитата

... чтобы с помощью процедуры загружать разные значения в разные свойства формы ...

Как я уже писал выше, передать свойство как var параметр НЕВОЗМОЖНО. Следовательно, так как ты хочешь, сделать нельзя.
Можно сделать вариант для published свойств, используя RTTI. Будет выглядеть что-то вроде такого:

Код

procedure LoadVar(Obj :tObject; LoadedPropertyName :String; ParametrName :String); begin  // здесь можно используя процедуры работы с RTTI  // получить и/или установить значение свойства  // LoadedPropertyName объекта Obj end; ... LoadVar(MainForm,'Top','MainFormTop');

Реализацию LoadVar оставляю другим, самому лень

Гм... Мне пока что существующий вариант больше нравится

Цитата

Гм... Мне пока что существующий вариант больше нравится

А "существующий" это какой?