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.
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?