full - embarcadero delphi

Crear y/o escribir en un archivo

Question

Siento que esto debería ser fácil, pero Google me está fallando por completo en este momento. Quiero abrir un archivo, o crearlo si no existe, y escribir en él.

El seguimiento

AssignFile(logFile, ''Test.txt'');
Append(logFile);

arroja un error en la segunda línea cuando el archivo aún no existe, que supongo que se espera. Pero realmente estoy fallando en descubrir cómo a) probar si el archivo existe yb) crearlo cuando sea necesario.

FYI, trabajando en Delphi XE.

Answer 1

Cualquier solución que use FileExists para elegir cómo abrir el archivo tiene una condición de carrera. Si la existencia del archivo cambia entre el momento en que lo prueba y el momento en que intenta abrir el archivo, su programa fallará. Delphi no proporciona ninguna forma de resolver ese problema con sus rutinas nativas de E / S de archivos.

Si su versión de Delphi es lo suficientemente nueva como para ofrecerla, puede usar TFile.Open con el modo abierto fmOpenOrCreate , que hace exactamente lo que usted desea; devuelve un TFileStream .

De lo contrario, puede usar la función API de Windows CreateFile para abrir su archivo. Establezca el parámetro dwCreationDisposition en OPEN_ALWAYS , que le indica que cree el archivo si aún no existe.

Answer 2

Deberías usar TFileStream en TFileStream lugar. Aquí hay una muestra que creará un archivo si no existe, o escribirá si lo hace:

var
FS: TFileStream;
sOut: string;
i: Integer;
Flags: Word;
begin
Flags := fmOpenReadWrite;
if not FileExists(''D:/Temp/Junkfile.txt'') then
Flags := Flags or fmCreate;
FS := TFileStream.Create(''D:/Temp/Junkfile.txt'', Flags);
try
FS.Position := FS.Size; // Will be 0 if file created, end of text if not
sOut := ''This is test line %d''#13#10;
for i := 1 to 10 do
begin
sOut := Format(sOut, [i]);
FS.Write(sOut[1], Length(sOut) * SizeOf(Char));
end;
finally
FS.Free;
end;
end;

Answer 3

Puede usar la función FileExists y luego usar Append if exists o Rewrite si no.

 AssignFile(logFile, ''Test.txt'');
if FileExists(''test.txt'') then
Append(logFile)
else
Rewrite(logFile);
//do your stuff
CloseFile(logFile);

Answer 4

Si solo está haciendo algo simple, la Unidad IOUtils es mucho más fácil. Tiene muchas utilidades para escribir en archivos.

p.ej

procedimiento WriteAllText (const Path: string; const Contents: string); sobrecarga; estático;

Crea un nuevo archivo, escribe la cadena especificada en el archivo y luego cierra el archivo. Si el archivo de destino ya existe, se sobrescribe.

Answer 5

También puede usar la función de cargar / guardar en una TStringList para resolver su problema.

Esta podría ser una mala solución, ya que todo el archivo se cargará en la memoria, se modificará en la memoria y luego se guardará para volver al disco. (A diferencia de su solución en la que solo escribe directamente en el archivo). Obviamente es una mala solución para situaciones multiusuario.

Pero este enfoque está bien para archivos más pequeños, y es fácil de trabajar y fácil de entender.

const
FileName = ''test.txt'';
var
strList: TStringList;
begin
strList := TStringList.Create;
try
if FileExists(FileName) then
strList.LoadFromFile(FileName);
strList.Add(''My new line'');
strList.SaveToFile(FileName);
finally
strList.Free;
end;
end;