передача параметров по ссылке и по указателю

[Smogg]

В общем, у меня есть такое объявление:

procedure SetIdentity(var m : TMatrix3 );

Но у меня есть указатель на объект TMatrix3 (pm: ^TMatrix3 ). И мне нужно как-то по ссылке передать в SetIdentity() разыменованный объект pm.

Пытаюсь сделать так:

SetIdentity(@mTmp);

Выдает ошибку - [Error] Unit1.pas(137): There is no overloaded version of 'SetIdentity' that can be called with these arguments

// Можно сделать перегрузку, но это будет некрасиво, когда функция принимает два варианта одного и тоже аргумента. Так я сделать могу, но не хочу.

[Stilet]

но это будет некрасиво

Как раз в данном случае это идеальный вариант, и гораздо красивее остальных.
Перегруженная вторая функция может разименовывать указатель и вызывать первую.
Или наоборот - первая будет работать только по указателю, тогда вторая будет передавать указатель на параметр.

[Аватар]

А так
SetIdentity(pm^);
или
SetIdentity(TMatrix3(pm^));

[Smogg]

Аватар, вы прекрасны! Компилятор не ругается на такой вариант)

[Alter]

Переменные - указатели

[Smogg]

и еще один вопрос про синтаксис

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Font.Style := [fsbold];
end

что тут значат квадратные скобки - [fsbold] и как вернуть стиль обратно, т.е. убрать fsbold?

[Serge_Bliznykov]

если не ошибаюсь, то так записываются элементы множества.

и как вернуть стиль обратно, т.е. убрать fsbold?

может так (если в стиле могут быть и другое):

  label1.Font.Style := label1.Font.Style - [fsbold];

или, если банально нужно убрать всё:

  label1.Font.Style := [];

[Smogg]

Serge_Bliznykov, спасибо! Все работает