千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
if OpenDialog1.Execute then
begin
if (DataModule3.dsProgram.State <> dsEdit) and (DataModule3.dsProgram.State
<> dsinsert) then
DataModule3.dsProgram.Edit;
DBimage1.Picture.RegisterFileFormat('jpg','jpeg',TjpegImage);
DBimage1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
begin
if (DataModule3.dsProgram.State <> dsEdit) and (DataModule3.dsProgram.State
<> dsinsert) then
DataModule3.dsProgram.Edit;
DBimage1.Picture.RegisterFileFormat('jpg','jpeg',TjpegImage);
DBimage1.Picture.LoadFromFile(OpenDialog1.FileName);
end;