[DiMiTrI p526]

Есть код, согласно которому программа должна предлагать выбрать музыкальный файл и проигрывать его

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, bass, StdCtrls ;   type   TForm1 = class(TForm)     Button1: TButton;     OpenDialog1: TOpenDialog;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Channel: HStream;   implementation   {$R *.dfm} procedure BasicPlayerPlayFile(const FileName: String); var   ffileName: Pchar;   begin   if not FileExists(filename) then Exit;     FfileName:=Pchar(FileName);     if Channel <> 0 then begin   bass_channelStop(Channel);   bass_StreamFree(Channel);   channel:=0;   end;     channel:=bass_StreamCreateFile (False,FfileName,0,0,0);   if channel = 0 then begin   MessageBox(0, 'Ошибка загрузки файла',0,MB_OK or MB_ICONSTOP);   Exit;   end;     if not (Bass_ChannelPlay(Channel, False)) then   MessageBox(0,'Ошибка возпроизведения файла',0,MB_OK or MB_ICONSTOP);       end;   procedure TForm1.FormCreate(Sender: TObject); begin  if not Bass_init(-1,44100,0,Handle,nil) then  Halt;   end;   procedure TForm1.Button1Click(Sender: TObject); begin  if not dlgOpen1.Execute then exit  BasicPlayerPlayFile(dlgOpen1.FileName);   end;   end.

Но возникает ошибка вот в этой строчке

Код:

1	if not dlgOpen1.Execute then exit

Пишет: Undeclared identifier: 'dlgOpen1'

[dr. F.I.N.]

Сообщение от DiMiTrI p526

Есть код, согласно которому программа должна предлагать выбрать музыкальный файл и проигрывать его

Код:

Посмотрите внимательно на выделенное.

[DiMiTrI p526]

Извините, не понял, плохо разбираюсь в delphi

[angvelem]

Тут не в Дельфи разбираться нужно, а глаза на нужном месте иметь.

[DiMiTrI p526]

Все же укажите на ошибку, пожалуйста

[DiMiTrI p526]

Ту ошибку исправил, теперь выходит ошибка
'Missing operator or semicolon' в этом месте

Код:

1	BasicPlayerPlayFile(OpenDialog1.FileName);

[YVitaliy]

Там же пишет "или разделитель". Так вставь его.

[DiMiTrI p526]

Что за разделитель?
Курсор при ошибке появляется между BasicPlayerPlayFile и (OpenDialog1.FileName);

[angvelem]

Не знаешь Дельфи, учи.

Код:

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); begin   if not dlgOpen1.Execute then     Exit<font color="Red">;</font>   BasicPlayerPlayFile(dlgOpen1.FileName); end;