O pessoal qual o erro com o código
ai galera to tentando fazer uma consulta em um checklistbox delphi 7. to usando o codigo abaixo, mas aparece um erro. "Undeclared identifier:'Key'"
procedure TfrmTransporteFluxoCaixa.btn_pesqClick(Sender: TObject);
var i : integer;
begin
if (Key=vk_Return) then begin
i := 0;
while ( (LowerCase(edt_localizar.Text)>LowerCase(clb_itens.Items.Strings[i])) and
(i<clb_itens.Count-1) ) do inc(i);
end;
end;
Que coisa não???
procedure TfrmTransporteFluxoCaixa.btn_pesqClick(Sender: TObject);
var i : integer;
begin
if (Key=vk_Return) then begin
i := 0;
while ( (LowerCase(edt_localizar.Text)>LowerCase(clb_itens.Items.Strings[i])) and
(i<clb_itens.Count-1) ) do inc(i);
end;
end;
Que coisa não???
Marcos Morais
Curtidas 0
Respostas
Joel Rodrigues
23/05/2013
Opa.
Veja que você utilizou a seguinte linha:
Provavelmente você copiou isso do evento OnKeyPress de um TEdit ou semelhante.
Nesse caso, você está colocando o código no evento OnClick de um botão, então não precisa fazer essa verificação.
Veja que você utilizou a seguinte linha:
if (Key=vk_Return) then begin
Provavelmente você copiou isso do evento OnKeyPress de um TEdit ou semelhante.
Nesse caso, você está colocando o código no evento OnClick de um botão, então não precisa fazer essa verificação.
GOSTEI 0
Joel Rodrigues
23/05/2013
Resumindo, seu código vai ficar da seguinte forma:
procedure TfrmTransporteFluxoCaixa.btn_pesqClick(Sender: TObject); var i : integer; begin i := 0; while ( (LowerCase(edt_localizar.Text)>LowerCase(clb_itens.Items.Strings[i])) and (i<clb_itens.Count-1) ) do inc(i); end;
GOSTEI 0