newbie probleme mit strings

**bmg4ever**

hi leute

ich hab folgendes problem. ich nutze borland delphi 6 und habe einen button und ein editfeld (keine sorge ich bin noch nicht fertig sondern befinde mich in den ersten zügen und komm schon nicht weiter).
nun wollte ich mit folgendem quelltext auf druck des buttons gerne die position der innersten klammerauf haben.

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

const klammern = ['(',')'];

var run, anzahlKA, posKA: integer;

begin

        run := 0;

        formel := Edit1.Text;

        anzahlKA := StrCharCount(formel, '(');

        while not anzahlKA = 0 do begin

                while not (formel[run] = '(') do inc(run);

                dec(anzahlKA);

        end;

//        posKA := run;

        EDit1.Text := IntToStr(run);

end;

angenommen im editfeld steht nun sowas wie "12345(7". dann sollte der run=6 sein, was er aber nicht ist. er behält immer den wert null.
wo ist mein fehler.

P.S: dec(var) ist doch richtig zum runterzählen?

newbie probleme mit strings

newbie probleme mit strings

Forumregeln