An marabu bezüglich 'Demo einer virtuellen ListView'

[marabu]

Hallo,

wenn du die Spalten der ListView bereits fest vorgegeben hast, dann musst du nur wenige Änderungen machen:

Delphi-Quellcode:

procedure TMainForm.FileOpenExecute(Sender: TObject);
begin
  with OpenDialog do
  if Execute then
  begin
    self.FileName := FileName;
    Values.LoadFromFile(FileName);
{
    SetNames(Values[0]);
    Values.Delete(0);
}
    ListItems.Count := Values.Count;
    ListView.Invalidate;
  end;
end;

Daraus ergeben sich an allen anderen Stellen entsprechende Änderungen. In FileNewExecute() musst du dann nur die Values leeren, bei FileSaveAsExecute() darfst du dann die Names nicht mit rausschreiben. Die Names-StringListe solltest du dann aus den Spaltennamen deiner ListView aufbauen, falls du sie irgendwo benötigst.

Freundliche Grüße