Вообщем сделал так:
Код:
procedure TForm7.BitBtn2Click(Sender: TObject);
var
pic: string;
begin
DataModule2.ADOTable3.Edit;
if Form7.OpenPictureDialog1.Execute then Form7.DBMemo1.Text:= Form7.OpenPictureDialog1.FileName; //Кнопка обзор, добавление фото к записи
pic:= Form7.DBMemo1.Text;
Form7.Image1.Picture.LoadFromFile(pic);
DataModule2.ADOTable3.Post;
end;
procedure TForm7.FormCreate(Sender: TObject); //Загрузка фото по умолчанию
begin
if Form7.DBMemo1.Text='' then Form7.Image1.Picture.LoadFromFile('Img\camera.bmp') else Form7.Image1.Picture.LoadFromFile(Form7.DBMemo1.Text);
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if DataModule2.ADOTable3.Modified then DataModule2.ADOTable3.Post; //Кнопка сохранить
DataModule2.ADOTable3.Append;
end;
procedure TForm7.BitBtn3Click(Sender: TObject);
begin
Form7.Close;
end;
Но есть проблема, пути меняются, фотки загружаются, но они не меняются у каждой записи. Т.е если загрузить фото, оно останется у всех, хоть как и говорил пути фоток разные у всех.