hjælp til TListView

Du sætter ofAllowMultiSelect=true i din Open dialog og så lidt kode:

function GetFileSize(FileName : string) : string;
var
  sr: TSearchRec;
begin
    if FindFirst(FileName, faAnyFile, sr) = 0 then
        Result:=IntToStr(sr.Size)
  else
      Result:='0';
    FindClose(sr);
end;

procedure TForm1.FillListView(Files : TStrings);
var
    i : integer;
begin
    for i:=0 to Files.Count-1 do
        with ListView1.Items.Add do
    begin
        Caption:=Files[i];
            SubItems.Add(GetFileSize(Caption));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
        FillListView(OpenDialog1.Files);
end;

---------------

Når der trykkes på konverter kan du så bruge:

var
    i : integer;
begin
    for i:=0 to ListView1.Items.Count-1 do
      DinFunktion(PChar(ListView1.Items[i].Caption), PChar(???));
end;

jeg har et lille problem med koden, i argument 2 i funktionen. je har en edit hvor burgeren har valgt en mappe f.eks d:\converted\ og i kolonne 4 filnavnet feks 123.wav.
hvordan kombinere jeg så disse to ting så det bliver d:\converted\123.wav?

/FunteX!

Hvis der er valgt en linie i en ListView og Mappen er i den første kolonne og filnavnet er i kolonne 4:

var
  Komplet : string;
begin
  Komplet:=ListView.Selected.Caption; // giver mappen f.eks. d:\converted\
  Komplet:=Komplet+ListView.Selected.SubItems[2]; // mappen+filnavn i kolonne 4
end;

eller i en linie

Komplet:=ListView.Selected.Caption+ListView.Selected.SubItems[2];

Den første kolonne i en listview er Caption, derefter kommer SubItems som starter med SubItems[0], dvs. den 4. kolonne i en ListView er SubItems[2]

hej kroning, undskyld at jeg først svare nu - har haft så meget at se til. koden virker perfekt - drop et svar og point'ne er dine :D

Lyder godt

således, takker mange gange for hjælpen - og godt nytår :D