library DataDll; uses SysUtils, Classes, Forms, ADODB, Grids, StdCtrls, Dialogs, Controls, Windows, RpCon, RpConDS, RpDefine, RpRave, RpBase, RpSystem, ImgList, StdActns, ActnList, AppEvnts, ExtCtrls, Messages, Menus, RpRender, RpRenderPDF, Math, Graphics, XPStyleActnCtrls, ActnMan, StrUtils; {$R *.res} type TMatriz = Array [0..100, 0..100]of String;
function funcReemp (cad: String): String;
var aux: Integer;
begin
cad:= FloatToStr (RoundTo (StrToFloat (cad), -2));
aux:= PosEx (',', cad, 1); if aux <> 0 then
funcReemp:= StuffString (cad, aux, 1, '.')
else
funcReemp := '0'; end; exports funcReemp;
end.