Array
(
)

Desindexar dinamicante

Ricardoif
   - 12 abr 2006

Ola a todos!

tenho uma rotina que chamada Tecla que quando o usuario tecla f1,f2,f3,etc., ocorre tal coisa.
Nesa rotina, conforme a tecla pressionada, eu chamo outra rotina, observerm abaixo:


function Tecla(t: integer): Boolean;

procedure Padrao;
var
tab: TDataSet;
begin
if (Screen.ActiveControl is TDBEdit) then
with TDBEdit(Screen.ActiveControl) do
begin
t:=DataSource.DataSet;
try

t.IndexFieldNames:=´´; // AQUI


finally
t.free;
end
end;
end;

begin
result:=True;

case t of
VK_F1: ;
VK_F2: Padrao;
VK_F3: Pesquisa;
VK_F4: Localiza;
VK_F5: DefineColunas;
VK_F6: Calendario;
else
result:=False;
end;

end;


Não sei se deu pra entender, más o que eu quero é retirar o índice da tabela, independe qual seja, dispondo os dados na forma que foram lancados.

Se alguem poder me ajudar eu agrado.


Joaoshi
   - 12 abr 2006

Se vc colocar:

t.IndexFieldNames:=´´;
t.First;

já funciona ?

Espero ter ajudado.


Aroldo Zanela
   - 13 abr 2006

Colega,

TDataSet contém apenas métodos abstratos e não deve ser utilizado para desenvolvimento de aplicações. No seu caso em específico, observei que você declarou t como tipo inteiro e tab como TDataSet e está cometendo erros de atribuição.


Joaoshi
   - 13 abr 2006

ops, faltou um pouquinho de atenção. :oops: