Интересное поведение унарной операции '-' в GDI+

uses ...GDIPAPI, GDIPOBJ...

Var MyImage : TGPImage;
      A,B : Single;

Begin
      MyImage:=TGPImage.Create('c:\pictures.bmp');
      A:=-(MyImage.GetWidth/2);
      B:=-(MyImage.GetHeight/2);
end;

Попробуйте убрать скобки в операторах присвоения A и B...

infund,

Разобрался

Функции

MyImage.GetWidth и MyImage.GetHeight возвращают тип Cardinal, применение к которому оператора '-' приводит к непредсказуемым результатам. Люди, будьте бдительны! )))

не могу повторить эксперимент без наличия "pictures.bmp". Что у Вас там нарисовано? :)

Кроик Семён,

это секретная инфа )

infund

infund, Разобрался Функции MyImage.GetWidth и MyImage.GetHeight возвращают тип Cardinal, применение к которому оператора '-' приводит к непредсказуемым результатам. Люди, будьте бдительны! )))

Целых 14 минут томил всех в неизвестности :)

infund

infund, Разобрался Функции MyImage.GetWidth и MyImage.GetHeight возвращают тип Cardinal, применение к которому оператора '-' приводит к непредсказуемым результатам. Люди, будьте бдительны! )))

Люди, будьте бдительны, читайте документацию, прежде чем кричать на всю околицу.

infund

Cardinal, применение к которому оператора '-' приводит к непредсказуемым результатам

Не верю.

Нелояльный,

Верю-не верю... Чего проще попробовать? ))

procedure TForm1.Button1Click(Sender: TObject);

Var A : Cardinal;

begin
     A:=2;
     A:=-A*2;
     ShowMessage(IntToStr(A));
end;

ну началось...
дети открыли для себя Cardinal...

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4