谁能帮我解释一下这个?(高分)

来源:百度知道 编辑:UC知道 时间:2024/07/09 02:42:48
我很想看明白Delphi程序,所以请高人给我详细解释一下每行的格式,作用,为什么这样等。
(不一定每行都说,基本一样的就只说一行即可)
另有加分(高分)

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
FileCtrl, StdCtrls, ExtCtrls, Buttons,Jpeg, MPlayer;

type
TMainForm = class(TForm)
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure FileListBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
FileExt:String[4];{存放文件扩展名}
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses Bigpas;

{$R *.DFM}
procedure T

unit main; //单元

interface

uses //用到如下单元
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
FileCtrl, StdCtrls, ExtCtrls, Buttons,Jpeg, MPlayer;

type //各种控件的声明
TMainForm = class(TForm)
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure FileListBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private //私有变量或者方法的声明
{ Private declarations }
FileExt:String[4];{存放文件扩展名}
public //公有变量或者方法的声明
{ Public declarations }
end;

var
MainForm: TMainForm; //窗体名称

implementation

uses Bigpas;

{$R *.DFM} //下面是具体的方法(函数)begin end 相当于{}
procedure TMainForm.FileListBox1Click(Sender: TObject);//选择文件播