用delphi将文本文档读取出来赋值给string

来源：百度知道 编辑：UC知道 时间：2024/05/19 01:47:38
如题，将保存在文档里的日期时间信息读取出来，赋值给string，然后转换成tdatetime，再赋值给tdatetime型变量。由timer判断，触发其他事件。

procedure SaveDataTime(ATime: TDataTime; FileName: string);
var
slTmp: TStringList;
begin
slTmp := TStringList.Create;
try
DeleteFile(FileName);
slTmp.Add(DateTimeToStr(ATime));
slTmp.SaveToFile(AFileName);
finally
slTmp.Free;
end;
end;

procedure LoadDataTime(var ATime: TDataTime; FileName: string);
var
slTmp: TStringList;
begin
slTmp := TStringList.Create;
try
slTmp.LoadFromFile(AFileName);
if slTmp.Count > 0 then
ATime := StrToDateTime(slTmp[0]);
finally
slTmp.Free;
end;
end;