pascalabcnet/TestSuite/CompilationSamples/keywords.pas

33 lines
2.1 KiB
ObjectPascal
Raw Permalink Normal View History

2020-06-01 11:02:56 +03:00
type
T = class
public static procedure &Abstract := exit;
public static procedure &Operator := exit;
public static procedure &Partial := exit;
public static procedure &Lock := exit;
public static procedure &Implicit := exit;
public static procedure &Explicit := exit;
public static procedure &On := exit;
public static procedure &Overload := exit;
public static procedure &Reintroduce := exit;
public static procedure &Override := exit;
public static procedure &Extensionmethod := exit;
public static procedure &Virtual := exit;
public static procedure &Forward := exit;
public static procedure &Loop := exit;
end;
begin
T.Abstract(); //Program2.pas(20) : Встречено 'Abstract', а ожидался оператор
T.Partial(); //Program2.pas(22) : Встречено 'Partial', а ожидался оператор
T.Lock(); //Program2.pas(23) : Встречено 'Lock', а ожидался оператор
T.Implicit(); //Program2.pas(24) : Встречено 'Implicit', а ожидался оператор
T.Explicit(); //Program2.pas(25) : Встречено 'Explicit', а ожидался оператор
T.On(); //Program2.pas(26) : Встречено 'On', а ожидался оператор
T.Overload(); //Program2.pas(27) : Встречено 'Overload', а ожидался оператор
T.Reintroduce(); //Program2.pas(28) : Встречено 'Reintroduce', а ожидался оператор
T.Override(); //Program2.pas(29) : Встречено 'Override', а ожидался оператор
T.Extensionmethod(); //Program2.pas(30) : Встречено 'Extensionmethod', а ожидался оператор
T.Virtual(); //Program2.pas(31) : Встречено 'Virtual', а ожидался оператор
T.Forward(); //Program2.pas(32) : Встречено 'Forward', а ожидался оператор
T.Loop(); //Program2.pas(33) : Встречено 'Loop', а ожидался оператор
end.