代码解释 ( 积分: 4 )

procedure Tqc_mainForm.Button6Click(Sender: TObject);
var s,s2,s3:string;
s4:string;
s_date,s_work:string;
i:integer;
bool2:boolean;
z:dword;
begin
z:=sizeof(c);
GetComputerName(c,z);
s_date:=edit1.text;
try
datetostr(strtodatetime(edit1.Text));
except
on E: EConvertError do
BEGIN
showmessage('日期格式错误！');
edit1.SetFocus;
exit;
END;
end;

s_work:=combobox1.Text;
if length(s_work)<1 then
begin
showmessage('工序种类不能空');
exit;
end;
end;
以上代码,有劳哪位给我解释一下