Здравствуйте!
Я новичок в программировании, полный профан в этом деле. Но хотелось бы познать азы этого дела. Подскажите: что в этом коде не так? Программа должна открывать и проигрывать файлы в плей-листе. Но не компилируется.
Версия Делфи у меня 7. Ошибки, которые выдаёт компилятор:
[Ошибка] Unit1.pas(48): Undeclared identifier: 'FileName'
[Ошибка] Unit1.pas(49): Undeclared identifier: 'Open'
[Ошибка] Unit1.pas(50): Undeclared identifier: 'Play'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Вот код самой программы:
#
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
MediaPlayer1: TWindowsMediaPlayer;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
SL: TStringList;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
IF OpenDialog1.Execute Then
Begin
For I:=0 to OpenDialog1.Files.Count -1 do
Begin
SL.Add(OpenDialog1.Files);
ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files));
End;
End;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end.
#
Я новичок в программировании, полный профан в этом деле. Но хотелось бы познать азы этого дела. Подскажите: что в этом коде не так? Программа должна открывать и проигрывать файлы в плей-листе. Но не компилируется.
Версия Делфи у меня 7. Ошибки, которые выдаёт компилятор:
[Ошибка] Unit1.pas(48): Undeclared identifier: 'FileName'
[Ошибка] Unit1.pas(49): Undeclared identifier: 'Open'
[Ошибка] Unit1.pas(50): Undeclared identifier: 'Play'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Вот код самой программы:
#
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
MediaPlayer1: TWindowsMediaPlayer;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
SL: TStringList;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
IF OpenDialog1.Execute Then
Begin
For I:=0 to OpenDialog1.Files.Count -1 do
Begin
SL.Add(OpenDialog1.Files);
ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files));
End;
End;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end.
#