не понятный случай

@XXX777 · Регистрация: 09.02.2013

Author24 — интернет-сервис помощи студентам

Delphi

procedure Tform1.BtOpenClick(Sender: TObject);
begin
 if OpenDialog.Execute then //Вводим имя файла базы данных
 begin
    //Выводим его в строку редактирования
     EdDataBaseName.Text:=OpenDialog.FileName;
    //Устанавливаем имя для компонента IBDataBase
    DataModule2.IBDataBase.DatabaseName:=OpenDialog.FileName;
   //Устанваливаем связь с базой данных
    DataModule2.IBDataBase.Connected:=true;
   //Активизируем запрос
    DataModule2.IBQuery.Active:=true;
 
 end;
end;
 
//Обновить состояние базы данных
procedure Tform1.BtRefreshClick(Sender: TObject);
begin
  //Завершаем транзакцию. Запрос закрывается.
  DataModule2.IBQuery.Transaction.Commit;
  //Вновь активизируем  запрос
  DataModule2.IBQuery.Active:=true;
end;

Можете помочь, тут выдает ошибки. Не могу понять ( уже голова болит

[Error] Unit1.pas(63): Declaration expected but end of file found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

@antikiler_ · 10.02.2013, 02:56

Проверь все ли end'ы наместе. Особенно последний, с точкой на конце.

@antikiler_ 1085 / 571 / 79 Регистрация: 07.04.2011 Сообщений: 971 Записей в блоге: 2
	10.02.2013, 02:56	2
	Проверь все ли end'ы наместе. Особенно последний, с точкой на конце. 0