在動態形成的image中載入圖形 可用 img[i].picture.loadfromfile('111111.jpg'); 若我要再 取出各個載入圖形的目錄及名稱再存入listbox中 該怎麼做?

建議可以在 load 的時候將檔名寫入其他地方如 img[i].Hint 因為 TImage 元件好像沒辦法取得檔名 ...  在取得的時, 你就用

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin OpenDialog1.Options :=[ofAllowMultiSelect]; opendialog1.InitialDir:= ExtractFilePath(Application.ExeName); if OpenDialog1.Execute then begin for i:=0 to opendialog1.Files.count-1 do ListBox1.items.add(opendialog1.Files[i]);//多重檔案載入ListBox1中 end; end; procedure TForm1.ListBox1Click(Sender: TObject); var i : integer; begin for I:=0 to ListBox1.Items.Count - 1 do if ListBox1.Selected[I] then Begin label1.caption:= ListBox1.Items[I];//取得路徑檔名 Edit1.Text:= extractfilename(ListBox1.Items[I]);//取得檔名 end; end;

我個人用TImage元件的心得： 如果使用Image1.Picture.LoadFromFile('....jpg')指令的話 一定是自已指定路徑的。 我用過二種方法來指定路徑： 1.我已經知道檔案的路徑及檔名: 這時，我會好好的規劃目錄以方便讀取檔案。 2.使用TOpenpicturedialog來指定某個目錄內的檔案 若使用這個元件就可以讀取openpicturedialog1.FileName取得 完整路徑及檔名。 ---------------------------------------------------------- 要是上面的方法都不是你要的， 那你要不要試試看宣告和動態元件TImage一樣數目的字串陣列， 一但你做Image1.Picture.LoadFromFile('....jpg')的動作時， 順便把路徑存入字串陣列裡，以方便以後讀取。 希望這對你有幫助。