Streams

[Christian Seehase]

Moin Quick Silver,

ein Beispiel:

Delphi-Quellcode:

var
  fsWork : TFileStream;
  aiDemo : array [1..10] of integer;
  iIndex : integer;

begin
  fsWork := TFileStream.Create('c:\temp\SaveArrayDemo.file',fmCreate or fmOpenWrite);
  try
    for iIndex := low(aiDemo) to high(aiDemo) do begin
      aiDemo[iIndex] := iIndex; // Nur damit auch was in der Datei steht
      fsWork.Write(aiDemo[iIndex],4);
    end;
  finally
    FreeAndNil(fsWork);
  end;
end;