Uses sysutils;
procedure savefile(s:ansistring ;filename:ansistring);
var
f:textfile;
begin
AssignFile(f,filename);
Rewrite(f);
writeln(f,s);
closefile(f);
end;
procedure replacechar(var s:ansistring;replace:char;withthis:char);
var
n:int32;
begin
for n:=1 to length(s) do if (s[n]=replace) then s[n]:=withthis;
end;
var filename:ansistring;
Begin
filename:= DateTimeToStr(now)+'.xlsx';
replacechar(filename,':','.');
replacechar(filename,'/','-');
writeln('filename = ',filename);
savefile('Hello',filename);
writeln(fileexists(filename));
deletefile(filename);
writeln(fileexists(filename));
readln;
End.