Erste Versuche zu Parsen um mit String zu rechnen

[Christian Seehase]

Moin,

Um so einen String korrekt zu berechnen, muss man als erstes einmal die Punkt- vor Strichrechnung berücksichtigen.
Da bei der rekursiven Berechnung das was man als letztes prüft als dann aber als erstes tatsächlich berechnet wird, muss also zuerst auf die Operatoren mit der niedrigsten Priorität, also +/- geprüft werden.

Delphi-Quellcode:

function Calculate(const AsTerm : string) : extended;

var
  sLinks  : string;
  sRechts : string;

begin
  // Als erstes also mal prüfen, ob wir ein + im Term haben
  if pos('+',AsTerm) > 0 then begin
    // Wenn das der Fall ist müssen also der Teil links des + und der Teil rechts des + addiert werden
    // Hierzu muss man dann einfach alles bis zum + (ohne das + natürlich)
    // wieder an diese Funktion übergeben, damit alle weiteren Zahlen und Operatoren verarbeitet werden
    // Für das Kopieren des Restes muss man übrigens nicht die Länge des verbleibenden Strings benutzen,
    // Da Copy aufhört zu kopieren, wenn das Ende des Strings erreicht ist. Deshalb MaxInt. Mehr geht eh' nicht
    sLinks  := trim(copy(AsTerm,1,pos('+',AsTerm)-1));
    sRechts := trim(copy(AsTerm,pos('+',AsTerm)+1,MaxInt));
    Result  := Calculate(sLinks) + Calculate(sRechts);
  end else begin
    if pos('-',AsTerm) > 0 then begin // Analog zu +, nur eben -
      sLinks  := trim(copy(AsTerm,1,pos('-',AsTerm)-1));
      sRechts := trim(copy(AsTerm,pos('-',AsTerm)+1,MaxInt));
      Result  := Calculate(sLinks) - Calculate(sRechts);
    end else begin
      if pos('*',AsTerm) > 0 then begin // Analog zu +, nur eben *
        sLinks  := trim(copy(AsTerm,1,pos('*',AsTerm)-1));
        sRechts := trim(copy(AsTerm,pos('*',AsTerm)+1,MaxInt));
        Result  := Calculate(sLinks) * Calculate(sRechts);
      end else begin
        if pos('/',AsTerm) > 0 then begin // Analog zu +, nur eben /
          sLinks  := trim(copy(AsTerm,1,pos('/',AsTerm)-1));
          sRechts := trim(copy(AsTerm,pos('/',AsTerm)+1,MaxInt));
          Result  := Calculate(sLinks) / Calculate(sRechts);
        end else begin
          if AsTerm <> '' then begin
            // Wenn kein Operator enthalten war, aber noch ein Reststring übrig ist, muss das eine Zahl sein
            Result := StrToFloat(AsTerm);
          end else begin
            // Handelt es sich um einen Leerstring wird 0 zurückgegeben.
            // Das spart einem die Prüfung auf ein Vorzeichen, wie z.B. bei -1+5
            Result := 0;
          end;
        end;
      end;
    end;
  end;
end;

Damit kannst Du einfach mal ein paar Terme ausprobieren, und Dir im Einzelschritt mal ansehen, was passiert.