Bom, dei uma comentada no código pra voce ficar mais a vontade...
Abraco,
procedure TMainForm.Button1Click(Sender: TObject);
var
// defino os tipos das variaveis
a : string;
i, total_mais, total_menos, total_na : integer;
begin
// inicializo as variaveis..
a := '';
total_mais := 0;
total_menos := 0;
total_na := 0;
// vai buscar em todos os componentes do form
for i := 0 to self.ComponentCount - 1 do
begin
// se o componente for do tipo EDIT,
if (Self.components[i] is TEdit) then
a := trim((self.components[i] as Tedit).Text); // entao, atribuo o
valor dele para a variavel "a"
// aqui eu faco as comparacoes....
if a = '+' then total_mais := total_mais + 1; // se "a" for "+" soma
a variavel
if a = '-' then total_menos := total_menos + 1; // se "a" for "-" soma
a variavel
if a = 'NA' then total_na := total_na + 1; // se "a" for "NA"
soma a variavel
// mostro pra voce na tela... voce pode comentar este codigo depois.
label1.Caption := 'total_mais: ' + inttostr(total_mais);
label2.Caption := 'total_menos: ' + inttostr(total_menos);
label3.Caption := 'total_na: ' + inttostr(total_na);
end;
/// cria o formulario "Form1"
Form1:= TForm1.Create(nil);
// define o conteudo do label
if tantos_mais > tantos_menos then
form1.LblTantosMais.Caption := 'IDENTIFICAÇÃO POSITIVA'
else
if tantos_menos > tantos_mais then
form1.LblTantosMais.Caption := 'IDENTIFICAÇÃO NEGATIVA'
else
form1.LblTantosMais.Caption := 'IDENTIFICAÇÃO NÃO AVALIADA';
// comentei esta linha, pois ja atribui o conteudo no trecho acima
//Form1.LblTantosMais.Caption:= resposta;
// mostra o form
Form1.ShowModal;
// libera o form
Form1.Free;
end;
Em 12/02/08, Sergio Eurico <[EMAIL PROTECTED]> escreveu:
>
> Olá Eduardo, bom dia!!
> Seja benvindo ao melhor grupo delphi da internet brasileira :-D
>
> veja se isso serve... ( desculpe, nao testei )
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var a : string;
> i, total_mais, total_menos, total_na : integer;
> begin
> a := '';
> total_mais := 0;
> total_menos := 0;
> total_na := 0;
> for i := 0 to self.ComponentCount - 1 do
> begin
> if (Self.components[i] is TEdit) then a := trim((self.components[i] as
> Tedit).Text);
> if a = '+' then total_mais := total_mais + 1;
> if a = '-' then total_menos := total_menos + 1;
> if a = 'NA' then total_na := total_na + 1;
> label1.Caption := 'total_mais: ' + inttostr(total_mais);
> label2.Caption := 'total_menos: ' + inttostr(total_menos);
> label3.Caption := 'total_na: ' + inttostr(total_na);
> end;
> end;
>
> Abracos,
>
> Sergio Eurico.
>
>
> Em 12/02/08, André Moraes - GMail <[EMAIL PROTECTED]> escreveu:
> >
> > tente colocar TRIM nas comparações.
> >
> > Ex:
> >
> > if trim(Table1.FieldByName('TF').AsString) = '+' then
> > tantos_mais := tantos_mais + 1
> >
> > Também tem q ver se esta cadastrado com o mesmo case que vc está
> > comparando.
> > Para ter certeza que tudo está maiusculo use:
> >
> > if trim(UpperCase(Table1.FieldByName('TF').AsString)) = '+' then
> > tantos_mais := tantos_mais + 1
> >
> > ----- Original Message -----
> > From: "Jose Eduardo Victorino" <[EMAIL
> > PROTECTED]<josevictorino2002%40yahoo.com.br>
> > >
> > To: <delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>>
> > Sent: Tuesday, February 12, 2008 9:43 AM
> > Subject: Re: RES: [delphi-br] Variaveis nao se combinam
> >
> > 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] <uesato%40multicoisas.com.br>>
> > 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 <delphi-br%40yahoogrupos.com.br>[mailto:
> > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> > nome de Jose Eduardo Victorino
> > Enviada em: terça-feira, 12 de fevereiro de 2008 09:19
> > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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]
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Links do Yahoo! Grupos
> >
> >
> >
>
>
[As partes desta mensagem que não continham texto foram removidas]
