while-Schleife funktioniert nicht

[ArchaicSeraphim]

Hi Leutz,
Im Zuge von Automaten, unendlichen wie endlichen, sollen wir einen Termüberprüfer basteln. Ich sitze grade an den Klammern, aber irgendwie hab' ich ein Problem mit dem folgenden Code:

Code:

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

Dazu ist zu sagen, dass EEingabe mein Eingabeeditfeld, K meine Klammervariable ist, ein Integer. Die ist quasi mein Keller, bzw. Stack. Geht das?

Vorher habe ich noch

Code:

procedure TFTerm.FormCreate(Sender: TObject);
begin
  K := 0;
end;

gesetzt.

Wieso funktioniert die Überprüfung nicht? Wäre über Antwort erfreut! ^^

[MrSpock]

Hallo Arc,

ich verstehe den Code nicht. Warum wir k inkrementiert, wenn das Zeichen ein ')' ist und k nicht größer als 0 ist?

Erklär doch mal, was du machen willst.

[SebE]

n := EEingabe.SelLength; bist du dir sicher, dass du nicht lieber die Eigenschaft Text nehmen willst?

So wie es aussieht ist die Bedingung:
if n > 0 then sinnlos, da sie bei:
while i<n do schon abgedeckt wird.

Keine Ahnung ob ich's richtig verstanden hab.
Trotzdem viel spaß beim proggen

[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

[ArchaicSeraphim]

Also:

K wird als Keller benutzt, das heißt, für jede geöffnete Klammer wird eine "Marke" in den Keller gelegt, bzw. sie K um eins erhöht. Wenn K < 0 ist, heißt das, dass mehr geschlossene Klammern als geöffnete da stehen. Und das muss falsch sein, bei einem aritmethischen Term.

n ist für die Klammerüberprüfung die Länge des Texts. Ich will ja jedes Zeichen einzeln überprüfen. Im Moment hab' ich halt nur Aktionen, wenn das Klammern sind ^^ Später sollen auch Zeichen wie +-*/ eingebaut werden und auch überprüft.

@ Klaus01: Nein, so geht's nicht, da überprüft er das erste oder letzte Zeichen nicht.

Alle Klarheiten beseitigt?

€dit: Man muss i <= n schreiben, dann geht's. Thx Leute!

[marabu]

Hallo,

die Initialisierung von K gehört unbedingt in die Prüfroutine, sonst werden nach Eingabe eines falschen Ausdrucks folgende richtige Ausdrücke als falsch erkannt.

Die Prüfroutine trennst du besser von der Benutzerschnittstelle:

Delphi-Quellcode:

uses
  StrUtils;

function ValidExpression(const s: string): Boolean;
var
  i, k: Integer;
begin
  k := 0;
  for i := 1 to Length(s) do
    case s[i] of
      '(': Inc(k);
      ')': Dec(k);
    end;
  Result := k = 0;
end;

procedure TDemoForm.CheckButtonClick(Sender: TObject);
begin
  ShowMessage(IfThen(ValidExpression(TermEdit.Text), 'okay', 'rats'));
end;

Vielen Dank, dass wir an deinen Problemen teilhaben dürfen.

Grüße vom marabu

[ArchaicSeraphim]

Delphi-Quellcode:

procedure TDemoForm.CheckButtonClick(Sender: TObject); 
begin 
  ShowMessage(IfThen(ValidExpression(TermEdit.Text), 'okay', 'rats')); //<<< ***
end;

Äh, was soll denn das sein? IfThen? Kenn' ich net. Und mein Delphi auch net ^^

Hlp, pls?

[Klaus01]

Hast Du, wie Achim geschrieben hat, StrUtils eingebunden?

Grüße
Klaus

[ArchaicSeraphim]

Jetzt schon thx Leute