Заголовки Windows, Ada Опции

[volvo]

Тогда данный вид оптимизации угробится во всём проекте?

Да. Если это нежелательно - то сделай то, что сам озвучил (можно прямо внутри процедуры Sizing):

   type P_RECT is access all RECT;
   pragma No_Strict_Aliasing (P_RECT);

   -- Эту функцию не забудь убрать из WinApi.Conversions   
   function To_PRECT is new Ada.Unchecked_Conversion(LPARAM, P_RECT);

   -- ...
   R: constant P_RECT := To_PRECT(lp);

, и убрать -fno-strict-aliasing, если добавлял. Предупреждение уйдет...

8. Как сделать программе иконку?

Создаю обычный RC-файл из одной строки:

MAINICON ICON "beautifier.ico"
, потом его обрабатываю компилятором ресурсов и конвертором Resource To Object. У меня оба эти файла нашлись в \WINDOWS\Microsoft.NET\Framework\v2.0.50727 (ни в Дельфи, ни в Code::Blocks конвертора не нашлось, только rc). То есть, последовательность такая (я для простоты закинул RC вместе с иконкой в ту самую папку, .NET-овскую):

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>rc -r -dWin32 -fo bf.res bf.rc
тут бла-бла-бла, скомпилировал в RES
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>cvtres /machine:x86 /out:bf.rbj bf.res
бла-бла-бла, преобразовал в RBJ

, а теперь в любой ADS-файл, который подключается к программе, добавь строку

pragma Linker_Options ("{полный_путь_к_полученному_RBJ_файлу}\bf.rbj");

Обычно это делается в Linker_Options.ads, но я смотрю, этот файл у тебя никуда не подключается, так что туда запихивать бесполезно, иконка не изменится. Добавь строку именно в подключаемый файл. После пересборки у EXE-шника будет иконка...

М

Вопрос об исключениях перенесен: Обработка исключений (Ada)

Сообщение отредактировано: volvo - 6.04.2011 15:17

[Ахмед]

есть кто умеет писать на Аде?!! помогите, нужно найти произведение элементов одномерной матрицы

[IUnknown]

Задание нормально поставь. Какой тип элементов массива (одномерный - это массив а не матрица)? Размер? Как задается массив (ввод от пользователя, генератор случайных чисел, константа)?

В простейшем случае будет так:

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   type Vector is array(Positive range <>) of Long_Integer;
   
   Size : constant := 10;
   Arr : Vector(1 .. Size) := (2, 3, 4, others => 5);
   p : Long_Integer := 1;
begin
   for i in Arr'Range loop
      p := p * Arr(i);
   end loop;
   Put_Line ("P = " & Long_Integer'Image(p));
end Main;

Сообщение отредактировано: IUnknown - 29.05.2012 0:50