Tabellenfelder dynamisch erzeugen

[Sugar]

Hallo,

ich muss eine Tabelle erzeugen und kann die Namen der Felder nicht zur Entwicklungszeit festlegen. Ich lese sie aus einer Textdatei aus und mit

Tab.FieldsDefinition.add('Feld' + inttostr(C + 1), ftString, StrToInt(Edit1.Text), false)

lege ich die Felder, in einer Schleife (C), in der Tabelle an.

Um darauf zugreifen zu können muss ich die Felder ja noch hinzufügen. Was zur Entwicklungszeit ja über den Feld-Editor geschieht. Aber egal wie ich es versuche, ich bekomme es nicht hin.

Wie kann ich die Felder zur Laufzeit dynmisch hinzufügen?

gruß
Sugar

[mkinzler]

Fields.add() ?

[p80286]

Was denn für eine Tabelle?
Excel? Datenbank? .....
Und warum diese Dynamische Namenszuweisung?

Gruß
K-H

[Bummi]

Delphi-Quellcode:

      result.FieldDefs.Add(AFieldDefArray[I].Name, AFieldDefArray[I].DataType, AFieldDefArray[I].Size);
      Result.FieldDefs[Result.FieldDefs.Count-1].CreateField(Result,nil,AFieldDefArray[I].Name);

Die Frage dürfte aber sein für was für eine Dataset und warum und ob nur FieldDefs oder auch Fields benötigt werden (z.b. um Loopupfields für dynamsich erzeugte Clientdataset verwenden zu können).

Textdatei klingt als ob es am einfachsten mit ADO direkt öffnen könntest

Delphi-Quellcode:

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\" ;Extended Properties="text;HDR=NO;FMT=Delimited"';
ADOConnection1.Open;
ADODataSet1.LockType := ltReadOnly;
ADODataSet1.CommandType := cmdText;
ADODataSet1.CommandText := 'select * from Test.csv"';
ADODataSet1.Open;

EDIT: wenn das Format der Textdatei ungüstigt ist kann man sich mit einer schema.ini behelfen, ein Beispiel ist hier http://www.digital-inn.de/ms-access/...portieren.html zu finden ...

[Sugar]

Dynamisch deswegen, weil unterschiedliche Dateistrukturen vorliegen und meine Appl. je nach Quelldaten einen Extrakt herausfiltern soll. Dazu muss dem Benutzer die Feldnamen und Feldanzahl angezeigt werden, die aus der Dateibeschreibung hervorgehen.

Ich benutze dazu ein MemDataset - also eine "Tabelle" die nur im Speicher existiert. Die Behandlung ähnelt der von Paradox Tabellen.

Fields.add funktioniert nicht...

[Bummi]

>> #4

Zitat:

Result.FieldDefs[index].CreateField .....

wobei die Fielddefs an sich schon langen sollten ...

[hoika]

Hallo,

hilft dieser Link vielleicht ?

http://www.delphitricks.com/source-c...t_runtime.html

Heiko