Ich habe hier ein kleines ListView in meinem Programm dessen Inhalt ich speichern will.
Dabei wollte ich keinen großen Aufwand treiben und das via Stream in eine Datei schreiben.
Beim Laden der Daten bekomme ich aber eine Meldung: "Class TCustomListViewEditor" not found"
Ich kann mir nicht erklären was er da von mir will...
Was könnte mein Fehler sein? Die Komponente heißt tatsächlich "ListView1" und liegt auf der Form1.
Gruß
Michael
Code: Alles auswählen
Procedure TForm1.ListViewSaveToFile (ListView: TListView; AFileName: string);
var
LViewFileStream: TFileStream;
begin
LViewFileStream := TFileStream.Create(AFileName, FMCreate or fmShareDenyNone);
try
LViewFileStream.WriteComponentRes(Listview.Name, ListView);
finally
LViewFileStream.Free;
end
end;
Procedure TForm1.ListViewLoadFromFile (ListView: TListView; AFileName: string);
var
LViewFileStream: TFileStream;
begin
LViewFileStream := TFileStream.Create(AFileName, FMOpenRead or fmShareDenyNone);
try
LViewFileStream.ReadComponentRes(ListView);
finally
LViewFileStream.Free;
end
end;
// Laden
procedure TForm1.LoadToolButtonClick(Sender: TObject);
begin
if OpenDialog1.Execute then ListViewLoadFromFile(ListView1, OpenDialog1.FileName);
end;
// Speichern
procedure TForm1.SaveToolButtonClick(Sender: TObject);
begin
if SaveDialog1.Execute then ListViewSaveToFile(ListView1, SaveDialog1.FileName);
end;
Verein
Links
