tach,
ich schreibe gerade ein tool zum dbase-tabellen anschauen!
folgende prozeduren funzen:
<pre>
//Feldnamen auslesen
//Beispiel: FeldNamenAusTabelle(Table1, LbxFelder.Items);
procedure FeldNamenAusTabelle(Table : ttable; FelderListe : TStrings);
var
i : integer;
begin
for i := 0 to table.FieldDefs.Count-1 do
FelderListe.add(table.FieldDefs[i].Name);
end;
//Feldtypen auslesen
//Beispiel: FeldTypenAusTabelle(Table1, LbxFeldtypen.Items);
procedure FeldTypenAusTabelle(Table : ttable; FelderListe : TStrings);
var
i : integer;
begin
for i := 0 to table.FieldDefs.Count-1 do
FelderListe.add(GetEnumName(TypeInfo(TFieldType) ,Integer(table.FieldDefs[i].datatype)));
end;
</pre>
aber das indezes auslesen funzt nicht:
<pre>
//Indezes auslesen
//Beispiel: IndezesAusTabelle(table1,LbxIndex.Items);
procedure IndezesAusTabelle(Table : ttable; FelderListe : TStrings);
var
i : integer;
begin
for i := 0 to table.IndexDefs.Count-1 do
FelderListe.add(table.IndexDefs[i].Name);
end;
</pre>
habe mit der datenbankoberfläche einen index angelegt, aber der wird nicht angezeigt!
weiss jemand warum?
Gruß
Markus
ich schreibe gerade ein tool zum dbase-tabellen anschauen!
folgende prozeduren funzen:
<pre>
//Feldnamen auslesen
//Beispiel: FeldNamenAusTabelle(Table1, LbxFelder.Items);
procedure FeldNamenAusTabelle(Table : ttable; FelderListe : TStrings);
var
i : integer;
begin
for i := 0 to table.FieldDefs.Count-1 do
FelderListe.add(table.FieldDefs[i].Name);
end;
//Feldtypen auslesen
//Beispiel: FeldTypenAusTabelle(Table1, LbxFeldtypen.Items);
procedure FeldTypenAusTabelle(Table : ttable; FelderListe : TStrings);
var
i : integer;
begin
for i := 0 to table.FieldDefs.Count-1 do
FelderListe.add(GetEnumName(TypeInfo(TFieldType) ,Integer(table.FieldDefs[i].datatype)));
end;
</pre>
aber das indezes auslesen funzt nicht:
<pre>
//Indezes auslesen
//Beispiel: IndezesAusTabelle(table1,LbxIndex.Items);
procedure IndezesAusTabelle(Table : ttable; FelderListe : TStrings);
var
i : integer;
begin
for i := 0 to table.IndexDefs.Count-1 do
FelderListe.add(table.IndexDefs[i].Name);
end;
</pre>
habe mit der datenbankoberfläche einen index angelegt, aber der wird nicht angezeigt!
weiss jemand warum?
Gruß
Markus
Comment