Hola tengo que crear archivos binarios, pero tengo que crear si el archivo no existe y solamente genere uno por día, y otro que sea único. Mi duda es que métodos se pueden usar que verifique que el archivo existe y que no fue creado el mismo día así no se vuelve a crear, y como también crear un único archivo sin que se vuelva a crear.
El codigo que hice fes:
Código Delphi
[-]
Procedure TArch.NuevoArchivoDiario(const Valor: string);
var
Binario : TFileStream;
Fecha : TDateTime;
begin
Binario := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'TextoPorDia.txt',fmCreate);
Fecha := Now();
texto := DateTimeToStr(Fecha) + Valor;
Binario.Write(texto[1],length(texto));
Binario.Free;
end;
Procedure TArch.UnicoArchivo(const Valor: string);
var
Binario : TFileStream;
Fecha : TDateTime;
begin
Binario := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Textounico.txt',fmCreate);
Fecha := Now();
texto2 := DateTimeToStr(Fecha) + Valor;
Binario.Write(texto2[1],length(texto2));
Binario.Free;
end;
Bueno ese es el codigo que hice para cada uno de los archivos pero mi duda que se haga un archivo por día y otro único.
Muchas Gracias de Antemano.