Wie definiere ich ein Lookup-Feld für eine TQuery?

[MPirnstill]

Zitat von shmia:

Delphi-Quellcode:

function AddLookupField(ADataSet: TDataSet; AFieldClass: TFieldClass; const AFieldName: string; const AFieldSize: Integer = 0): TField;
   procedure CreateAllFields(DS: TDataSet);
   begin
      with TDataSetCracker(DS) do
      begin
         DestroyFields;
         FieldDefs.Update;
         CreateFields;
      end;
   end;
begin
.
.
end;

Hey! Vielen Dank für deine Antwort!

Ich wollte es gleich ausprobieren, aber beim übertragen fiel mir "TDataSetCracker" auf. Was ist das für ein Type?
Bei Delphi 2.0 (auch bei D7) finde ich darüber nichts in der Hilfe und aus deinem Code-Snipet kann ich leider auch nicht erkennen was für ein Typ dies ist.

Gruß