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