Boa noite, estou tentando compilar o exemplo ACBrNFe_demo no delphi 7, mas aparece o erro Missing operator or semicolon na função:
function ReplaceStr( Fonte, De, Para:AnsiString ):AnsiString;
begin
result:=fonte;
while pos(de,result) <> 0 do
result:=copy(result, 1, pos(de,result)-1 )+Para+copy(result,pos(de,result)+length(de),length(result) );
end;
Segue em anexo print do erro.
Alguém, por favor, pode me ajudar.
Grato.