如何把字符串'20011234'转化成interger:20011234;?
如没有此类函数
str1 :='20001123'
str2 :='20021231'
str3 :='20010406'
怎样判断str3在str1,str2之间?
谢谢!!!!!!!11

解决方案 »

  1.   

    var
     myInt:Integer; //或Int64
     myStr:string;
    begin
     myStr:='20011234';
     myInt:=StrToInt(myStr);
    end;
      

  2.   

    var
      mydate : TDateTime;
      mystr : string;
    begin
      mystr := '20010406'
      mydate := StrToDateTime(mystr);
    end;
      

  3.   

    StrToInt(str1)if (StrToInt(str1) < StrToInt(str3)) 
    and (StrToInt(str2) >StrToInt(str3)) 
    then
    begin
    end;
      

  4.   

    var
      Nows : String ;
      iNow : Integer ;Nows := DateTimeToStr(Now) ;
    Nows := StringReplace(Nows,'-','',[rfReplaceAll]);
    iNow := StrToInt(Nows) ;