erro ao converte variavel string sped fiscal

[Desenvolvedor.]

boa tarde estou tendo problema ao converter uma variavel de string para TacbrCstIPI

 

o curioso é que fiz a mesma variavel para o sped contribuições e converteu sem erro 

 

 

CST_Pis := StrToCstPis(CstPis);

[dcc32 Error] USpedFiscal.pas(3413): E2010 Incompatible types: 'string' and 'TACBrCstpis'

o curioso que fiz o mesmo procedimento para o sped contribuições e não apresentou erro , então observei que as funções  tem declarações diferente coloquei as duas para melhor entender

 

mas preciso usar a função de conversão , o que faço para não apresentar erro ?

 

 

grato 

 

 

função do sped fiscal 

function StrToCstPis(const AValue: string): TACBrCstPis;
var
   ifor: Integer;
begin
 Result := stpisNenhum;
   for ifor := 0 to High(CstPis) do
   begin
      if AValue = CstPis[ifor] then
      begin
         Result := TACBrCstPis( ifor );
         Break;
      end;
   end;
end;

 

 

função do sped contribuiçoes 

function StrToCstPis(AValue: String): TACBrCstPis;
var
   ifor: Integer;
begin
 Result := stpisNenhum;
   for ifor := 0 to High(CstPis) do
   begin
      if AValue = CstPis[ifor] then
      begin
         Result := TACBrCstPis( ifor );
         Break;
      end;
   end;
end;

[Desenvolvedor.]

pode deixar , observei que não preciso converter o cst_pis

 

grato 

 

[EMBarbosa]

Em 30/04/2018 at 16:31, Desenvolvedor. disse:

pode deixar , observei que não preciso converter o cst_pis

 

grato 

 

obrigado pelo retorno.