StringList Buchstaben verbieten?

[DeddyH]

Für ersteren Vorschlag hab ich mal schnell etwas zusammengedengelt. Es geht auch eleganter, aber ich denke, so ist es halbwegs verständlich:

Delphi-Quellcode:

type
  TMyStringList = class(TStringList)
  public
    function Add(const S: string): Integer; override;
  end;

...

{ TMyStringList }

function TMyStringList.Add(const S: string): Integer;

  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 (s[i] in NUMBERS) then
        begin
          Result := false;
          Exit;
        end;
  end;

begin
  if IsNumeric(S) then
    Result := inherited Add(S)
  else
    Result := -1;
end;

Wenn ich keinen Denkfehler gemacht habe, sollten nur noch Strings hinzugefügt werden, die komplett aus Ziffern bestehen.