indezes auslesen

[markus lemcke]

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

[Frank Reim]

Hi Marcus,<BR><BR>
bei dBase war es wohl so, dass die Indexe Dateien für sich sind und nicht automatisch einer Tabelle zugeordnet wurden.<BR>
So muss man explizit bestimmen, dass ich diese Tabelle mit diesem Indexen nutzen möchte.<BR>
Ich gehe davon aus, dass man keine automatisierte Zuordnung der Indexdateien hinbekommt.<BR>
So wird IndexDefs auch erst Werte liefern, wenn du mit IndexFiles.Add(IndexFileName) den Index einer Tabelle zuordnest.<BR><BR>
Fran

[Bernd Wilske]

Hallo,

dbase ist ein altes und umfangreiches Format. Die BDE kann mit den Dateien ordendlich umgehen. Die Umsetzung in Delphi läßt zu wünschen. Viele Informationen lassen sich nur über direkte BDE-Aufrufe realisieren (zusammengesetzer Index, Dezimalstellen von numerischen Feldern...)
Ich habe auch mal ein Tool versucht. Auf meiner Hompage nfix.de ist eine Version zum Download vorhanden.
<BR>
Bern

[markus lemcke]

danke ihr beiden.
muss ew nochmal bei gelegenheit testen!

Gruß

Marku