Also ich habe ja die function geschrieben, aber wie gebe ich die berechnung aus..?
Delphi-Quellcode:
function TFormTR.BerechneTerm(ATerm: string): Double;
var
Op: string;
iPos, i: Integer;
Seg1, Seg2: Double;
begin
for i := 0 to 3 do
begin
case i of
0: Op := '+';
1: Op := '-';
2: Op := '*';
3: Op := '/';
end;
iPos := Pos(Op, ATerm);
if iPos > 0 then
begin
Seg1 := BerechneTerm(Copy(ATerm, 1, iPos - 1));
Seg2 := BerechneTerm(Copy(ATerm, iPos + 1, Length(ATerm)));
case i of
0: Result := Seg1 + Seg2;
1: Result := Seg1 - Seg2;
2: Result := Seg1 * Seg2;
3: Result := Seg1 / Seg2;
end;
Exit;
end;
end;
end;
da unten muss ich ja jetzt die Ausgabe programmieren aber ich weiß nicht wie..