未知文件extension.jpg

Question

jpeg在使用部分。

Procedure TFrmChemistry.AddBasicGroups; 
var i,side: integer; 
begin 
Side := 0; 
for i := 1 to 3 do 
begin 
Images[i].Diagram := TImage.Create(gbxParts); 
Images[i].Diagram.Parent := TTabBasicGroups; 
Images[i].Diagram.Visible :=true; 
Images[i].Diagram.Picture.LoadFromFile(Images[i].Chemical); // unknown file extension.jpg 
Images[i].Diagram.AutoSize := true; 
Images[i].Diagram.Tag := i; 
Images[i].Diagram.Top := ((Chempage.Height)Div 2) - ((Images[i].Diagram.Height) Div 2); 
Images[i].Diagram.Left := 10 + side; 
Images[i].Diagram.OnClick := ImageCreate; 
Side := Side + Images[i].Diagram.Width; 

end; 
end; 

Images是記錄陣列，Diagram是TImage，Chemical是文件名的字符串。 當我在代碼中定義字符串時，它最初是工作的，但是在我開始從數據庫中定義它之後，它停止工作。

在此先感謝。

Answer 1

鑑於當你對文件名進行硬編碼時工作正常，但在從數據庫中檢索文件名時不起作用，我必須假定數據庫中的值格式錯誤，比如它是否有額外的空格/空字符在結尾處。如果沒有真正看到文件名或者完整的錯誤信息，這只是一個有教養的猜測。