Servus Alle!
Am Mittwoch Mai 29 1996 02:25, Helmut Kral griffelte an Alle folgende Zeilen:
 HK> zu meinen Probs zu finden. Koennt Ihr mir bitte sagen wie das genau geht
 HK> oder ob es ueberhaupt geht?
 HK> Folgendes:
 HK> Ich moechte in meinem Prog. (also zur Laufzeit) eine neue Tabelle 
anlegen,
 HK> die folgendes Aussehen haben soll:
 HK>        Feldname     Typ  Groesse  Index
 HK>     1  Eintrag       +              *
 HK>     2  Titel         A     50
 HK>     3  Interpret     A     50
 HK>     4  Nummer        A     10
 HK>     5  Verweis       I
 HK> Die Felder 2, 3, 4 m�ssen eine Eingabe bekommen.
 HK> Das Feld 5 soll einen Defaultwert '0' bekommen.
 HK> Dazu sollen noch nachstehende, aufsteigende Sekund„rindexe erstellt
 HK> werden:
 HK>      Name       auf Felder
 HK>      In         Interpret
 HK>      Nu         Nummer
 HK>      Ti         Titel
 HK>      Ti_In      Titel, Interpret
 HK> Probs:
 HK> Fast alles! Das einzige, was ich schaffe ist eine Tabelle mit einen
 HK> Primaerindex auf 'Eintrag' zu erstellen, wobei das Feld 'Eintrag' nicht 
im
 HK> Typ 'Zaehler' erstellt werden kann. Auch ob eine Eingabe erforderlich 
ist,
 HK> bekomme ich noch auf die Reihe, aber dann ist es mit allen Schluss ...
 HK> Hier der Code, den ich gerade noch geschafft habe:
da ich bis dato allein gelassen wurde, studierte ich nochmals alles durch. 
damit weiss ich jetzt zumindest einmal, wie man auch die Sekundaerindexe 
bekommt, das andere ist gleich geblieben ...
 HK> === Cut ===
 HK> procedure TMonte.Neu1Click(Sender: TObject);
 HK> begin
 HK>   with Table2 do
 HK>     begin
 HK>     DatabaseName := Table1.DatabaseName;
 HK>     TableName := 'Test';
         TableType := ttParadox;
 HK>     with FieldDefs do
 HK>       begin
 HK>       Clear;
 HK>       Add('Eintrag'  , ftInteger,  0, False);
 HK>       Add('Titel'    , ftString , 50, True );
 HK>       Add('Interpret', ftString , 50, True );
 HK>       Add('Nummer'   , ftString , 10, True );
 HK>       Add('Verweis'  , ftInteger,  0, False);
 HK>       end;
 HK>     with IndexDefs do
 HK>       begin
 HK>       Clear;
 HK>       Add('', 'Eintrag', [ixPrimary, ixUnique]);
           Add('Ti_In', 'Titel;Interpret', [ixCaseinsensitive]);
           Add('Ti'   , 'Titel'          , [ixCaseinsensitive]);
           Add('In'   , 'Interpret'      , [ixCaseinsensitive]);
           Add('Nu'   , 'Nummer'         , [ixCaseinsensitive]);
 HK>       end;
 HK>     CreateTable;
 HK>     end;
 HK> end;
 HK> === Cut ===
 HK> Zu sagen waere noch, dass sich sich die Doku bei der Add-Methode der
 HK> FieldDefs durch das fehlen des vierten Parameters auszeichnet ... Auch
 HK> finde ich nirgends einen 'ftCounter' o. ae., wie auch andere Sachen 
icht
 HK> ...
Kann mir wirklich niemand weiterhelfen, wie ich:
1) am Feld 'Eintrag' einen Zaehler (+) bekomme,
2) am Feld 'Verweis' einen Vorgabewert definieren kann?
Salut!
Helmut
--- GEcho 1.10/gamma
---------------