[Antidelphik]

Здравствуйте все гости темы, проблема вот в чем: написала код для проверки наличия в моем делфи BDE, (ато вдруг нету)

Код:

program Project1;

uses
  Forms,
  BDE;

Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
 var SV:SysVersion;
begin
  Application.Initialize;
  if (dbiGetSysVersion(SV)<>DBIERR_None)or(SV.iVersion<400)then
  begin
   MessageDlg('на вашем компьютере не установлен BDE. Дальнейшая работа программы невозможна',mtError,[mbOK],0);
   Halt(1)
  end;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

а мой умник выдает ошибку

Код:

[Error] Project1.dpr(7): Declaration expected but identifier 'Unit1' found

в чем дело? подскажите

[Kailon]

Сообщение от Antidelphik

Здравствуйте все гости темы, проблема вот в чем: написала код для проверки наличия в моем делфи BDE, (ато вдруг нету)

Код:

program Project1;

uses
  Forms,
  BDE,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var 
  SV:SysVersion;
begin
  Application.Initialize;
  if (dbiGetSysVersion(SV)<>DBIERR_None)or(SV.iVersion<400)then
  begin
   MessageDlg('на вашем компьютере не установлен BDE. Дальнейшая работа программы невозможна',mtError,[mbOK],0);
   Halt(1)
  end;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

а мой умник выдает ошибку

Код:

[Error] Project1.dpr(7): Declaration expected but identifier 'Unit1' found

в чем дело? подскажите

Скопировал, вставил. В принципе все работает только чего-то нехватает у тебя.

[Antidelphik]

спасибо =) теперь все ошибки прошли, но одна единственная появилась

Код:

program Project1;

uses
  Forms,
  BDE,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var 
  SV:SysVersion;
begin
  Application.Initialize;
  if (dbiGetSysVersion(SV)<>DBIERR_None)or(SV.iVersion<400)then
  begin
   MessageDlg('на вашем компьютере не установлен BDE. Дальнейшая работа программы невозможна',mtError,[mbOK],0);
   Halt(1)
  end;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

в строчке выделенной красным. Ошибка "файл не найден" как я поняла

Код:

[Fatal Error] Project1.dpr(6): File not found: 'Unit1.dcu'

вот она

[Kailon]

Сделай новый проект и аккуратно, по строчкам, скопируй.

[Antidelphik]

оёёёй!! заработало )))) тока я ничего не копировала, сохранила просто эту, закрыла её, а потом снова открыла и запустилось все без проблем =) так, мне сообщения не выдало то которое в THEN, значит у меня есть BDE?

[Kailon]

Конечно у тебя есть BDE! У тебя же Delphi установлено!
А сохраняться надо всегда ;-)

[Antidelphik]

просто в методичке по которой я делаю написано что BDE может и не установится вместе с делфи =) а я сохранилась до этого, но не закрывала прогу, а тут я всё таки ещё раз пересохранилась и прогу закрыла, а когда открыла уже всё работало =) ну ладно, спасибочки =)