Question

懂delphi的大神请帮忙.在下面的代码中加注释,说明一下代码的意思是什么; 如:TForm1 = class(TForm):窗体

TForm1 = class(TForm) //定义一个窗体
Timer1: TTimer; //计时器
Edt_Send: TEdit; //单行文本输入框
Memo_Cont: TMemo;
Button1: TButton;//定义按钮
Button2: TButton;//定义按钮
Label1: TLabel;
Label2: TLabel;
Edt_Receive: TEdit;
Label3: TLabel;
ADO: TADOConnection;
TmpQry: TADOQuery;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Procedure Inter(var Msg :TMessage); message WMA_InterPro;
Function ProcessMsg(strList :TStrings) :Boolean;
Procedure ExecQuery(SQLStr: String);
Function OpenQuery(OQuery: TADOQuery; SQLStr: String): Boolean;
public
ToHandle :Thandle;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Var
Pathstr :String;
// blnOutTime :Boolean;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//*******保证让软件能够和程序同时关闭（软件关闭时也一样）************//
PostMessage(ToHandle,WM_Close,0,0);
end;
procedure TForm1.Inter(var Msg: TMessage);
Var
StrList :TStrings;
temp:bool;
i:integer;
begin
//*******第一次接收到的消息类型的编号为软件响应消息的窗口句柄************//
IF ToHandle =0 Then Begin
ToHandle :=Msg.LParam;
End Else IF (Msg.LParam =11) Or (Msg.LParam =10) Then Begin
//程序需要根据消息类型判断和进行必要的处理 //
//********************************************************** //
strList :=TStringList.Create;
strList.Add('1');
strList.SaveToFile(Pathstr + 'TXT\DL' + '.TXT');
strList.Free;
//处理完后必须通知软件，如果是接收到点菜机发出的短信则不用通知 //
temp:=PostMessage(ToHandle,WMA_InterPro,0,Msg.LParam);
if temp=True then i:=1;
End Else Begin
strList :=TStringList.Create;
strList.LoadFromFile(Pathstr + 'TXT\T' + IntToStr(Msg.LParam) + '.TXT');
//********************************************************** //
//程序需要根据从文件中收到的内容进行必要的判断和处理 //
//处理完后再把需要返回的信息写入到下面相应的文件中 //
//********************************************************** //
ProcessMsg(strList);

strList.SaveToFile(Pathstr + 'TXT\R' + IntToStr(Msg.LParam) + '.TXT');
strList.Free;
//*****最后通知软件处理结果和返回内容**************//
PostMessage(ToHandle,WMA_InterPro,0,Msg.LParam);
End;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Pathstr :=ExtractFilePath(Application.ExeName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
StrList :TStrings;
str ,Allstr :String;
begin
strList :=TStringList.Create;

Answer 1

trtrtrtrt