(Resolvido) Consulta fina.

[uelson]

Caros amigos, estou com uma grande dificuldade.

Estou desenvolvendo um sistema aonde ele imprimi nota fiscal paulista.

E estou útilizando o componente stringgrid, e um dblookcombobox, aonde ele tem 4 opções, um edt e dois datatimepecker.

E preciso realizar umas consultas útilizando esses componentes.

Só que não estou trabalhando com banco de dados, essas informações vão ser extraidas do diretório do Windows.

Preciso realizar está consulta, só que nunca fiz com esse componente e sim com banco de dados.

Se caso alguém já tenha feito isso por favor me ajude.

Desde já, ficarei muito grato.

Uelson.

[Jhonas]

E estou útilizando o componente stringgrid, e um dblookcombobox, aonde ele tem 4 opções, um edt e dois datatimepecker.

E preciso realizar umas consultas útilizando esses componentes.

Só que não estou trabalhando com banco de dados, essas informações vão ser extraidas do diretório do Windows.

Preciso realizar está consulta, só que nunca fiz com esse componente e sim com banco de dados.

Procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j : integer;
begin
   for i:=0 to StringGrid1.ColCount-1 do   // total de colunas da stringgrid
      
        for j:=0 to StringGrid1.RowCount-1 do  // total de colunas da stringgrid
         
             if (StringGrid1.Cells[i,j]='1234') then  //  procurar um valor especifico ( numerico ou caracter )
            
                  showmessage('Valor achado na coluna = ' + inttostr(i) + ' - ' + ' linha = ' + inttostr(j));
end;

Irá ocorrer uma varredura item a item da stringgrid através da propriedade cells, ao ser encontrado o valor procurado, será dado uma mensagem indicando a coluna e linha onde se encontra este valor.

abraço

[uelson]

E estou útilizando o componente stringgrid, e um dblookcombobox, aonde ele tem 4 opções, um edt e dois datatimepecker.

E preciso realizar umas consultas útilizando esses componentes.

Só que não estou trabalhando com banco de dados, essas informações vão ser extraidas do diretório do Windows.

Preciso realizar está consulta, só que nunca fiz com esse componente e sim com banco de dados.

Procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j : integer;
begin
   for i:=0 to StringGrid1.ColCount-1 do   // total de colunas da stringgrid
      
        for j:=0 to StringGrid1.RowCount-1 do  // total de colunas da stringgrid
         
             if (StringGrid1.Cells[i,j]='1234') then  //  procurar um valor especifico ( numerico ou caracter )
            
                  showmessage('Valor achado na coluna = ' + inttostr(i) + ' - ' + ' linha = ' + inttostr(j));
end;

Irá ocorrer uma varredura item a item da stringgrid através da propriedade cells, ao ser encontrado o valor procurado, será dado uma mensagem indicando a coluna e linha onde se encontra este valor.

abraço

Jhonas,

obrigado, consegui resolver. esse código ajudou muito.

Desde já fico grato por isso.

Uelson