Listviewe dosya adı çekme

[dogan]

İyi akşamlar.

Open dialog ile çoklu olarak seçtiğim resimlerin adı ve bulunduğu klasör yolunu almaya çalışıyorum, 10 kayıtta seçsem sadece bir tanesinin adını ve klasör yolunu listview 10 tane olarak alıyor. acaba nerede hata yapıyorum

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    ListView1.Items.Clear;
    With OpenDialog do
    begin
      if Execute then
      begin
        for I := 0 to Files.Count - 1 do
        begin
          with ListView1.Items.Add do
          begin
            Caption := IntToStr(ListView1.Items.Count);
            SubItems.Add('');
            SubItems.Add(ChangeFileExt(ExtractFileName(FileName), '')); //-------------- DOSYA ADI
            SubItems.Add('');
            SubItems.Add('');
            SubItems.Add('');
            SubItems.Add('');
            SubItems.Add(FileName); //-------------- KLASÖR YOLU
            SubItems.Add('');
            SubItems.Add(FormatDateTime('dd.mm.yyyy', Now));
            SubItems.Add(FormatDateTime('hh:mm:ss', Now));
            Next;
          end;
        end;
      end;
    end;
  except
  end;
end;

[thelvaci]

Files içindeki item sayısı kadar dönmüşsünüz ama, Files olarak kullanmamışsınız

[dogan]

Yok olmadı, yapamadım...

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    ListView1.Items.Clear;
    With OpenDialog do
    begin
      if Execute then
      begin
        for I := 0 to Files.Count - 1 do
        begin
          with ListView1.Items.Add do
          begin
            Caption := IntToStr(ListView1.Items.Count);
            SubItems.Add('');
            SubItems.Add(ChangeFileExt(ExtractFileName(FileName[i]), '')); //-------------- DOSYA ADI
            SubItems.Add('');
            SubItems.Add('');
            SubItems.Add('');
            SubItems.Add('');
            SubItems.Add(FileName[i]); //-------------- KLASÖR YOLU
            SubItems.Add('');
            SubItems.Add(FormatDateTime('dd.mm.yyyy', Now));
            SubItems.Add(FormatDateTime('hh:mm:ss', Now));
            Next;
          end;
        end;
      end;
    end;
  except
  end;
end;

[thelvaci]

Lütfen biraz daha dikkatli olalım kodlama yapar iken. FileName'e bakar mısınız kod editöründe iken veri tipi nedir ? Bir de Files'a bakarmısınız veritipi nedir ?

[ovural]

Filename yerine Files.Strings kullanacaksın

procedure TForm1.Button2Click(Sender: TObject);
begin
try
ListView1.Items.Clear;
With OpenDialog do
begin
if Execute then
begin
for I := 0 to Files.Count - 1 do
begin
with ListView1.Items.Add do
begin
Caption := IntToStr(ListView1.Items.Count);
SubItems.Add('');
SubItems.Add(ChangeFileExt(ExtractFileName(Files.Strings), '')); //-------------- DOSYA ADI
SubItems.Add('');
SubItems.Add('');
SubItems.Add('');
SubItems.Add('');
SubItems.Add(Files.Strings); //-------------- KLASÖR YOLU
SubItems.Add('');
SubItems.Add(FormatDateTime('dd.mm.yyyy', Now));
SubItems.Add(FormatDateTime('hh:mm:ss', Now));
Next;
end;
end;
end;
end;
except
end;
end;