Considere o código referente à procura de dados em uma tabela no DELPHI 7.0:
procedure TSearchDemo.SearchExactClick(Sender: TObject);
begin
Table 1 .SetKey;
Table 1 .Fields[0].AsString : Edit1.Text; (* Table1.Fieldbyname('Cidade') : Edit1.Text *)
Table 1 .GoToKey;
end;
O procedimento acima pode ser substituído por:

a

procedure TSearchDemo.SearchExactClick(Sender: TObject); begin
Table 1 .SetKey([Edit1.text]);
end;

b

procedure TSearchDemo.SearchExactClick(Sender: TObject); begin
Table1.FindKey([Edit1.text]);
end;

c

procedure TSearchDemo.SearchExactClick(Sender: TObject); begin
Table 1 .GoToKey;
end;

d

procedure TSearchDemo.SearchExactClick(Sender: TObject); begin
Table 1 .SetKey([Edit1.text]);
Table 1 .GoToKey;
end;

Próxima Questão

Respostas corretas: 0

Respostas erradas: 0

Percentual de acertos: 0 %

Reiniciar Desempenho