SaveVarToFile
来源：互联网 发布：音乐变调软件 编辑：程序博客网 时间：2024/04/30 09:08
procedure SaveVarToFile(SqlStr, FileName: String);
var AStr:TStringList;
AFilePath:string;
begin
if FileName='' then
FileName:=FormatDateTime('YYYYMMDDHHMMSS',Now);
AStr:=TStringList.Create();
AStr.Add(SqlStr);
AFilePath:='';
AFilePath:=GetCurrentDir;
AFilePath:=AFilePath+'\'+FileName+'.txt';
AStr.SaveToFile(AFilePath);
AStr.Free;
end;
var AStr:TStringList;
AFilePath:string;
begin
if FileName='' then
FileName:=FormatDateTime('YYYYMMDDHHMMSS',Now);
AStr:=TStringList.Create();
AStr.Add(SqlStr);
AFilePath:='';
AFilePath:=GetCurrentDir;
AFilePath:=AFilePath+'\'+FileName+'.txt';
AStr.SaveToFile(AFilePath);
AStr.Free;
end;
0 0
