Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Taschenrechner

   
    by Blup, 2. Okt 2013
  Klar geht das auch kürzer, zumindest übersichtlicher und Funktion von der Oberfläche getrennt:
  
  function Berechne(A, B: Float; Op: Char): Float;
  begin
  case Op of
  '+': Result := (A + B);
  '-': Result := (A - B);
  '*': Result := (A * B);
  '/': Result := (A / B);
  else