Zahlen addieren

[Michael Habbe]

Mal ein (Simpel-)Beispiel:

Delphi-Quellcode:

procedure blablupp;
var
  f: TextFile;
  s: String;
  x: Double;
begin
  x := 0;
  AssignFile(f, 'meineDatei.xyz');
  Reset(f);
  while not Eof(f) do
  begin
    ReadLn(f, s);
    try
      x := x + StrToFloat(s);
    except
    end;
  end;
  ShowMessage(FloatToStr(x));
end;