简单问题(先来先拿分,在线) 如何把字符串'20011234'转化成interger:20011234;?如没有此类函数str1 :='20001123'str2 :='20021231'str3 :='20010406'怎样判断str3在str1,str2之间?谢谢!!!!!!!11 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var myInt:Integer; //或Int64 myStr:string;begin myStr:='20011234'; myInt:=StrToInt(myStr);end; var mydate : TDateTime; mystr : string;begin mystr := '20010406' mydate := StrToDateTime(mystr);end; StrToInt(str1)if (StrToInt(str1) < StrToInt(str3)) and (StrToInt(str2) >StrToInt(str3)) thenbeginend; var Nows : String ; iNow : Integer ;Nows := DateTimeToStr(Now) ;Nows := StringReplace(Nows,'-','',[rfReplaceAll]);iNow := StrToInt(Nows) ; 怎样监控:建立文件(夹)、哪个程序建立的、怎样禁止不让建立文件夹? 求助彩票思路编程! 问个关于AdoQuery结果集合赋值的问题 关于动态创建的问题 高手看过来。自己用delphi建立FTP主目录时,如何设置用户与密码? 请问如何用Delphi 控制 Word 画表格? DELPHI如何操作WORD文档? 如何解决IE异常错误? 请问那位大虾知道在Delphi中如何判断一个指定的数据库表是否存在? 我有一个有市场的项目要做,请帮我看看哦 恭请Kingron兄: FastReport2.4中如何实现逐行累加,高手请赐招!!在线等待......
myInt:Integer; //或Int64
myStr:string;
begin
myStr:='20011234';
myInt:=StrToInt(myStr);
end;
mydate : TDateTime;
mystr : string;
begin
mystr := '20010406'
mydate := StrToDateTime(mystr);
end;
and (StrToInt(str2) >StrToInt(str3))
then
begin
end;
Nows : String ;
iNow : Integer ;Nows := DateTimeToStr(Now) ;
Nows := StringReplace(Nows,'-','',[rfReplaceAll]);
iNow := StrToInt(Nows) ;