Thema: Delphi tlistview+farben

Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: tlistview+farben

  Alt 17. Feb 2007, 20:06
hallo,
das kommt natürlich drauf an, wie du das programmiert hast. Muss z.B. immer nur eine Zeilenposition gespeichert werden, kannst du es einfach über eine INI Datei speichern. Bei mehreren Zeilen wird es schon ein bischen komlizierter. Ein bischen Code von dir wäre darum nicht schlecht.

Ansonsten geht es z.B. auch so:
Delphi-Quellcode:
//speichern
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream;
begin
  FileStream:= TFileStream.Create(extractfilepath(Application.ExeName)+'MeinListView.txt', fmCreate);
  try
    FileStream.WriteComponent(ListView1);
  finally
    FileStream.Free;
  end;
end;

//laden
procedure TForm1.Button2Click(Sender: TObject);
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;
end;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat