12 lines
380 B
ObjectPascal
12 lines
380 B
ObjectPascal
// Пример иллюстрирует использование знака "&" для снятия атрибута ключевого слова
|
|
|
|
var
|
|
&begin,&end: integer;
|
|
i: integer;
|
|
|
|
begin
|
|
&begin := 1;
|
|
&end := 2;
|
|
var t: System.Type := &begin.GetType; // в System.Type использовать & не надо
|
|
write(&begin,' ',&end,' ',t);
|
|
end. |