String auf mathematische zeichen durchsuchen.

[Chaosente]

Also ich hab zwei funktionen geschrieben, die überprüfen sollen ob ein string nur mathematisches zeichen enthält also 0,1,2,3,4,5,6,7,8,9,+,-,*,/,(,)

nun gibt mir mein test aber immer false zurück obwohl es auf jeden fall in der zeichenmenge liegt. da muss also irgendwo ein logischer fehler sein denk ich mal. ich finde ihn nur leider nicht.

Hier mal der quelltext:

Delphi-Quellcode:

function IsInMathArray(s:char): boolean;
var
  i:integer;
  math_strings: array[0..15] of char;
begin
  math_strings[0]:='0';
  math_strings[1]:='1';
  math_strings[2]:='2';
  math_strings[3]:='3';
  math_strings[4]:='4';
  math_strings[5]:='5';
  math_strings[6]:='6';
  math_strings[7]:='7';
  math_strings[8]:='8';
  math_strings[9]:='9';
  math_strings[10]:='+';
  math_strings[11]:='-';
  math_strings[12]:='*';
  math_strings[13]:='/';
  math_strings[14]:='(';
  math_strings[15]:=')';

  for i:=0 to high(math_strings) do
    begin
      if s = math_strings[i]
        then result:=true
        else result:=false;
    end;
end;

function CheckMathStr(s:string): boolean;
var
  i:integer;
  not_math:integer;
begin
  not_math:=0;
  for i:=0 to length(s) do
    begin
      if IsInMathArray(s[i]) = false
        then not_math:=not_math+1;
    end;
  if not_math > 0
    then result:=false
    else result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if checkmathstr(edit1.Text) = true
  then ShowMessage('math string')
  else ShowMessage('No Math string');
end;