Типизированные константы

Чтобы инициализировать переменную на стадии ее создания, нужно объявить ее, как типизированную константу. Таким способом можно инициализировать переменные простых типов, а также записи, массивы, множества.

Пример:

procedure TForm1.FormCreate(Sender: TObject);
const
  a: integer = 0;
  p: TPoint = (x: 10; y: 20);
  BoolStr: array [boolean] of string = ('false', 'true');
  figures: set of char = ['0'..'9'];
begin
  p := Form1.ClientToScreen(p);
  SetCursorPos(p.x, p.y);
  Form1.Caption := BoolStr[GetKeyState(VK_NUMLOCK) and 1 > 0];
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 529 • TDictionary Custom Sort 6 559 • Fast Watermark Sources 6 333 • 3D Designer 9 284 • Sik Screen Capture 6 668 • Patch Maker 7 041 • Айболит (remote control) 7 052 • ListBox Drag & Drop 5 924 • Доска для игры Реверси 97 368 • Графические эффекты 7 260 • Рисование по маске 6 555 • Перетаскивание изображений 5 419 • Canvas Drawing 5 793 • Рисование Луны 5 494 • Поворот изображения 5 027 • Рисование стержней 3 580 • Paint on Shape 2 837 • Генератор кроссвордов 3 715 • Головоломка Paletto 2 994 • Теорема Монжа об окружностях 3 797 • Пазл Numbrix 2 501 • Заборы и коммивояжеры 3 186 • Игра HIP 2 154 • Игра Go (Го) 2 088 • Симулятор лифта 2 465 • Программа укладки плитки 2 130 • Генератор лабиринта 2 606 • Проверка числового ввода 2 283 • HEX View 2 615 • Физический маятник 2 228