pascalabcnet/TestSuite/intellisense_tests/extensionmethods8.pas

6 lines
246 B
ObjectPascal
Raw Permalink Normal View History

2018-09-26 22:07:58 +03:00
begin
var ch: char;
var n: integer;
(ch*n).Replace{@function string.Replace(oldChar: char; newChar: char): string;@}(#0,#32);
(2+3).Between{@(расширение) function integer.Between(a: integer; b: integer): boolean;@}(2,3);
end.