TDbf: Primärschlüssel über mehrere Felder definieren

[starkard]

Hallo Profis,

Habe wieder ein Problem, dass ich nicht alleine lösen kann. Möchte ein Primärschlüssel über mehrere Felder definieren, um z.b. identische Eingaben über diese Felder auszuschliessen. (Bitte keine Grundsatzdiskussion)

Habe schon volgendes ausprobiert:

Code: Alles auswählen

Dbf1.AddIndex('', 'ZOPFBEZ+LAENGEBEZ+HOLZART+QUALITAET', [ixPrimary, ixUnique]);

und

Code: Alles auswählen

Dbf1.AddIndex('', 'ZOPFBEZ;LAENGEBEZ;HOLZART;QUALITAET', [ixPrimary, ixUnique]);

Programm wurde ausgeführt. Allerdings wurde bei Eingabe zweier identischer DS keine Fehlermeldung ausgegeben.

Bin dann auf folgende Deklaration gestossen:

Code: Alles auswählen

with Dbf1.IndexDefs.AddIndexDef do begin;
         Name := '';
         Fields := 'ZOPFBEZ;LAENGEBEZ;HOLZART;QUALITAET';
         Options := [ixPrimary];
end;

Funzt aber nicht, da Lazarus kein AddIndexDef kennt. Könnt ihr mir ein Tipp geben? THX

[Christian]

Dbf1.AddIndex('', 'ZOPFBEZ+LAENGEBEZ+HOLZART+QUALITAET', [ixPrimary, ixUnique]);

ist richtig, jedoch würd ich nen namen mit übergeben kann sein das es daran scheitert probier doch mal:

Dbf1.AddIndex('IDENT', 'ZOPFBEZ+LAENGEBEZ+HOLZART+QUALITAET', [ixPrimary, ixUnique]);