Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: EInvalidOp bei Gleitkomma-Operation

    Delphi
    by shmia, 13. Feb 2006
  Du brauchst als Erstes mal eine Funktion, die ganz sauber und adrett die Quersumme einer
  Zahl berechnet:
  {*
  * Berechne die Quersumme aus einer Zahl x
  * z.B.: Quersumme von 1234 ist 10
  *}
  function QuerSumme(x:Longint):integer;
  begin
  Result := 0;
  while x > 0 do