criar um campo na dbgrid e mudar a cor
turma, to com mais um problema nessa DBGRID.
O 1º é se tem como criar um campo na DBCRID e jogar um falor nesse campo, sem mudar o campo na tabela.
O 2º é se tem com mudar o car da fonte em um determinado campo da DBGRID. "aquilo do evendo ondrawcolunncell nao ta certo, pq é em outro form"
Bom, vou esplicar como é o sistema.
Tenho uma matriz com 20 valores e uma tabela em excel com 50 colunas e N linhas.
O sistema tem que fazer oq, verificar o valor da matriz com a 50 do excel..
Se os valores da matriz bater com o da tabela, o sistema ira contar isso como um acerto, e tera que indormar na no final da DBGRI o numero de acertos..
FOR DBG_TOTAL:= 1 TO Form2.ADOTable1.RecordCount DO
begin
Form2.Label3.Caption:=inttostr(DBG_TOTAL);
Form2.ProgressBar1.Position:= DBG_TOTAL;
Form2.Refresh;
FOR VL:= 0 TO 19 DO //começa a correr na matriz de 1 a 20
begin
FOR DB:= 0 TO Form2.AdoTable1.FieldCount - 1 DO //começa a correr na tabela o excel de 1 a 50.
begin
if valores_array[VL] = Form2.DBGrid1.Fields[DB].AsInteger Then //se os valores forem iguais
acertos:= acertos +1; // conta como acerto
Form2.DBGrid1.Fields[51].Create := 'acerto'; //emprime na coluna 51 a quantidade de acertos
end;
Form2.AdoTable1.First;
end;
Form2.ADOTable1.Next;
acerto:=0;
end;
O trecho em vermelho acho que esta errado, e nao sei como fazer
Discussão (1)
Carregando comentários...