Como ver si un archivo existe
 

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.

Hola,

mira la función FileExists().

Saludos.

hola,
el siguiente procedimiento genera un fichero por dia con (fecha.log) a ver si te sirve

Código Delphi [-]
procedure TFprincipal.log(Mensaje: String);
var
  F: TextFile;
  Filename: String;
  nombre:string;

begin
  // Damos formato al mensaje
  Mensaje:= FormatDateTime('[ddd dd mmm, hh:nn:ss:zzz] ', Now) + Mensaje;
  nombre := FormatDateTime('yyyymmdd', Now);
  Filename:= ChangeFileExt(nombre,'.log');

  // Aqui abrimos el archivo si existe, o lo creamos sino existe
  AssignFile(F, Filename);
  {$I-}
    Append(F);
  if IOResult <> 0 then
    Rewrite(F);
  {$I+}
  if IOResult = 0 then
  begin
    // Escribimos el mensaje
    Writeln(F,Mensaje);
    CloseFile(F);
  end;

end;