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

[Dash]

Hi,

ich habe mir nun folgenden Code zusammengeschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  sFile, sPath: String;
begin
  if OpenDialog.Execute then
  for i := 0 to OpenDialog.Files.Count-1 do
  begin
    sFile := ExtractFileName(OpenDialog.Files[i]);
    ListView1.AddItem(sFile , ListView1.Column[0]);
    sPath := ExtractFilePath(OpenDialog.Files[i]);
    ListView1.AddItem(sPath , ListView1.Column[1]);
  end;
end;

Ich habe nun vor den Pfad der ausgewählten Dateien in Spalte 2 einzufügen, dies hab ich mit ListView1.Column[1] versucht, aber das klappt nicht... was mache ich falsch??


Danke für eure Hilfe!

Greetz
Dash

[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

[Dash]

Danke funktioniert bestens




Greetz
Dash