[marcoszorrilla]

La solución que te da jafl1965 es correcta, lo que ocurre es que los bancos piden un fichero de texto con el importe sin decimales y además rellenar con ceros por la izquierda.

Aquí tienes un posible ejemplo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 nImporteouble;
 cNum2Texto:String;
 begin
 nImporte:=1299.33;
 cNum2Texto:=FormatFloat('000000000000000',nImporte * 100);
 ShowMessage(cNum2Texto);
 end;

La variable cNum2Texto, seria la que tendríamos que guardar en el fichero de texto para el banco.


Un Saludo.