FileListBox filNavne

Det er kun muligt hvis du laver FileListBoxen hidden og så laver en ListBox som du opdaterer ved at læse FileListBoxen igennem og fjerne dem der feks. starter med "temp" og kopiere resten over i ListBoxen

Gider du lave et lille eks.???

TFileListBox er noget win31 - jeg ville aldrig bruge noget der er til for at være kompatibelt med Win31 og Delphi 1. Drop det og brug noget 32-bit'sk.

Jeg ville bruge mere tidssvarende funktioner:

procedure MyFileListBox.LoadFiles;
var
  sr : TSearchRec;
  bFound : boolean;
  st : string;
begin
  bFound := (findfirst('*.*',faAnyfile,sr) = 0);
  while bFound do begin
    st := Uppercase(ExtractFileName(sr.name));
    if pos('TEMP',st) <> 1 then // Så begynder filnavnet ikke med temp
      Listbox.items.add(sr.name);
    bFound := findnext(sr);
  end; // while
  findclose(sr);
end;

Rettelse: bFound := (findnext(sr) = 0);

Kom lige til at tænke på nogle komponenter som du måske også kan bruge - nu du arbejder med filer.

..\Delphi7\Demos\ShellControls

De findes under "samples" komponenterne. Det er nogle "moderne" komponenter som du måske/måske ikke har i din Delphi - det er nok et spørgsmål om version...