Fórum Erro: [DCC Warning] uCadModelo.pas(405): W1057 Implicit string cast from AnsiString to string #410973
27/12/2011
0
Bom dia galera, tenho o seguinte trecho de código que está dando erro.
Tenho uma property TExecutar = (exibeBotoes);
Uma Variável Global: modoEdicao: String;
e na sequência o trecho de código:
Pesquisando no Google, vi que é sobre a conversão de String para AsAnsiString. Só que não consegui fazer isso.
Desde já onbrigado pela antenção.
modoEdicao:= frmPrincipal.QryLogin.FieldByName(ESTADOS_I).AsAnsiString + modoEdicao:= frmPrincipal.QryLogin.FieldByName(ESTADOS_A).AsAnsiString + modoEdicao:= frmPrincipal.QryLogin.FieldByName(ESTADOS_E).AsAnsiString; Executar:= exibeBotoes;
Tenho uma property TExecutar = (exibeBotoes);
Uma Variável Global: modoEdicao: String;
e na sequência o trecho de código:
procedure TfrmCadModelo.SetExecutar(const Value: TExecutar);
begin
FExecutar := Value;
case value of
{Exibe os botões de acordo com o Perfil do Usuário}
exibeBotoes:
begin
if modoEdicao = FFF then
begin
btnIncluir.Visible := False;
btnAlterar.Visible := False;
btnExcluir.Visible := False;
btnMarcar.Visible := False;
btnSalvar.Visible := False;
btnCancelar.Visible:= False;
Separador2.Visible := False;
Separador3.Visible := False;
end; // OBS o código não para aqui, ele continua, mas para economizar espaço coloquei só o começo.
Pesquisando no Google, vi que é sobre a conversão de String para AsAnsiString. Só que não consegui fazer isso.
Desde já onbrigado pela antenção.
Adilson Rumao
Curtir tópico
+ 0
Responder
Posts
27/12/2011
Wilson Junior
Porque você não pega os dados através do AsString?
Outra coisa, isto não é um erro, é um alerta WARNING, para alertar em caso de incompatibilidade.
Espero ter colaborado.
Outra coisa, isto não é um erro, é um alerta WARNING, para alertar em caso de incompatibilidade.
Espero ter colaborado.
Responder
Gostei + 0
30/12/2011
Adilson Rumao
Bom dia Wilson, então ele não rodava o programa depois disso. Eu uso AsAnsiString pois uso o Delphi 2010 e em muito lugares
ouvi recomendação para não usar AsString nele.
Passei aqui para agradecer sua atenção e dizer que resolvi o problem(aliás, não era problema e sim burrice.) Minhas linhas de código estavam erradas. Alterei para:
E compilou normalmente. Mais uma vez muito obrigado pela sua atenção.
ouvi recomendação para não usar AsString nele.
Passei aqui para agradecer sua atenção e dizer que resolvi o problem(aliás, não era problema e sim burrice.) Minhas linhas de código estavam erradas. Alterei para:
modoEdicao:= frmPrincipal.QryLogin.FieldByName(ESTADOS_I).AsAnsiString +
frmPrincipal.QryLogin.FieldByName(ESTADOS_A).AsAnsiString +
frmPrincipal.QryLogin.FieldByName(ESTADOS_E).AsAnsiString;
E compilou normalmente. Mais uma vez muito obrigado pela sua atenção.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)