Problemas al crear TXT y asignar un String

[[maeyanes]]

Parece que no me entendiste o no me explique bien... jejeje

Voy a tratar de usar tu código para que entiendas:

Código Delphi [-]
procedure TFrmInterfaz.btnBolFechaClick(Sender: TObject);
var
  // Todas tus declaraciones
  ATextFile: TStringList;

begin
  ATextFile := TStringList.Create;
  try
    chdir('C:\');
    // Si el archivo existe lo abrimos, si no, no hay problema
    if FileExists('BOL_FECHA.txt') then
      ATextFile.LoadFromFile('BOL_FECHA.txt');
    with DMServidores.OQryBoletaFecha do
    begin
      // Aquí tu código...
      // En donde usas el procedimiento Concatenar utiliza:
      ATextFile.Add(tipo + boleta_id + rut + fecha + lote + 
        codigo + monto + descuento)
    end;
    { Aquí guardas el contenido de ATextFile a un archivo, si no existe, 
      el método lo crea: }
    try
      ATextFile.SaveToFile('BOL_FECHA.txt')
    except
      ShowMessage('Ocurrió un error guardando el archivo')
    end
  finally
    ATextFile.Free
  end
end;

No se que hace exactamente el procedimiento o función Concatenar, pero me imagino que une el contenido de las variables en una sola línea y la agrega al archivo que estás manejando. Es por eso que solo use el (+) para unirlas de la misma manera.

Espero que con esto me de a entender mejor.


Saludos...