while-Schleife funktioniert nicht

[Klaus01]

Guten Abend,

vielleicht geht es so?

Delphi-Quellcode:

procedure TFTerm.BPruefenClick(Sender: TObject);
var
 i: integer;
 n: integer;
begin
  i := 1;
  n := length(EEingabe.Text); // Länge des textes
  if n > 0 then
  begin
    while i < n do
      begin
        if EEingabe.Text[i] = '(' then 
          K := K+1
        else 
          if (EEingabe.Text[i] = ')' then 
             K := K-1
        Label1.Caption := inttostr(K);
        inc(i);
      end
  end;
end;

oder so:

Delphi-Quellcode:

function KlammernPruefen(str:String):boolean;
var
  i: Integer;
  k: Integer;

begin
  if length(str) > 0 then
    begin
      k:=0;
      for i:=1 to length(str) do
       begin
         case str[i] of
          '(' : inc(k);
          ')' : dec(k);
         end;
       end;
      result := (k = 0);
    end
  else
    result :=false;
end;

Grüße
Klaus