Lookupfeld zur Laufzeit

[needatip]

Hallo,

ich erstelle zusätzlich zu meinen bestehenden Feldern ein Lookup-Feld zur Laufzeit.
Dies mache ich im AfterOpen Event des Datasets, da ich überprüfe ob das Feld bereits existiert.
Dazu muss ich aber erst das Dataset schließen und dann wieder öffnen, so daß dann wieder das AfterOpen Event aufgerufen würde.

Delphi-Quellcode:

procedure DSetBieterAfterOpen(DataSet: TDataSet);
var
  i: integer;
  f: TField;
begin
  // Feld Flagge für Land hinzufügen
  with DSetBieter do
    if FindField('Flagge') = nil then
    begin
      FieldDefList.Update;
      Close; // hier muss ich das Dataset schließen, damit ich ein neues Feld hinzufügen kann.
      for i := 0 to FieldDefList.Count - 1 do
        if FindField(FieldDefList[i].Name) = nil then
          FieldDefList.FieldDefs[i].CreateField(DSetBieter);
      f := TStringField.Create(DSetBieter);
      f.Size := 10;
      f.Name := 'Flagge';
      f.FieldName := 'Flagge';
      f.DisplayLabel := 'Flagge';
      f.FieldKind := fkLookUp;
      f.DataSet := DSetBieter;
      f.LookupDataSet := DSetLaender;
      f.KeyFields := 'LAND';
      f.LookupKeyFields := 'ID';
      f.LookupResultField := 'ID';
      f.LookupCache := true;
    end;
end;

Im BeforOpen Event kann ich ja das nicht machen, da ich dann noch nicht weiß ob die übrigen Felder vorhanden sind.
Wie kann man das elegant lösen?

[rollstuhlfahrer]

nimm doch QueryPerformanceCounter/QueryPerformanceFrequency und mache ne Funktion für das Ausführen des Querys. Dann sagst du dem Programm immer da, wo du die Laufzeit gerne hättest, dass es diese Funktion nehmen soll und lass Windows/Delphi die Laufzeit berechnen. Ist meiner Meinung nach einfacher.

Bernhard

[needatip]

Was soll denn das mit der Performance?
Ich möchte doch nur, daß das AfterOpent Event nicht nochmal aufgerufen wird.

[rollstuhlfahrer]

QueryPerformanceCounter hat rein gar nichts mit der Performance zu tun. Es ist nur ein sehr schnell tickender Zähler, ähnlich GetTickCount, bloß dass dieser nicht nur wesentlich schneller tickt (bei mir sind es rund 3 Mio Ticks / s), sondern auch nicht so schnell überläuft.

Bernhard

[needatip]

Ok, aber was hat das mit meiner Frage zu tun ?????

[DeddyH]

Wie wäre es mit einer Bool' schen Variablen? Wenn Du das Feld einfügst, setzt Du diese auf true und wertest sie am Prozeduranfang aus. Ist sie true, wird sie nur auf false gesetzt, ansonsten Dein jetziger Code ausgeführt. Falls das jetzt zu kompliziert ausgedrückt war:

Delphi-Quellcode:

procedure ...;
begin
  if ReOpened then         //Variable (oder privates Feld) auswerten
    ReOpened := false
  else
    begin
      //Dein jetziger Code
      ReOpened := true;
    end;
end;