Liste over filer i bibliotek...?

Under fanebladet 'win3.1' findes en komponent, der hedder 'TFileListbox', som har de egenskaber du har brug for...

Den er simpel at bruge, så måske det er en mulighed? Sig til hvis du vis se noget kode til den...

Prøv dette :

procedure FindJpegs(Sti : String);
Var
  Fsr : TSearchRec;
  SogSti : String;
  ListItem: TListItem;
Begin
  If Sti[Length(Sti)] = '\' then else
    Sti := Sti + '\';
  If LastDelimiter('*',Sti) > 0 then else
    SogSti := Sti + '*.jpg';

  If FindFirst(SogSti, faAnyFile, Fsr) = 0 then
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := Fsr.Name;
      end;

  While FindNext(Fsr) = 0 do
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := Fsr.Name;
      end;
  FindClose(Fsr);
end;


/SpEeDy

Ups, lige en lille fejl, brug denne :

procedure FindJpegs(Sti : String);
Var
  Fsr : TSearchRec;
  SogSti : String;
  ListItem: TListItem;
Begin
  If Sti[Length(Sti)] = '\' then else
    Sti := Sti + '\';
  If LastDelimiter('g',Sti) > 0 then else
    SogSti := Sti + '*.jpg';

  If FindFirst(SogSti, faAnyFile, Fsr) = 0 then
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := Fsr.Name;
      end;

  While FindNext(Fsr) = 0 do
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := Fsr.Name;
      end;
  FindClose(Fsr);
end;



/SpEeDy

Her har du koden til at få vist filerne i en TFilelistbox:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    FileListBox1: TFileListBox;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  filelistbox1.ApplyFilePath(edit1.text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  filelistbox1.Mask := '*.jpg';
end;

end.

Antallet af filer får du ved:

Filelistbox1.Items.count;

I stedet for at bruge en editboks til at vælge directoriet, kan det også anbefales at bruge en TDirectoryListBox. Denne findes også under fanebladet 'win 3.1' og skal bare bruges i stedet for edit1. Du kan også sætte det op sådan at du ikke behøver at bruge en knap til at se filerne, men så det bliver vist automatisk... Sig til hvis du vil have en komplet kode for dette...

Mvh
Retep

Ja har fået hjælp af canman på arbejdet, men ellers tak...

Kan du så ikke enten acceptere eller afvise ??

/SpEeDy

Ja, accepter lige svarene, så andre ikke behøver spilde tid på at kigge på et spørgsmål der er løst...

Mvh
Retep

man skal lige passe på med FSr.Attr <> faDirectory, for hvis mappen også har andre attributter duer den ikke (som fx skjult)
I stedet kan man bruge  and  til at sammenligne med, fx:
if FSr.Attr and faDirectory = 0 then

Michael