Escribir en archivos con Delphi

[ecfisa]

Hola Lepuke.

Te agrego otra opción para realizarlo:

Código Delphi [-]
procedure AddAtEnd(const aFileName: string; const aText: string);
begin
  with TFileStream.Create(aFileName, fmOpenWrite) do
  try
    Seek(0, soFromEnd);
    Write(aText[1], Length(aText));
  finally
    Free;
  end;
end;

Pero coincido plenamente con lo que te han aconsejado los compañeros, no es la mejor opción para lo que buscas hacer.

Saludos

[[escafandra]]

Otra idea para guardar tu password es el registro de Windows, así quede fuera del alcance de los fisgones de archivos.

Puestos a variar el código, usemos la API de Windows:

Código Delphi [-]
procedure Write(FileName: PCHAR; Buffer: Pointer; Size: integer);
var
  hFile: integer;
begin
  hFile:= CreateFile(FileName, GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
  if hFile <> -1 then
  begin
    _llseek(hFile, 0, FILE_END);
    _lwrite(hFile, Buffer, Size);
    _lclose(hFile);
  end;
end;

Saludos.