Danke für die Erklärung.
Ich habe versucht es zur Laufzeit einzubauen, es kommt immer die Fehlermeldung, dass das Feld 'book_author' nicht existiert.
Die Tabelle wurde erstellt, im Anschluss wird das Lookup-Feld angelegt. Mein Code für das Lookup-Feld sieht jetzt so aus:
Delphi-Quellcode:
var
NewField: TField;
begin
if Table2.FieldDefs.Updated = False then
Table2.FieldDefs.Update;
if Table12FindField('lfAuthor') = nil then
begin
NewField := TStringField.Create(Table2);
NewField.FieldName := 'lfAuthor'; // Lookup Field Author
NewField.SetFieldType(ftString); // String
NewField.Size:=255;
NewField.KeyFields := 'book_author'; // Field aus Table1
NewField.LookUpDataset := Table1;
NewField.LookUpKeyFields := 'id'; // Field aus Table2
NewField.LookUpResultField := 'autor_nachname'; // Field aus Table2, welches über die id, die in 'book_author' steht, angezeigt werden soll
NewField.FieldKind := fkLookup;
NewField.DataSet := Table2;
end;