Find et billeds placering og noget med FileListBox

sæt Mask til *.jpg:*.bmp;*.gif

takker... det er ihvertfald 15 point.
Kan du også hjælpe med at finde placeringen af det loadede billede?

koden indlæser alle billeder fra c:\mine billeder ind i en listbox med den fulde sti
procedure GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
  begin
  directory := ExtractFilePath(mask);

  // find all files
  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
      // add the files to the listbox
      Form1.ListBox1.Items.Add(directory + search.Name);
        until FindNext(search) <> 0;
  end;

  // Subdirectories/ Unterverzeichnisse
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
        GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  directory: string;
  mask: string;
  begin
Listbox1.Items.Clear;

  directory := 'C:\mine billeder\';
  mask := '*.jpg';

  Screen.Cursor := crHourGlass;
  try
    GetAllFiles(directory + mask);
  finally
    Screen.Cursor := crDefault;

end;
  end;

I din kode skal man selv definere hvilken sti den skal bruge. Det jeg skal bruge det er at den selv finder ud af hvilken sti det åbnede billede ligger i, så den kan åbne resten af billederne også.

Du har altså et filnavn? Så kan du bruge denne

ExtractFilePath(filnavn)

Den returnerer 'folder' delen

så skriver den bare ingenting.

Showmessage(ExtractFilePath(FileListBox1.Items[0]));

altså hvis jeg skriver:

Showmessage(ExtractFilePath(FileListBox1.Items[0]));


så skriver den ingenting.

Showmessage(ExtractFilePath(FileListBox1.FileName));

den skriver stadig ingenting.

Vi taler vist forbi hinanden...

Den viser ingen ting fordi hverken FileName eller Items[n] indeholder sti - kun filnavnet.

Hvad mener du med placeringen af det loadede billede? Hvis du loader det du vel også stien oder wass?

nej for jeg åbner ikke billedet ved at trykke f.eks. Åbn, men trækker billedet over i mit program, og så kan jeg ikke se hvad stien er, og kan så ikke åbne resten af billederne i samme mappe.

Nå nu har jeg fået det til at virke.
Har bare lavet en åbn knap alligevel, og sat FileListBox1.Directory := OpenDialog1.FileName;

doc404 -> giv et svar så får du point for det med Mask gøgl

;-)

Takker for det.