未知文件扩展名.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

考虑到当你硬编码文件名时它可以正常工作，但在从数据库中检索文件名时不起作用，我不得不假设数据库中的值格式不正确，例如它有额外的空间/null 字符在最后。在没有实际看到有问题的文件名或完整的错误消息的情况下，这只是一个有根据的猜测。