ListView: Text in Spalte 2 einfügen funktioniert nicht!

[marabu]

Hi Dash,

so geht es:

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject);
var
  i: Integer;
  sFile: String;
begin
  if OpenDialog.Execute then
  for i := 0 to OpenDialog.Files.Count-1 do
  begin
    sFile := ExtractFileName(OpenDialog.Files[i]);
    with ListView1.Items.Add do begin
      Caption := sFile;
      SubItems.Add(ExtractFilePath(OpenDialog.Files[i]));
    end;
  end;
end;

Grüße vom marabu