internet上得到的时间字符串12:13:54 2002-9-24，如何转化为tdatetime型，如果不截取字符串的话

[michael_king]

我这样做觉得太繁了，有人知道简单的吗？
procedure TForm1.FormCreate(Sender: TObject);
var
NMDayTime1: TNMDayTime;
currentTime:TSystemTime;
i:integer;
str:String;
begin
NMDayTime1:=TNMDayTime.Create(self);
NMDayTime1.Host:='202.109.114.209';
NMDayTime1.Port:=13;
Label1.Caption:=NMDayTime1.DayTimeStr;
Edit1.Text:=Label1.Caption;
str:=copy(Label1.Caption,0,8);
DecodeTime(StrToTime(str),CurrentTime.wHour,CurrentTime.wMinute,
CurrentTime.wSecond,CurrentTime.wMilliseconds);
str:=copy(Label1.Caption,10,Length(Label1.Caption)-7);
DecodeDate(StrToDate(trim(str)),CurrentTime.wYear,CurrentTime.wMonth,
CurrentTime.wDay);
SetLocaltime(currentTime);
NMDayTime1.Destroy;
end;

[findcsdn]

这样已经很不错了。

[日总是我哥]

str :=NMDayTime1.DayTimeStr;
Str := LeftStr(str, Length(Str) - 1);
str := RightStr(Str, Length(Str) - 8) + ' ' + LeftStr(str, 8);
DateTimeToSystemTime(StrToDateTime(Str), CurrentTime);

---以上代码在Delphi6.0下测试通过!!

================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆

下载地址：
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]

[日总是我哥]

uses StrUtils;

================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆

下载地址：
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]

[michael_king]

时间不一定时8位的我用了新的
NMDayTime1:=TNMDayTime.Create(self);
NMDayTime1.Host:='202.109.114.209';
NMDayTime1.Port:=13;
Label1.Caption:=NMDayTime1.DayTimeStr;
i:=pos(' ',Label1.caption);
str:=copy(Label1.Caption,0,i-1);
DecodeTime(StrToTime(str),CurrentTime.wHour,CurrentTime.wMinute,
CurrentTime.wSecond,CurrentTime.wMilliseconds);
str:=copy(Label1.Caption,i+1,Length(Label1.Caption)-8);
DecodeDate(StrToDate(trim(str)),CurrentTime.wYear,CurrentTime.wMonth,
CurrentTime.wDay);
SetLocaltime(currentTime);

[日总是我哥]

要不你可以Pos一下时间与日期中间的那个分隔符（空格）
然后再判断时间是多少位！

================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆

下载地址：
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]