Delphi- DB- Programm läuft nicht

[eddy]

Hallo smash,

probier' das mal aus:

Code:

const 
  crlf  = chr($0D) + chr($0A); // #13#10
  crlf2 = crlf + crlf;

procedure FormCreate(Sender: TObject);
begin
  ....
  // Test, ob BDE installiert ist
  if not (dbiInit(nil) = 0) then begin  // uses DbiTypes;
    tx := FU(cfehler);
    s := 'BDE nicht installiert' +crlf2 + 'Abbruch folgt';  
    Application.MessageBox(PChar(s), PChar(tx), MB_ICONSTOP+MB_OK);  //16+0);
    Application.Terminate;
  end;
  ....
end;

mfg
eddy