Типизированные константы
Чтобы инициализировать переменную на стадии ее создания, нужно объявить ее, как типизированную константу.
Таким способом можно инициализировать переменные простых типов, а также записи, массивы, множества.
Пример:
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;
|
|
|
|
|
все молочные продукты оптом . элитный поселок . Game-rate: рейтинг лучших онлайн игр. Хорошие мини игры онлайн - сайт. . russia company . |
