Das Aufnehmen in die FieldDefs-Liste geht mit Add, danach passiert leider nichts.
Wenn Du anschließend CreateTable aufrufst, wird die Tabelle mit der neuen Struktur erstellt, leider werden dabei alle Daten gelöscht:(
Ich kenne keine andere Methode, würde aber im Ernstfall über eine zweite Tabelle "umschaufeln", das geht mit einer Schleife relativ einfach. Hier nur mal so als Schnipsel zum Weiterbasteln:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| var i, Feldgroesse : Integer;
Felddefinition : TFieldDef;
Feldname, Wert, Ordner, Dateiname : String;
Feldtyp : TFieldType;
begin
Table1.Open;
while not Table1.Eof do
begin
Table1.Edit;
for i:=0 to Table1.FieldDefs.Count-1 do
begin
Felddefinition:=Table1.FieldDefs[i];
Feldname:=Felddefinition.Name;
Feldtyp:=Felddefinition.DataType;
Feldgroesse:=Felddefinition.Size
...
end;
Table1.Next;
end;
Table1.Close; |
ub60
