Fórum [Ajuda] Como salvar só o nome da Imagem #460601

unit Utabtit; 

interface 

uses 
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Mask, 
  Vcl.DBCtrls, Vcl.ExtDlgs, db, jpeg, acPNG; 

type 
  TForm1 = class(TForm) 
    Image1: TImage; 
    GroupBox1: TGroupBox; 
    DBEdit1: TDBEdit; 
    DBEdit2: TDBEdit; 
    DBEdit3: TDBEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Button1: TButton; 
    OpenPictureDialog1: TOpenPictureDialog; 
    DBNavigator1: TDBNavigator; 
    procedure Button1Click(Sender: TObject); 
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

uses UDaMo; 

procedure TForm1.Button1Click(Sender: TObject); 
Begin 
If OpenPictureDialog1.Execute then 
Begin 
Image1.Picture.LoadFromFile(openpicturedialog1.FileName); 
DataModule2.IBTable1.edit; 
DataModule2.IBTable1TTI_IMGITENS.value:=(openpicturedialog1.FileName); 
End; 
End; 

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); 
var 
ultcod:integer; 
Begin 
if DataModule2.DataSource1.state in [dsInsert] then 
Begin 
DataModule2.IBTable_Cod.Open; 
DataModule2.IBTable_Cod.last; 
ultcod:=DataModule2.IBTable_CodTTI_CODIGO.value+1; 
DataModule2.IBTable1TTI_CODIGO.value:=ultcod; 
DataModule2.IBTable_Cod.close; 
DBEdit2.SetFocus; 
DataModule2.IBTable1TTI_ImgItens.value:=''; 
Image1.PICTURE.ASSIGN(NIL); 
end 
else 
Image1.picture.loadfromfile (datamodule2.IBTable1TTI_IMGITENS.Value); 

end; 


procedure TForm1.FormShow(Sender: TObject); 
begin 
datamodule2.IBTable1.open; 
Image1.picture.loadfromfile (datamodule2.IBTable1TTI_IMGItens.Value); 
end; 

end.