Советы по Delphi. Версия 1.4.3 от 1.1.2001

 Table1Capital: TStringField;

 Table1Continent: TStringField;

 Table1Area: TFloatField;

 Table1Population: TFloatField;

 DBGrid1: TDBGrid;

 DBNavigator: TDBNavigator;

 Panel1: TPanel;

 DataSource1: TDataSource;

 Panel2: TPanel;

 Table1: TTable;

 EditButton: TButton;

 procedure FormCreate(Sender: TObject);

 procedure EditButtonClick(Sender: TObject);

 procedure DBGrid1DblClick(Sender: TObject);

private

 { private declarations }

public

 { public declarations }

end;

var DBMainForm: TDBMainForm;

implementation

{$R *.DFM}

procedure TDBMainForm.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

// {ПРИМЕЧАНИЕ: DBHandle - дескриптор базы данных & DSHandle - курсор

//  рассматриваемой записи. Кроме того, если вы имеете цель в

//  динамической загрузке DLL во время выполнения приложения,

//  используйте вызовы API LoadLibrary, GetProcAddress и

//  FreeLibrary вместо подразумевающихся вызовов загрузки при

//  запуске. Пример использования API для динамической загрузки: }

// Type

//  {Для GetProcAddress}

//  BDEDataSync =

//    function(const DBHandle: HDBIDB; const DSHandle: HDBICur): Boolean;

//             stdcall;

//  {Организация перехвата ошибок загрузки DLL}

//  EDLLLoadError = class(Exception);

// var h: hwnd;

//     p: BDEDataSync;

//     LastError: DWord;

// begin

// UpdateCursorPos;

// Try

//   h := loadLibrary('EDITDLL.DLL');

//   {Примечание для пользователей Delphi 1.0: Поскольку Win32

//    LoadLibrary при неудачной загрузке DLL возвращает NULL,

//    поэтому для поиска ошибки необходим вызов GetLastError,

//    Win16 LoadLibrary возвращает значение ошибки (меньше чем

//    HINSTANCE_ERROR), которая для выяснения причин неудачной

//    загрузки может затем провериться с помощью Win16API SDK.}

//   if h = 0 then begin

//      LastError := GetLastError;

//      Raise EDLLLoadError.create(IntToStr(LastError) +

//                                 ': Невозможно загрузить DLL');

//      end;

//   try

//      p := getProcAddress(h, 'EditData');

//      if p(DBHandle, Handle) then Resync([]);

//   finally

//      freeLibrary(h);

//   end;

// Except

//   On E: EDLLLoadError do

//     MessageDLG(E.Message, mtInformation, [mbOk],0);

// end;

// end;

// {или}

function EditData(const DBHandle: HDBIDB; const DSHandle: HDBICur): Boolean;  stdcall external 'EDITDLL.DLL' name 'EditData';

procedure TDBMainForm.EditButtonClick(Sender: TObject);

begin

 with Table1 do begin

  UpdateCursorPos;// Вызываем процедуру EditData из EditDll.dll.

  if EditData(DBHandle, Handle) then Resync([]);

 end;

end;

procedure TDBMainForm.DBGrid1DblClick(Sender: TObject);

begin

 EditButton.Click;

end;

end.