Austauschen einer Case Anweisung mit einer Sinnvolleren

[Jasocul]

Delphi-Quellcode:

  if length(satz) > 0 then
  begin
    OPFound := False; // Boolean-Variable noch deklarieren
    Laenge := 0; // Integer-Variable noch deklarieren
    for laufvariable := length(satz) downto 1 do
    begin
      inc(Laenge);
      OPFound := CharInSet(satz[laufvariable], ['+', '-', '*', '/']) or OPFound;
      if satz[laufVariable] = ' ' then // Vergleich auf Leerzeichen
      begin
        if not OPFound then
        begin
          Delete(satz, laufvariable, Laenge);
        end;
        OPFound := False;
        Laenge := 0;
      end;
    end;

    if not OPFound then
    begin
      Delete(satz, 1, Laenge + 1); // +1 wegen des Leerzeichens
    end;
  end;

Falls du CharInSet nicht verwenden darfst, musst du dir das wieder in ein case umbauen.