Highscore in ListView speichern

[bitsetter]

Hi,

falls du beim nächsten Programmstart deine Highscoreliste nur in den Listview laden möchtest reicht folgendes eventuell schon aus:

Delphi-Quellcode:

//speichern
var
  FileStream: TFileStream;
begin
  FileStream:= TFileStream.Create(extractfilepath(Application.ExeName)+'MeinListView.txt', fmCreate);
  try
    FileStream.WriteComponent(ListView1);
  finally
    FileStream.Free;
  end;

//laden
var
  FileStream: TFileStream;
  Pfad: AnsiString;
begin
  Pfad:= extractfilepath(Application.ExeName)+ 'MeinListView.txt';
  if FileExists(Pfad) then
  begin
    FileStream:= TFileStream.Create(Pfad, fmOpenRead);
    try
      FileStream.ReadComponent(ListView1);
    finally
      FileStream.Free;
    end;
  end;

Eventuell die Datei woanders speichern, falls du keine Schreibrechte für den Ordner besitzt.