Como armo este txt????

[danytorres]

Buenos dias Sr. del foro, necesito de su ayuda para crear archivo txt y para insertarle datos desde un query el motor de base de datos es partadox , este achivo txt es para mandar la nomina al banco atraves de un sistema llamado siete, el txt debe tener el nombre del banco en la primera linea y por cada trabajador una linea el nombre debe estar separado por 10 espacios del sueldo asi porcada trabajador como hago esto????


ayuda.

[roman]

Usa un StringList. Comienzas insertando una línea para el nombre del banco. Luego recorres el query formando la línea por cada registro tomando los datos de los campos individuales y al final guardas el archivo:

Código Delphi [-]
var
  List: TStringList;
  Line: String;

begin
  List := TStringList.Create;
  try
    List.Add('El banco de la ilusión');

    Query.First;
    while not Query.Eof do
    begin
      Line := Query.FieldByName('nombre').AsString;
      Line := Line + StringOfChar(' ', 10);
      Line := Line + Query.FieldByName('sueldo').AsString;

      List.Add(Line);
      Query.Next;
    end;

    List.SaveToFile('sueldos.txt');
  finally
    List.Free;
  end;
end;

// Saludos

[danytorres]

Grcias por responder roman, pero el procedimiento se queda colgado, que prodra ser?

[roman]

¿Estás poniendo Query.Next al final de cada ciclo?

// Saludos

[[Lepe]]

Aparte de lo que dice Roman, pon un texto en un StatusBar o algo similar e imprime en cada ciclo el nombre del trabajador. Simplemente puede ser una consulta tan larga que te desesperes y creas que se ha quedado pillada.

Si la aplicación se queda congelada, pon un Application.ProcessMessages dentro del bucle.

Saludos

[danytorres]

Buenas tardes Señores del foro, estoy haciendo un txt para enviar la nomina al banco, el detalles esta que los campos deben estar aliniados el codigo que uso es el soguiente

Code
_____________________________________________
QREMMAE.First;
while not QREMMAE.Eof do
begin
Line:= 'V ';
Line := Line + Form1.QREMMAECod_Leg.AsString;

Line := Line + ' ' + Form1.QREMMAENOMBRE.AsString;

Line := Line + ' ' + Form1.QREMMAEAlfa04.AsString;

Line := Line + ' ' + Form1.QREMMAEz200.AsString;

List.Add(Line);
QREMMAE.Next;
_________________________________________________

pero el txt me queda desalineado


V 4550454 BERROTERAN, ANDRES C-05133120-Q 0
V 8555538 MACHUCA, RODOLFO C-05126553-P 0
V 12043554 COLINA, VICTOR 051-33911-D 0
V 7264918 SOTILLO, ARTURO 051-35033-A 0
V 4227074 RODRIGUEZ, JUAN 051-26551-M 0

y deberia quedar asi claro si __ esto es para el ejemplo;

V 4550454___BERROTERAN, ANDRES___C-05133120-Q 0
V 8555538___MACHUCA, RODOLFO____ C-05126553-P 0
V 12043554__COLINA, VICTOR________051-33911-D 0


el problema es que los numeros de cedulas y los nombres no contienen la misma cantidad de caracteres como hago para alinearlos????????????