Código Delphi [-] ... var ... aFileName: string; begin aFileName := ExtractFilePath(Application.ExeName) + StringReplace(DateToStr(Date), '/' ,'-', [rfReplaceAll]) + { '/' no válido para nombre de archivo } ' prueba.log'; f := TFileStream.Create(aFileName, fmCreate); ...
... var ... aFileName: string; begin aFileName := ExtractFilePath(Application.ExeName) + StringReplace(DateToStr(Date), '/' ,'-', [rfReplaceAll]) + { '/' no válido para nombre de archivo } ' prueba.log'; f := TFileStream.Create(aFileName, fmCreate); ...