Re: RES: [delphi-br] Variaveis nao se combinam

2008-02-12 Por tôpico Sergio Eurico 
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

Re: RES: [delphi-br] Variaveis nao se combinam

2008-02-12 Por tôpico Sergio Eurico 
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]

Re: RES: [delphi-br] Variaveis nao se combinam

2008-02-12 Por tôpico André Moraes - GMail 
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]
To: delphi-br@yahoogrupos.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] 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]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

Re: RES: [delphi-br] Variaveis nao se combinam

2008-02-12 Por tôpico Jose Eduardo Victorino 
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]