帮我看看错在哪里

mikejakeson mikejakeson 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我想实现的是每个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'
...全文

相关推荐

评论 5
收藏 已收藏
分享
返回顶部
mikejakeson
Delphi 5,944 成员 262,941 内容