Logo

Programming-Idioms

History of Idiom 137 > diff from v7 to v8

Edit summary for version 8 by Bart:
New Pascal implementation by user [Bart]
↷

Version 7

2016-06-10, 22:05:54

Version 8

2016-06-25, 22:38:56

Idiom #137 Check if string contains only digits

Set boolean b to true if string s contains only characters in range '0'..'9', false otherwise.

Idiom #137 Check if string contains only digits

Set boolean b to true if string s contains only characters in range '0'..'9', false otherwise.

Code 
var
  S: String;
  C: Char;
  B: Boolean;

  for C in S do
  begin
    B := C in ['0'..'9'];
    if not B then Break;
  end;