Fórum Pesquisa em Stringgrid #177000
23/08/2003
0
Midas
Curtir tópico
+ 0Post mais votado
23/08/2003
Var j, Coluna: Integer;
Begin
Coluna := StringGrid1.Col // Número da coluna que você clicou
For j:= 1 to StringGrid1.RowCount do
begin
ShowMessage(StringGrid1.Cells[Coluna, j]
{Sua rotina...
if.... qualquer coisa.... then
fim da sua rotina}
end;
8)
wbb
Wbb
Gostei + 1
Mais Posts
23/08/2003
4_olho
- para cada coluna,
- para cada célula, da primeira à última
- usar o POS
Serve?
Gostei + 0
23/08/2003
Wbb
No envento OnClick do StringGrid (por exemplo), faça assim:
procedure TForm1.StringGrid1Click(Sender: TObject);
Var j, Coluna: Integer;
Begin
Coluna := StringGrid1.Col // Número da coluna que você clicou
For j:= 1 to StringGrid1.RowCount do
begin
if Pos(´blablabla´, StringGrid1.Cells[Coluna, j]) > 0 then
ShowMessage(´Encontrou´)
else
ShowMessage(´Não Encontrou´);
end;
end;
Beleza?
wbb
Gostei + 0
26/08/2003
Midas
Gostei + 0
26/08/2003
Wbb
If Pos(´blablabla´, MinhaString) > 0 then
ShowMessage(´Existe´);
else
ShowMessage(´Não Existe´);
Isso significa que, se houver a SubString ´blablabla´ dentro da MinhaString, o valor de retorno da função POS será maior que 0.
Por exemplo:
Var MinhaString: String;
begin
MinhaString := ´abcdefgh´;
if Pos(´cd´, MinhaString) > 0 then
ShowMessage(´´cd´ está na posição ´ + IntToStr(Pos(´cd´, MinhaString)))
else
ShowMessage(´Não Existe´);
end;
OK?
A função sempre busca uma substring dentro de uma string e aponta qual a posição da substring se ela existir.
8)
wbb
Gostei + 0
26/08/2003
Midas
valeu pela ajuda .
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)