Retornar quantidade de acerto com base no sorteio realizado no Delphi
Olá mestres.
Dando continuidade no meu projeto, se observarem na imagem >> https://prnt.sc/1dlqsp7 << Tenho um grid, no qual é colocado as dezenas escolhidas da coluna 02 ate a coluna 26. No exemplo acima temos 18 dezenas selecionadas das 25 dentro da modalidade (01,02,03,05,06,08,09,10,11,13,15,16,18,19,20,21,23,25). Logo acima tem um panel com 15 TEdit dentro no qual é preenchido automaticamente com o resultado do ultimo concurso de outra tabela, e as setas ao lado movimenta concurso por concurso.
O que estou querendo fazer é o seguinte, ao percorrer os concursos, fazer uma contagem de quantas dezenas foram acertadas dentro das dezenas no grid em relação as dezenas dentro do panel com os edits dentro e o resultado colocar dentro de uma coluna (Acertou15) no grid.
Dando continuidade no meu projeto, se observarem na imagem >> https://prnt.sc/1dlqsp7 << Tenho um grid, no qual é colocado as dezenas escolhidas da coluna 02 ate a coluna 26. No exemplo acima temos 18 dezenas selecionadas das 25 dentro da modalidade (01,02,03,05,06,08,09,10,11,13,15,16,18,19,20,21,23,25). Logo acima tem um panel com 15 TEdit dentro no qual é preenchido automaticamente com o resultado do ultimo concurso de outra tabela, e as setas ao lado movimenta concurso por concurso.
O que estou querendo fazer é o seguinte, ao percorrer os concursos, fazer uma contagem de quantas dezenas foram acertadas dentro das dezenas no grid em relação as dezenas dentro do panel com os edits dentro e o resultado colocar dentro de uma coluna (Acertou15) no grid.
Rubens Pena
Curtidas 0
Respostas
Rubens Pena
20/07/2021
Alguém... me ajuda ai...
GOSTEI 0
Paulo
20/07/2021
Você quer saber quais números do edit estão no grid?
GOSTEI 0
Rubens Pena
20/07/2021
Você quer saber quais números do edit estão no grid?
Olá Paulo Felipe. Boa tarde. Isso mesmo. Gostaria de saber quantos números eu acertei no grid com relação aos números que estão dentro dos edit's.
GOSTEI 0
Rubens Pena
20/07/2021
Alguém. Poderia me ajudar.....
GOSTEI 0
Rubens Pena
20/07/2021
Alguém. Poderia me ajudar.....
GOSTEI 0
Rubens Pena
20/07/2021
Help... alguém ai me socorre com esse problema
GOSTEI 0
Paulo
20/07/2021
Tente algo como
for i:=0 to DBGrid1.Columns.Count-1 do begin
for a:= 0 to (Self.ComponentCount -1) do begin
if (Self.Components[a] is TEdit) then begin
if (Self.Components[a] as TEdit).Text = DBGrid1.Columns.Items[i].Field.Text then begin
ShowMessage();
end;
end;
end;
end;
GOSTEI 0