Com funciona o comando FindKey no Delphi

Delphi

06/04/2017

boa tarde,

Estou com duvidas de como utilizar o comando findKey em uma tabela no delphi 7.

sou novato e gostaria de algum tutorial explicativo sobre o assunto, se alguém puder me passar algum link ou ensinar como utilizá-lo eu ficaria muito grato.

Obrigado

Willian Alberto
Willian Alberto

Willian Alberto

Curtidas 0

Melhor post

Daniel Araújo

Daniel Araújo

07/04/2017

Bom dia Willian!

Veja se a documentação te ajuda:
http://docwiki.embarcadero.com/CodeExamples/Berlin/en/FindKey_(Delphi)

Se a resposta foi útil da um like!

Daniel Araújo
daraujo-dev@hotmail.com
GOSTEI 1

Mais Respostas

Jones Granatyr

Jones Granatyr

06/04/2017

Opa! Esse artigo da Devmedia também pode ajudar

[url]https://www.devmedia.com.br/indice-pesquisa-em-memoria-delphi/17614[/url]
GOSTEI 1
Raylan Zibel

Raylan Zibel

06/04/2017

Funciona assim.
procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  cds1.CreateDataSet;
  for i := 1 to 300 do
  begin
    cds1.Insert;
    cds1codigo.AsInteger := i;
    cds1valor.AsFloat := i * 2;
    cds1.Post;
  end;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if cds1.IndexDefs.Count = 0 then
    with cds1.IndexDefs.AddIndexDef do
    begin
      Name := 'idx_cod_val';
      Fields := 'codigo;valor';
      Options := [];
      cds1.IndexName := Name;
    end;
  if cds1.FindKey([StrToInt(edt1.Text), StrToFloat(edt2.Text)]) then
  begin
  
  end;
end;
GOSTEI 1
POSTAR