Buscar pelo nome em uma stringgrid

18/05/2019

0

Olá pessoal, boa tarde.

Bom é o seguinte, estou uma duvida não estou conseguido fazer com que quando digito uma letra que tem no stringgrid
deixe de visualizar os outros itens e fique só os itens que começa com a letra que digitei:

function GetSearchStr(const iBusca: string; SG: TStringGrid):string;
var
count : integer;
begin
if iBusca > '''' then begin
for count := SG.RowCount downto 0 do begin
if AnsiStartsStr((iBusca), LowerCase(SG.Cells[1,count+1])) then begin
SG.Row := count + 1;
Result := iBusca;
end;
end;
end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
Label1.Caption:= GetSearchStr(Edit1.Text, StringGrid1);
end;

se alguém poder me ajuda agradeço
Cgm2k7 2013

Cgm2k7 2013

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar