10000 Werte in DATEI speichern

[Der_Unwissende]

Hi,
in was für einer Struktur liegen denn deine Werte vor?
Wenn es sich um ein Array handelt, dann kannst du das auch gleich in einem Rutsch lesen oder schreiben, ist dann um einiges schneller:

Delphi-Quellcode:

procedure saveToFile(const Data : TIntegerDynArray; const FileName : String);
var fs : TFileStream;
begin
  if length(Data) > 0 then
  begin
    fs := TFileStream.Create(FileName, fmCreate or fmShareExclusive);

    try
      fs.Position := 0;
      fs.Write(Data[0], sizeOf(Data[0]) * length(Data));
    finally
      fs.Free;
    end; 
end;

Lesen dann analog.

Gruß Der Unwissende