Søge efter bestemte filtyper og liste dem i listbox

Alle mp3 filer fra mappen c:\hk\test1 til Listbox1

var
  fname : string;
begin
  fName:='c:\hk\test1\*.mp3';
  SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE,LongInt(fName));
end;

kroning: Ret sødt, men også noget nørdet. Ved godt det fylder mere, men hvad med at bruge de indbyggede funktioner: FindFirst, FindNext og FindClose?

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  FindMP3s('c:\test',ListBox1.Items);
end;

procedure TfrmMain.FindMP3s(const aPath: string; aList: TStrings);
var
  Found: boolean;
  SearchSpec: string;
  SearchRec: TSearchRec;
begin
  SearchSpec := IncludeTrailingPathDelimiter(aPath) + '*.mp?';
  Found := FindFirst(SearchSpec,faArchive,SearchRec) = 0;
  aList.BeginUpdate;
  try
    aList.Clear;
    while Found do
    begin
      aList.Add(SearchRec.Name);
      Found := FindNext(SearchRec) = 0;
    end;
  finally
    aList.EndUpdate;
    FindClose(SearchRec);
  end;
end;

Hej begge to. Selvfølgelig har I to begge et godt svar.

Jeg vil give jer begge point, men to ting hænger en smule.

1. Kan jeg undgå at liste fil-endelsen? (OK, jeg skal jo egentlig blot fjerne de sidste 4 tegn, og så har jeg den) ;o)
2. Jeg forstår ikke, hvad der sker i Haralds kode.

Med hrc´s løsning skal du udskifte denne linie:
aList.Add(SearchRec.Name);
med denne:
aList.Add(ChangeFileExt(SearchRec.Name,''));

Med min løsning skal du benytte dette i stedet:
var
  fname : string;
  i : integer;
begin
  fName:='c:\hk\test1\*.mp3';
  SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE,LongInt(fName));
  for i:=0 to ListBox1.Count-1 do
    ListBox1.Items[i]:=ChangeFileExt(ListBox1.Items[i],'');
end;

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

ListBox er en windows control, dvs. at det ikke er en komponent som 100% er designet i Delphi, Delphi benytter blot nogle API kald for at få windows til at lave en ListBox. (tror jeg nok)
Windows har så mulighed for at man kan sende nogle kommandoer til Listboxen og til dette bruger man funktionen SendMessage.
Du kan se en beskrivelse af de enkelte parametre der skal benyttes til ListBox her:
http://msdn2.microsoft.com/en-us/library/bb775185(VS.85).aspx

Mht. min løsning så kan det også gøres lidt kortere således, men det er så ikke en 100% sikker løsning.

var
  fname : string;
begin
  fName:='c:\hk\test1\*.mp3';
  SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE,LongInt(fName));
  ListBox1.Items.Text:=StringReplace(ListBox1.Items.Text,'.mp3','',[rfReplaceAll, rfIgnoreCase]);
end;

Et problem opstår hvis du f.eks. har en fil der indeholder ".mp3" og det ikke er fil-endelsen, men det er nok ikke så sansynlig.

kroning: Jeg kan godt lide din løsning - dvs. indtil endelserne skal fjernes. Den er kort, lo-level og ret umulig at få til at fejle - men nu er jeg Object Pascal fan og så måtte jeg lave det. Skal tjekke dit link ud; har ikke arbejdet meget i at sende komponenterne "messages".

Og et svar