Bilder Optimal einbinden

[sakura]

Meinst Du mit Namen den Dateinamen? Dann ist es recht einfach. Stell Dir vor, in der Variablen FPath ist der Pfad zu den Bildern (inkl. Backslash).

Code:

// laden der Namen in eine Listbox:

var
  SR: TSearchRec;
begin
  ListBox1.Clear;
  if FindFirst(FPath + '*.bmp', faAnyFile, SR) = 0 then
  repeat
    ListBox1.Items.Add(SR.Name);
  until FindNext(SR) <> 0;
  FindClose(SR);
end;


// onClick für Listbox
  Image1.LoadFromFile(FPath + ListBox1.Items[ListBox1.ItemIndex]);

Fertig! ......