Question

delphi如何按固定的分隔符来分割字符串，并且把分割出来的字符串放到数组中？具体的代码如何实现？

固定的分隔符 就是日期2011-3-17 的 - 来分割字符串，并且把分割出来的字符串放到数组中？具体的代码如何实现？
谢谢： chuxue1342

请问我想取得分割出来的日期是不是直接可以 temp[2]呢?

谢谢 kysxiaoh 我试试看

请问我怎么计算时间差呢？和系统的当前时间来计算时间差 该怎么写呢？

Answer 1

我用C#的,里面有split,我相信delphi里面也有类似的函数:
string str='2011-3-17';
string[] listStr=str.split('-');

-------------------------------------
我找了一下,不知道是delphi里面的系统函数还是人家写,你可以拿去用吧:
//根据字符串，拆分字符串，相当于vb中的split函数
function SplitString(const Source,ch:string):TStringList;
var
temp:String;
i:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source=''''''''
then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;

------------------------------------
日期不知道你是取的是哪一部分,应该按顺序来:
temp[0]:2011
temp[1]:3
temp[2]:17

Answer 2

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到现在经历的秒数 ;