procedure TForm1.PicLoadClick(Sender: TObject);
begin
Datamodule2.OpenPictureDialog1.Execute;
if Datamodule2.OpenPictureDialog1.FileName <> '' then begin
Datamodule2.DataSource1.Edit;
DBImage1.Picture.LoadFromFile(Datamodule2.OpenPictureDialog1.FileName);
end;
end;
Tip von M.Prager
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.TableName := Copy(Application.ExeName, 1,
LastDelimiter('\', Application.ExeName))
+'Filme';
Table1.Active := True;
end;
© Dietrich Praclik