LookUp feld zur laufzeit erstellen

[Hausmarke]

INFOID befindet sich in der DSetDaten und beinhaltet die ID welche in DSetInfos als PK hinterlegt ist.

Rein von dieser Konfiguration her sollte das korrekt sein, da ich dies 1:1 wie zur Entwurfszeit in der Komponente gemacht habe.
Die Komponente zur Entwurfszeit dient dabei nur zu meiner Orientierung.

Danke für den Link. Hab mir das angeschaut und umgesetzt.

Leider will er das FieldDefs.Add nicht schlucken.

[baumina]

Zitat von Hausmarke:

Leider will er das FieldDefs.Add nicht schlucken.

Da fehlt meines Erachtens auch ein "YourDataSet." davor.

[Hausmarke]

Zitat:

Da fehlt meines Erachtens auch ein "YourDataSet." davor.

korrekt das sagt die Delphi Hilfe auch

[Hausmarke]

ich hab das fehlende Bindeglied gefunden

Man muss die Tabelle erst persistent machen, danach kann man sein LookUpfield auch zur Laufzeit erzeugen.

dies macht man für dieses Beispiel wie folgt:

Delphi-Quellcode:

  

procedure TFMain.CreatePersistentFields;
var i: Integer;
begin
  DSetDaten.FieldDefs.Update;
  DSetDaten.Close;
  for I := 0 to DSetDaten.FieldDefs.Count - 1 do
     if DSetDaten.FindField(DSetDaten.FieldDefs[i].Name) = Nil then
       DSetDaten.FieldDefs.Items[i].CreateField(DSetDaten);
end;

procedure TFMain.SetLookUp;
begin
CreatePersistentFields;
with TStringField.Create(DSetDaten) do
  begin
    Name := 'FieldNachschlagen';
    FieldName := 'FieldNachschlagen';
    DisplayLabel := 'Info';
    FieldKind := fkLookup;
    DataSet := DSetDaten;
    LookupDataSet := DSetInfos;
    KeyFields := 'INFOID';
    LookupKeyFields := 'ID';
    LookupResultField := 'Info';
  end;
  DSetDaten.Open;
end;

danke für eure Anregungen Lösungsansätze