Ergebnis der Suchanfrage

• Forum: Datenbanken

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

    Delphi
    by shmia, 10. Jan 2006
  Du kannst die Unit in dein Projektverzeichnis kopieren und zum Projekt hinzufügen.
  Danach kannst du DB.PAS ändern.
  Von der Orginalen Datei würde ich die Finger lassen !
  Auf die Verwendung von Packages musst du dann aber verzichten.
  Hat Delphi 2 überhaupt schon Packages ? Lange her...
• Forum: Datenbanken

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

    Delphi
    by shmia, 9. Jan 2006
  Doch, das scheint mir das Problem zu sein. :-(
  Wenn du den Sourcecode hast, kannst du ja nachprüfen, ob es in Unit db.pas die virtuellen
  Methoden TDataSet.CreateFields und TDataSet.DestroyFields gibt. (sie müssten protected sein)
  Mein Sourcecode ist mit Delphi 5 getestet.
• Forum: Datenbanken

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

    Delphi
    by shmia, 9. Jan 2006
  Tja, hatte ich vergessen; ist nun aber oben nachgetragen. :|
• Forum: Datenbanken

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

    Delphi
    by shmia, 9. Jan 2006
  Mit FieldDefs liegst du falsch. Du musst das Property Fields um ein Feld erweitern.
  
  type
  TDataSetCracker = class(TDataSet); // Zugriff auf protected Member ermöglichen
  function AddLookupField(ADataSet: TDataSet; AFieldClass: TFieldClass; const AFieldName: string; const AFieldSize: Integer = 0): TField;
  procedure CreateAllFields(DS: TDataSet);
  begin
  with TDataSetCracker(DS)...