[chele]

A ver creia solucionarlo pero nada, este es el codigo que tengo :

Código Delphi [-]
procedure TlFactAutorizaciones21.hinteriuraPrint(sender: TObject;
  var Value: String);

function CambiaEn(Cadena, Esto, Por: String): String;
   var
     aPos: Integer;
   begin
     aPos := Pos(Esto, Cadena);
     Result:= '';
     while (aPos <> 0) do begin
       Result := Result + Copy(Cadena, 1, aPos-1) + Por;
       Delete(Cadena, 1, aPos + Length(Esto)-1);
       aPos := Pos(Esto, Cadena);
     end;
     Result := Result+Cadena;
   end;

var
a : string;
ParaCambiar:string;
//a : double;
begin


a:=CambiaEn(value,',','.');

     if anterior1 = anterior then
        begin

        end
     else
         begin
        suma1 := suma1 + strtofloat(a);
         end;

anterior1 := anterior;
end;

Pero me da el mismo error, y ahora estoy enviando el valor 66.00 ya que hago el reemplazo correctamente.

El valor me llega de una base de datos y yo lo leo de un QRDBText

¿Que puedo hacer?. Pense que al quitarle la coma y ponerle punto iba a funcionar pero nada.

Gracias anticipadas.