NumbersOnly bei TDateTimePicker

[EWeiss]

Delphi-Quellcode:

function IsNumeric(const s: string): Boolean;
const
  NUMBERS = ['0'..'9'];
var
  i: integer;
begin
  Result := true;

  for i := 1 to Length(s) do
  if not (CharInSet(s[i], NUMBERS)) then
    begin
      Result := false;
      Exit;
  end;

end;

gruss