帮我看看错在哪里
我想实现的是每个edit.text 的输入控制在两个字符
procedure TfrmSetTime.btnSetTimeClick(Sender: TObject);
var
// shuzu: array of byte;
Temp:string;
lrc:LongWord;
str:string;
begin
// shuzu[0]:= strtoint(edtyear.text);
// shuzu[1]:= strtoint(edtmonth.text);
// shuzu[2]:= strtoint(edtday.text);
// shuzu[3]:= strtoint(edthour.text);
// shuzu[4]:= strtoint(edtmin.text);
// shuzu[5]:= strtoint(edtsecond.text);
// if(hComm=0) then exit;
// temp:= edtyear.text+edtmonth.text +edtday.text+edthour.text +edtmin.text
// +edtsecond.text;
Temp:= 'AA'+format('%2',edtsecond.text)+ format('%2',edtmin.text)+format('%2',edthour.text)
+format('%2',edtday.text) +format('%2',edtmonth.text)+format('%2'+edtyear.text);
ShowMessage(Temp);
//WriteFile(hComm,PChar(Temp)^,Length(Temp),lrc,nil);
end;
错误提示为:[Error] settime.pas(107): Incompatible types: 'Array' and 'TCaption'
procedure TfrmSetTime.btnSetTimeClick(Sender: TObject);
var
// shuzu: array of byte;
Temp:string;
lrc:LongWord;
str:string;
begin
// shuzu[0]:= strtoint(edtyear.text);
// shuzu[1]:= strtoint(edtmonth.text);
// shuzu[2]:= strtoint(edtday.text);
// shuzu[3]:= strtoint(edthour.text);
// shuzu[4]:= strtoint(edtmin.text);
// shuzu[5]:= strtoint(edtsecond.text);
// if(hComm=0) then exit;
// temp:= edtyear.text+edtmonth.text +edtday.text+edthour.text +edtmin.text
// +edtsecond.text;
Temp:= 'AA'+format('%2',edtsecond.text)+ format('%2',edtmin.text)+format('%2',edthour.text)
+format('%2',edtday.text) +format('%2',edtmonth.text)+format('%2'+edtyear.text);
ShowMessage(Temp);
//WriteFile(hComm,PChar(Temp)^,Length(Temp),lrc,nil);
end;
错误提示为:[Error] settime.pas(107): Incompatible types: 'Array' and 'TCaption'
...全文
相关推荐
可以帮我看看是什么错吗?
可以帮我看看是什么错吗?
上传错了。不要通过。帮我删了
文件内容涉及一位名为陈超的数据治理工程师的试用期工作总结报告。报告详细阐述了其在试用期间的工作职责、目标、业绩、对公司的建议、自我评价以及配色规范。陈超的主要工作职责包括负责基于数据中台、Python脚本和
小赵小学作业批改家访记录文稿空表.doc
**特长(困)学生辅导**:对于有特殊需求或学习困难的学生,教师需要制定个性化的帮辅计划。这包括确定帮辅对象、设定辅导时间和方式,以及预期的效果。
磨题帮试题制作流程.doc
判断题则只需“对”或“错”的答案,同样需设定正确答案的得分。问答题的录入有所不同,这类题型更注重学生的理解和表达。
1980运输巷翻拱、砌墙帮、工字钢支护安全技术措施.docx
- **工字钢支护**:确保支架成直线排列,避免柱子内拱外鼓或梁头错高吊矮。- **安全检查**:值班员和带班长须提前检查顶板岩石和支护情况,确保安全后再施工。


