1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

function IsInt(Check: String): Boolean;  
begin  
 try  
  StrToInt(Check);  
  Result := True;  
 except  
  Result := False;  
 end;  
end;  

function endwertLinearBerechnen(Rechenaufgabe:String):Integer;
var momentaneZahl:string;
    ersterWert:bool;
    rechenArt, momentanerWert, vorherigerWert:Integer;//bei der rechenArt wäre dann 0=minus, 1=plus, 2=mal, 3=durch
begin
ersterWert:=true;
zahl1:=0;
for i:=0 to Length(Rechenaufgabe)-1 do
   begin
   if isInt(Rechenaufgabe[i]) then
      if ersterWert{=true} then //also wenn es der erste Wert ist:
          momentaneZahl:=momentaneZahl+Rechenaufgabe[i];
   else 
      begin            
      vorherigerWert:=momentanerWert;
      momentanerWert:=StrToInt(momentaneZahl);
      momentaneZahl:='';
      case Rechenaufgabe[i] of
         '/'{für durch}:rechenArt:=3
         'x'{für mal}:rechenArt:=2
         '+'{selbstredend}:rechenArt:=1
         '-'{selbstredend}:rechenArt:=0
      end; //der Case-Anweisung
      ersterWert:=false;
      end;
   end;
end;