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结尾的字符。如果没有真正看到有问题的文件名或完整的错误消息，这只是一个有根据的猜测。

未知文件extension.jpg

1 个答案: