Fico muito feliz em o colega em responder,, o problema que nao acha o conteudo "NA" para contar, a linha de programaçao so acha qdo for "+" e "-"
Pois tenho qu exilbir qtos sinais "+" , "-" e "NA" Abraçao Douglas Uesato <[EMAIL PROTECTED]> escreveu: Jose, Faz isso via SQL da seguinte forma: Select TF, Count(*)QTD From Nome_da_Tabela Group by TF Repete essa expressão mudando apenas o campo que você deseja contar do Select e do Group By. Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jose Eduardo Victorino Enviada em: terça-feira, 12 de fevereiro de 2008 09:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Variaveis nao se combinam Ola amigos,, Sou muito jovem no delphi, e estou realizando meu primeiro programa e tenho um problemão, mas vamos la.. Tenho uma linha de comparaçòes de variaveis direto na tabela os quais os campos da tabela(arquivo *.db) estao definidos com "A" alpha , pois ira guardar os conteudo de "+" , "-" e "NA". o tamanho é 2. Pois bem faço uma comparaçao para saber o conteudo para somar quantos existem "+" , "-" e "NA" para exiber quantidade deles mas so esta contando nao esta contando o "NA". Conforme codigo abaixo procedure TMainForm.Button1Click(Sender: TObject); var tantos_mais, tantos_menos, tantos_na: integer; auxiliar, resposta : string; begin tantos_mais := 0; tantos_menos:= 0; tantos_na:= 0; // codigo comun a todos (TF) // auxiliar := Table1.FieldByName('nomepac').AsString; //--- Campo TF if Table1.FieldByName('TF').AsString = '+' then tantos_mais := tantos_mais + 1 else if Table1.FieldByName('TF').AsString = '-' then tantos_menos := tantos_menos + 1 else if Table1.FieldByName('TF').AsString = 'NA' then tantos_na := tantos_na + 1; //--- Campo TFA if Table1.FieldByName('TFA').AsString = '+' then tantos_mais := tantos_mais + 1 else if Table1.FieldByName('TFA').AsString = '-' then tantos_menos := tantos_menos + 1 else tantos_na := tantos_na + 1; //--- Campo CSL if Table1.FieldByName('CSl').AsString = '+' then tantos_mais := tantos_mais + 1 else if Table1.FieldByName('CSl').AsString = '-' then tantos_menos := tantos_menos + 1 else tantos_na := tantos_na + 1; Form1:= TForm1.Create(nil); if tantos_mais > tantos_menos then resposta := 'IDENTIFICAÇÃO POSITIVA' else if tantos_menos > tantos_mais then resposta := 'IDENTIFICAÇÃO NEGATIVA' else resposta := 'IDENTIFICAÇÃO NÃO AVALIADA'; Form1.LblTantosMais.Caption:= resposta; Form1.ShowModal; Form1.Free; end; Aguardo.. --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
