Sistema de votação em DELPHI

[Lucas Garcia_25314 0]

Oi galera blz ? sou novo no forum e em delphi tambem, então sem mais delongas, estou fazendo um software de votação, onde ele DIGITA EM UMA EDIT A LETRA DO CANDIDADO, exemplo:
candidato A , B ou C , X para voto NULO, enfim clicando no botão votar , em uma label vai surgir a mensagem, Você votou no Candidato A etc ... até ai tudo Otimo desenvolvi sem problema nenhuma, agora vem a complicação, eu como gosto de tudo interessante, coloquei um botão Resultado, onde ele deve clicar no botão e aparecer a soma de quantos votos o candidato A, B, C, OU X vai aparecer, entretanto não consigo fazer isso, vou por o codigo e se puderem me ajude, lembrando galera, não estou usando BANCO DE DADOS ainda, porque quero aprender a guardar o resultado nas variaveis

 

procedure TForm1.edtnomeChange(Sender: TObject);

begin

end;

procedure TForm1.btnlimparClick(Sender: TObject);

begin

edtnome.text:= '';

edtidade.text:= '';

edtvoto.text:= '';

labelresult.Caption:='___';

end;

procedure TForm1.btnresultClick(Sender: TObject);

begin

lblresult1.caption:= (resultado);

end;

procedure TForm1.btnvotarClick(Sender: TObject);

var

numero : integer;

resultado : integer;

begin

numero := StrtoInt(edtvoto.text);

resultado:=StrtoInt(edtvoto.text);

if (edtvoto.text = 'A') then

labelresult.caption:=('Você votou no candidato A')

resultado := (edtvoto.text + 1)

else if (edtvoto.text = 'B') then

labelresult.caption:=('Você votou no numero 2')

else if (edtvoto.text = 'C') then

labelresult.caption:=('você votou no numero 3')

else if (edtvoto.text = 'D') then

labelresult.caption:=('você votou no numero 4')

else if (edtvoto.text = 'X') then

showmessage('Voto NULO')

else

showmessage('voto não válido, por favor insira uma opção');

end;

end.

Valeu galera, e por favor se o erro estiver muito evidente, desculpa mais estou inciando rs ;s

[Eisenheim 67]

Olá amigos.

 

Amigo Lucas Garcia_25314, primeiramente gostaria de lhe desejar as boas vindas ao fórum.

 

Em relação a sua dúvida, da forma como você está trabalhando você precisaria fazer o seguinte:

 

1) Criar 5 variáveis do tipo integer na sessão private do seu form;

2) No evento onShow, inicializar essa variáveis com o valor igual a zero;

 

Feito os passos acima, agora no evento onclick do botão votar você faz o seguinte:

 

procedure TForm1.btnvotarClick(Sender: TObject);

begin

if (edtvoto.text = 'A') then

begin

labelresult.caption:=('Você votou no candidato A');

Inc( iVotoA );

end

else

if (edtvoto.text = 'B') then

begin

labelresult.caption:=('Você votou no numero 2');

Inc( iVotoB );

end

else

if (edtvoto.text = 'C') then

begin

labelresult.caption:=('você votou no numero 3');

Inc( iVotoC );

end

else

if (edtvoto.text = 'D') then

begin

labelresult.caption:=('você votou no numero 4');

Inc( iVotoD );

end

else

if (edtvoto.text = 'X') then

Inc( iVotoNulo );

end;

Agora, quando você clicar no botão resultado, você vai ter o total de votos de cada situação, incluindo os votos nulos, bastante apenas tratar para serem apresentados ao usuário.