mysql 列目录_ics ftp 列目录

m := GetMonth(Trim(ExtractWord(startWord + 1, ASource, [#32])));

d := StrToIntDef(Trim(ExtractWord(startWord + 2, ASource, [#32])), 1);

s := Trim(ExtractWord(startWord + 3, ASource, [#32]));

if system.Pos(':', s) > 0 then

begin

y := GetMissingYear(d, m);

hh := StrToIntDef(ExtractWord(1, s, [':']), 0);

mm := StrToIntDef(ExtractWord(2, s, [':']), 0);

end else

begin

y := StrToIntDef(s, CurrentYear());

hh := 0;

mm := 0;

end;

AFileInfo.ModifiedDate := EncodeDate(y, m, d) + EncodeTime(hh, mm, 0, 0);

ind := WordPosition(startWord + 4, ASource, [#32]);

if (ind > 0) then

begin

AFileInfo.FileName := Trim(system.Copy(ASource, ind, Length(ASource)));

if AFileInfo.IsLink then

begin

s := AFileInfo.FileName;

ind := system.Pos('->', s);

if (ind > 0) then

begin

SetLength(s, ind - 1);

AFileInfo.FileName

2016/04/09 19:41

回复

举报