Create a Dataset lookup field at runtime

Delphi/Pascal

with TStringField.Create(YourDataSet) do begin    FieldName := 'FieldName';    FieldKind := fkLookup;    DataSet := YourDataSet;    Name := DataSet.Name + FieldName;    KeyFields := 'YourKeyFields';    LookupDataSet := YourLookupDataSet;    LookupKeyFields := 'YourLookupKeyFields';    LookupResultField := 'YourLookupResultField';    FieldDefs.Add(FieldName, ftString, 50, False); end;

1 2 3 4 5 6 7 8 9 10 11 12 13

with TStringField.Create(YourDataSet) do begin    FieldName := 'FieldName';    FieldKind := fkLookup;    DataSet := YourDataSet;    Name := DataSet.Name + FieldName;    KeyFields := 'YourKeyFields';    LookupDataSet := YourLookupDataSet;    LookupKeyFields := 'YourLookupKeyFields';    LookupResultField := 'YourLookupResultField';      FieldDefs.Add(FieldName, ftString, 50, False); end;