Стр. 213 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
213
Листинг 15.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls, MPlayer, ExtCtrls;
type
TForm1 = class(TForm)
//объявление компонентов
MediaPlayer1: TMediaPlayer;
ListBox1: TListBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure GetFilePath(Path:string);
var
Form1: TForm1;
ms:array of string;
ms_count:word;
curr:integer;
hour,min,sec:integer;
implementation
{$R *.dfm}