IBTable1.IndexFields
procedure Tfrm1.Button3Click(Sender: TObject);
var i : integer;
campo : string;
begin
dm.IBTable1.Active := true;
for i := 0 to dm.IBTable1.IndexFieldCount - 1 do
begin
campo := dm.IBTable1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
por que este codigo nao esta funcionando.
foi
var i : integer;
campo : string;
begin
dm.IBTable1.Active := true;
for i := 0 to dm.IBTable1.IndexFieldCount - 1 do
begin
campo := dm.IBTable1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
por que este codigo nao esta funcionando.
foi
Foi
Curtidas 0
Respostas
Bacalhau
05/09/2003
Qual é o erro que dá?
GOSTEI 0
Foi
05/09/2003
procedure Tfrm1.Button3Click(Sender: TObject);
var i : integer;
campo : string;
begin
dm.IBTable1.Active := true;
for i := 0 to dm.IBTable1.IndexFieldCount - 1 do
begin
campo := dm.IBTable1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
por que este codigo nao esta funcionando.
nao da error no listbox4 nao aparece a chae primaria da tabela como no table.indexfieldname[i].fieldname.
foi
GOSTEI 0
Bacalhau
05/09/2003
foi,
eu escrevi um coisa deste tipo, que apanhou o indice primário.
TABLE3.TABLENAME := ´qualquer.db´;
table3.indexname := ´´; // isto força o indice ficar primário
TABLE3.OPEN;
campo := TABLE3.INDEXFIELDS[0].FIELDNAME;
TABLE3.CLOSE;
eu escrevi um coisa deste tipo, que apanhou o indice primário.
TABLE3.TABLENAME := ´qualquer.db´;
table3.indexname := ´´; // isto força o indice ficar primário
TABLE3.OPEN;
campo := TABLE3.INDEXFIELDS[0].FIELDNAME;
TABLE3.CLOSE;
GOSTEI 0