taschenrechner (erweiterung)

[Highttower]

Hallo,
das hier ist nur nen denk ansatz, runterprogrammieren musst du ihn selbst:

Delphi-Quellcode:

function rechne(s: string) : real;
var 
    I : Integer;
    tmp : String;
begin
   result:=0;
    for I := 0 to Length(S) do
    begin
        if NOT ((S[I]='+') OR (S[I]='andres Rechenzeichen')OR (S[I]='andres Rechenzeichen')..... then begin
            tmp:= tmp +S[I];
      end
      else
      if(S[I]='+') then
      result := addiere(result,StrToFloat(tmp));
      if (S[I]='andres Rechenzeichen') then
      result := tuwas(StrToFloat(tmp));
      .....
    end;
end;

function addiere(k : real; j : real) : real;
begin
   result := k+j;
end;


....

Hoffe das hilft,

Highttower