integer-werte in eine datei speichern

[Spezi1980]

Hallo,

Delphi-Quellcode:

procedure speichern(Datei : String; int : Integer);
Var fsOUT : TFileStream; 
begin
  try
    fsOUT := TFileStream.Create(Datei,fmCreate or fmOpenReadWrite);
    fsOUT.Write(int,sizeof(int));
    {hier könnte jetzt noch mehr folgen, was du speichern möchtest}
  finally 
    FreeAndNil(fsOUT); 
  end; 
end;

function laden(Datei : String): Integer;
Var fsOUT : TFileStream; iBuf : Integer; 
begin
  Result := 0;
  try
    fsOUT := TFileStream.Create(Datei,fmCreate or fmOpenReadWrite);
    fsOUT.read(iBuf,sizeof(int));
    result := iBuf;
    {hier könnte jetzt noch mehr folgen, was du speichern möchtest}
  finally 
    FreeAndNil(fsOUT); 
  end; 
end;

procedure Form1.Create(Sender:TObject)
begin
   Level := Laden('C:\Test.txt')
end;

procedure Form1.destroy(Sender:TObject)
begin
   Speichern('C:\Test.txt',Level)
end;

So oder so ähnlich müßte es gehen. (konnte ich nicht testen)

als sehr einfsche Alternative kannste Deine Werte auch in eine Stringliste speichern (z.b: Memo1.Lines.add(IntToStr(Level))) und dann die Stringliste speichern (über Memo1.Lines.Savetofile('C:\Test')). Dann holste dir die Stingliste bei Programmstart wieder (über Memo1.Lines.Loadfromfile('C:\Test')) und liest Deinen Integerwert wieder aus (Level := StrToIntDef(Memo1.Lines[0],0)).

Gruß