Zitat von
jaenicke:
Du hast unten in der Implementierung das TFormTR. vor dem Namen der Funktion vergessen.
Das hatte ich geschrieben...
Du hast es aber oben bei der Deklaration auch dazu geschrieben und nicht nur unten...
Oben in der Zeile vor private muss das TFormTR. weg.
Und außerdem darfst du das Result unten nicht auch da ersetzen, wo gar nicht der Funktionsaufruf gemeint ist...
Delphi-Quellcode:
Value1 := BerechneTerm(Copy(ATerm, 1, iPos - 1));
Value2 := BerechneTerm(Copy(ATerm, iPos + 1, Length(ATerm)));
case i of
0: Result := Value1 + Value2;
1: Result := Value1 - Value2;
2: Result := Value1 * Value2;
3: Result := Value1 / Value2;
end;
Ach ja: Und Zeile 80 muss weg...
Den ganzen Term kannst du nicht in eine Zahl umwandeln.