Delphi 字符串分割与转型

Delphi的Tstringlist直接就可以拿来分割了


var
  list : TStringlist;
begin
  list := TStringlist.Create;
  list.Delimiter := '-';
  list.DelimitedText := '1987-11-16';


  showmessage(list.Strings[0]); //1987
  showmessage(list.Strings[1]); //11
  showmessage(list.Strings[2]); //16 


var
  myTime : TDate;
  i : integer;
begin
  myTime := strToDate('2011-3-17');

  i := round((now - mytime)*24*3600);  //从myTime到现在经历的秒数 ;

字符串转化为整数

 StrToIntDef(‘字符串’,如果字符串是非法的整数默认返回的int)
 举例： 
 var 
  i：integer；
  s：string；            
  s：='12345’;            
  i：=StrToIntDef(s,0);  //i=12345            
  s：='a123'           
  i：=StrToIntDef(s,0); //i=0