Streams

[Sharky]

Zitat von Quick_silver:

Gut das schreiben habe ich jetzt glaube ich begriffen Und wie lese ich das ganze in eine variable aus der datei?

Hai Quick_silver,

hier mal eine Erweiterung des Beispieles von oben. Du brauchst auf der Form einen Button und eine Memo

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fsWork : TFileStream;
  aiDemo : array [1..10] of integer;
  iIndex : integer;
  i_deineVariable : 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;
   //Ab hier wird gelesen
   fsWork.Position := 0;  //Den Stream auf die Anfangsposition setzen
   for iIndex := low(aiDemo) to high(aiDemo) do
   begin
     fsWork.Read(i_deineVariable,4); //Die nächsten 4 Byte aus dem Stream lesen
     Memo1.Lines.Add (IntToStr (i_deineVariable)); // Variable im Memo anzeigen
   end;
  finally
    FreeAndNil(fsWork);
  end;
end;