nao compila erro na conversão

Delphi

27/09/2005

caros amigos estou com uma dúvida bem principiante...

nao estou conseguindo fazer a devida conversão nessa expressão

QRLabel12.Caption := (QryEmitida.FieldByName(´TOTAL_EMIT´).Value / ((QRLblTotPenDev.Caption) * 100 ));

Aperece a seguinte menssagem

[Error] S015OpRelatorioArEmitidas.pas(204): Incompatible types: ´String´ and ´Integer´


desde já obg pela atenção de todos aki no forum.


Alexespina

Alexespina

Curtidas 0

Respostas

Rjun

Rjun

27/09/2005

Você esta misturando string com valor numérico para fazer uma operação matemática. 

QRLabel12.Caption := FormatFloat(´#0.00´, QryEmitida.FieldByName(´TOTAL_EMIT´).Value / StrToInt(QRLblTotPenDev.Caption) * 100;



GOSTEI 0
Alexespina

Alexespina

27/09/2005

mais uma vez muito obg pela sua ajuda Rjum

valeu mesmo :D


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

27/09/2005

Você esta misturando string com valor numérico para fazer uma operação matemática. 
QRLabel12.Caption := FormatFloat(´#0.00´, QryEmitida.FieldByName(´TOTAL_EMIT´).Value / StrToInt(QRLblTotPenDev.Caption) * 100;


faltou fechar o parênteses:

QRLabel12.Caption := FormatFloat(´0.00´, QryEmitida.FieldByName(´TOTAL_EMIT´).AsFloat / StrToIntDef(QRLblTotPenDev.Caption,1) * 100);


GOSTEI 0
POSTAR