Erro Missing Operator Or Semicolon Function Replacestr Acbrnfe_Demo

[Eder Leandro Cabral]

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.

[Juliomar Marchetti]

Boa noite

está com erro o código

basta olhar o procedimento copy e verificar que tem parâmetros errados

[rluizf]

Boa noite

está com erro o código

basta olhar o procedimento copy e verificar que tem parâmetros errados

Boa Noite !

Esse erro já foi corrigido no demo?

Att.

Ricardo Luiz

[Juliomar Marchetti]

Boa noite

está com erro o código

basta olhar o procedimento copy e verificar que tem parâmetros errados

Boa Noite !

Esse erro já foi corrigido no demo?

Att.

Ricardo Luiz

Mas não sei lhe dizer!

se quiser corrigir somente ele e passar subimos ao svn