7 lines
199 B
ObjectPascal
7 lines
199 B
ObjectPascal
begin
|
|
var s := '1234';
|
|
var fnc: char->boolean := char.IsDigit;
|
|
assert(s.All(fnc) = true);
|
|
assert(s.All&<char>(char.IsDigit) = true);
|
|
assert(s.All&<char>(char.IsControl) = false);
|
|
end. |