Tus campos son Id_Cuenta, Estado, Importe,Numero el cual
ID_Cuenta = 16
Estado = 1
Importe = 16 ( a la derecha)
Numero = 7
Usemos una funcion ya un poco generalizada
Código:
Function Palabra(Cad : String;LarCad : String;Const Lado : Byte = 1) : String;
Begin
While Length(Cad) < LarCad Do
Case Lado Of
1 : Cad := ' '+Cad;
2 : Cad := Cad+' ';
End;
Result := Cad;
End;
Weno con esa funcion ahora la aplicamos cuando bajas tus datos
Código:
Procedure.....
.
.
Begin
Memo1.Lines.Clear;
..abres tu table
While Not Table1.EoF Do
Begin
Memo1.Lines.Add(Table1.FieldByName('ID_Cuenta').AsString+
Table1.FieldByName('Estado').AsString+
Palabra(Table1.FieldByName('Importe').AsString,16)+
Table1.FieldByName('Numero').AsString);
Table1.Next;
End;
Memo1.Lines.SaveToFile('MisDatos.Txt');
End;
eso es todo no hay mas (weno si.. si vas adorando la funcion puedes decirle que te corte la linea y muchas cositas mas, ojo en el uso de
Const, esa es otra historia..