COMO FAZER SOMAR COLUNA DO DBGRID, DIFERENCIANDO LETRAS E NUMEROS

23/10/2018

Bom dia, estou com problema em uma somat�ria, como que faz para identificar uma coluna que possa ser somada? e faze-la somar?, sendo que tem campos que possui caracteres, ai queria ignorar essas colunas de string. Por�m eu tentei fazer separando o tipo de campo , se � ftInteger e ftString, mais n�o deu muito certo ... pois n�o somou numero quebrados ex(1.25)... Preciso que Identifique a coluna inteira pra somar, se � inteiro ou real.. Algu�m Pode me Ajudar?

 begin
     Total:=0;
     ClientDataSet1.DisableControls;
     ClientDataSet1.First;
    while not ClientDataSet1.Eof do
       begin
         Total := Total + StrToFloat(TrocaPtoPVirg(ClientDataSet1.FieldByName(Trim(lbl_campo.Caption)).AsString));
         ClientDataSet1.Next;
       end;

     ClientDataSet1.First;
     ClientDataSet1.EnableControls;
     lbl_total.Caption:=''Total = ''+FloatToStr(Total);

end;

Lucas Araujo

Curtir t�pico + 0

Responder

Post mais votado

24/10/2018

Voc� pode tentar usar o StrToFloatDef para atribuir 0 (zero) em caso de falha na convers�o (converter letras para float, por exemplo).

  Total := 0;
  ClientDataSet1.DisableControls;
  ClientDataSet1.First;

  while not ClientDataSet1.Eof do
  begin
    Total := Total + StrToFloatDef(TrocaPtoPVirg(ClientDataSet1.FieldByName(Trim(lbl_campo.Caption)).AsString), 0); // Coloquei StrToFloatDef
    ClientDataSet1.Next;
  end;

  ClientDataSet1.First;
  ClientDataSet1.EnableControls;
  lbl_total.Caption := 'Total = ' + FloatToStr(Total);

Natanael Ferreira

Responder

Gostei + 1

Mais Posts

23/10/2018

Emerson Nascimento

tente assim (pode ter erros de sintaxe; n�o tenho Delphi instalado)

var
	Total: float;
	lCampoNumerico: boolean;
	nPosCampo: integer;
begin
	try
		nPosCampo := ClientDataSet1.FieldByName(Trim(lbl_campo.Caption)).FieldNo;
	except
		nPosCampo := -1;
	end;

	Total := 0;
	lCampoNumerico := (nPosCampo >= 0) and (ClientDataSet1.Fields[nPosCampo].DataType in [ftSmallInt, ftInteger, ftWord, ftFloat, ftCurrency, ftLargeint, ftShortint, ftExtended]);

	if lCampoNumerico then
	begin
		ClientDataSet1.DisableControls;
		ClientDataSet1.First;
		while not ClientDataSet1.Eof do
		begin
			if not ClientDataSet1.Fields[nPosCampo].IsNull then
				Total := Total + ClientDataSet1.Fields[nPosCampo].AsFloat;
			ClientDataSet1.Next;
		end;
	 	ClientDataSet1.First;
		ClientDataSet1.EnableControls;
	end;

	lbl_total.Caption := 'Total = '+FloatToStr(Total);
end;

Responder

Gostei + 0

23/10/2018

Lucas Araujo

fiz o teste, e ficou zerado.. N�o fez somat�ria..

Responder

Gostei + 0

23/10/2018

Emerson Nascimento

voc� precisar� debugar pra ver onde est� o problema.

Responder

Gostei + 0

23/10/2018

Lucas Araujo

voc� precisar� debugar pra ver onde est� o problema.

no inicio esta dando que n�o foi declarado.. "Total: float;" , mais mudei ele para "real" para testar...
ai mandei debugar, e n�o deu erro, s� n�o faz a somat�ria, fica zerado a soma.

Responder

Gostei + 0

24/10/2018

Lucas Araujo

Voc� pode tentar usar o StrToFloatDef para atribuir 0 (zero) em caso de falha na convers�o (converter letras para float, por exemplo).

  Total := 0;
  ClientDataSet1.DisableControls;
  ClientDataSet1.First;

  while not ClientDataSet1.Eof do
  begin
    Total := Total + StrToFloatDef(TrocaPtoPVirg(ClientDataSet1.FieldByName(Trim(lbl_campo.Caption)).AsString), 0); // Coloquei StrToFloatDef
    ClientDataSet1.Next;
  end;

  ClientDataSet1.First;
  ClientDataSet1.EnableControls;
  lbl_total.Caption := 'Total = ' + FloatToStr(Total);

hehe testei seu procedimento, e funcionou, Obrigado.. xD

Responder

Gostei + 0

24/10/2018

Natanael Ferreira

Voc� pode tentar usar o StrToFloatDef para atribuir 0 (zero) em caso de falha na convers�o (converter letras para float, por exemplo).

  Total := 0;
  ClientDataSet1.DisableControls;
  ClientDataSet1.First;

  while not ClientDataSet1.Eof do
  begin
    Total := Total + StrToFloatDef(TrocaPtoPVirg(ClientDataSet1.FieldByName(Trim(lbl_campo.Caption)).AsString), 0); // Coloquei StrToFloatDef
    ClientDataSet1.Next;
  end;

  ClientDataSet1.First;
  ClientDataSet1.EnableControls;
  lbl_total.Caption := 'Total = ' + FloatToStr(Total);

hehe testei seu procedimento, e funcionou, Obrigado.. xD

Blz, amigo. Que bom que funcionou.

Responder

Gostei + 0