Delphi2006 DBase-Index

[DelphiAndreas]

Hallo,

ich habe bisher folgende Funktion für das erzeugen von fehlenden Indizes meiner Dbase-Datebanken benutzt. Die stammt noch von der Borland-Homepage.

Delphi-Quellcode:

function myfunc(ecbType : CBType; iClientData : LongInt;
  pCbInfo : pCBInputDesc): CBRType; stdcall;
const
  READONLY = 'Im Nur-Lesen-Modus öffnen';
  FAILOPEN = 'Fehler beim Öffnen';  //The default
  OPENANDDETACH = 'Öffnen und lösen';
var
  counter : Integer;
begin
  case ecbtype of
    cbINPUTREQ:  //It's a callback of cbINPUTREQ type
      if (pcbInfo.eCbInputId = cbiMDXMIssing) then
      begin
        for counter:=0 to (pcbInfo.iCount - 1) do

          if (pcbInfo.acbEntry[counter].szKeyword = OPENANDDETACH) then
          begin
            pcbInfo.iSelection := counter+1;
            pcbInfo.bSave := false;
            break;
          end;
      end

      else //if
        ShowMessage('Unexpected eCbInputId');
      else  //case
    ShowMessage('Unexpected ecbType')
  end;
end;

Seit meinem Umstieg auf Delphi2006 sagt er mir, dass er CBType und CBRType und ein paar Andere nicht kennt. Muss da jetzt noch was in die Uses? Wie gesagt früher hats funktioniert

Gruß
Andreas

[DelphiAndreas]

Ich hab jetzt schon herausgefunden, dass es eine Klasse namens TBDECallback gibt, die für diese Funktion wohl vorher initialisiert werden muss.

Außerdem muss ich irgendwo type TBDECallback = class (System.TObject); einfügen, weiß aber nicht genau wo das geschehen soll

Wäre schön, wenn mir da jemand helfen könnte

Gruß
Andreas

EDIT: Eigentlich müsste ich auch nur wissen wie ich am besten einen neuen Index für eine DBase-Datenbank erstelle.

[DelphiAndreas]

Ich komm grad kein Stück weiter: Wie erstelle ich beim öffnen einer DBase-Datenbank einen Index für diese? Im Moment sagt er mir immer "Index nicht gefunden" und mit AddIndex alleine scheint das auch nicht zu funktionieren

Gruß
Andreas

[DelphiAndreas]

ich habs gelöst!

Für alle die nochmal das Problem haben sollten: Man binde DBCommonTypes bei den Uses ein.

Scheint eine Dokumentationslücke in der Delphi-Hilfe zu sein, ich konnte die passende Unit nur mit Hilfe der Volltextsuche auf meiner Festplatte finden.

Gruß
Andreas