problema

[jovehe]

Function Palabra(Cad : String;LarCad : Integer;Const Lado : Byte = 1) : String;
begin
While Length(Cad) < LarCad Do
Case Lado of
1: Cad:=''+Cad;
2: Cad:=Cad+'';
end;
Result:=Cad;
end;

//este es el boton que manda el texto

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Memo1.Lines.Clear;
while not Table2.Eof do
begin
Memo1.Lines.Add(Table2.FieldByName('ID_Cuenta').AsString+
Table2.FieldByName('EstadoMovto').AsString+
Palabra(Table2.FieldByName('ImporteMonedaCuenta').AsString,16)+
Table2.FieldByName('NumeroCheque').AsString);
Table2.Next;
end;
Memo1.Lines.SaveToFile('C:\TEXTO.TXT');

end;

tengo que aclarar que que esta tabla la lleno a partir de otra tabla es decir la lleno a partir de otra tabla no habra forma de que al moemto de copiar a la tabla de donde voy a sacar el texto se copie el campo con los espacios ? no se y es que de internet descargue un componente que me pasa la bd a un texto pero el preblema es que el campo de importe no me aparece con los campos en blanco y en las propiedades del componente no se ahora si sees mejor con el metodo que me estas pasando entonces lo cambio porque con este metodo que me estas pasando estoy haciendo una aplicacion de prueba .

muchas gracias y disculpa si te quito el tiempo

[sanxpue]

Con razon se cicla ¡¡¡
ahora si que la regaste mira

Case Lado Of
  1: Cad:=''+Cad;
  2: Cad:=Cad+'';
End;

no es asi si no

Case Lado Of
  1: Cad:=' '+Cad;
  2: Cad:=Cad+' '; //<-- osease es un espacio ' ' no '' 
                        //osease '_' no '' donde  _es espacio vacio
End

Ojo mucho ojo y cuentaselo al que mas confianza tengas

[jovehe]

oye pues muchas gracias en verdad que si que la regue
ya se que vas a decir que me estoy pasando pero ya me hace el texto pero solo me copia un campo como le hago para que me copie todos los campos de la tabla?

disculpa las molestias (y que te este chin#$&&# tanto ), pero como podras ver soy un poco nuevo en esto de la programacion.
muchas gracias

[sanxpue]

como que nada mas te copia un campo ???

[jovehe]

que crees que ya vi lo que hace en verdad
cuando le doy clic para que mande el texto solo me manda un registro pero si la cierro y vuelvo a correrla y le doy clic al boton y ya me copia todos los campos

[sanxpue]

Entonces despues..

.
.
Memo1.lines.Clear;
//pones
Table2.First;

[jovehe]

Que Tal Gracias Por Tu Respuesta¡

Ya No Pude Estar Conectado Pero Si Lo Pude Arreglar.

Oye Una Pregunta Hay Alguna Forma De Que El Campo De Importe Se Puda Copiar Con Decimales Que Sean .00
Por Ejemplo 1874.00 Porque Los Quetraen Numero 1874.14 Por Ejmeplo Si Los Pasa Pero Si Es Un Importe Entero No Pone Los .00 Como Decimales Y Si Le He Buscado Si La Funcion Se Puede Modificar Pero No Le He Encontrado Crees Que Me Puedas Aytudar?

Gracias Por Tu Gran Ayuda

[sanxpue]

Palabra(Table2.FieldByName('ImporteMonedaCuenta').AsString,16)

Escribe

Palabra(FormatFloat('#,##0.00',Table2.FieldByName('ImporteMonedaCuenta').AsFloat),16)

y ya con eso