[ Pobierz całość w formacie PDF ]
.DFM}procedure TForm1.ComboBox1Change(Sender: TObject);function Chk(ErrorValue : DBIResult) : DBIResult;vardbi_status : string;dbi_string : string;ErrInfo : DBIErrInfo;count : integer; Rozdzial 26 Borland Database Engine (BDE) 767begindbi_status:=  ;dbi_string:=  ;if (ErrorValue DBIERR_NONE) then beginDbiGetErrorInfo(TRUE, ErrInfo);if (ErrInfo.iError = ErrorValue) then begindbi_status:= ERROR  + ErrInfo.szErrCode;With ErrInfo dofor count:=low(szContext) to high(szContext) doif (strcomp(ErrInfo.szContext[count],'   )0) thendbi_status := dbi_status+  +' ErrInfo.szContext[count];end else beginSetLength(dbi_string, DBIMAXMSGLEN);DbiGetErrorString(ErrorValue,' PChar(dbi_string));dbi_status :=  ERROR  +dbi_string;end;MessageBox(0, PChar(dbi_status),  BDE Error , MB_OK' or MB_ICONEXCLAMATION);end;result:=ErrorValue;end;varhCur : hDBiCur;FuncInfo : DBiFUNCDESC;Counter : integer;beginWith Database1 do beginConnected:=False;ListBox2.Items.Clear;DatabaseName:=ComboBox1.Items[ComboBox1.ItemIndex];Open;Session.GetTableNames(DatabaseName,  ,False, False,' ListBox1.Items);end;counter:=0;If (Chk(DbiOpenFunctionList(Database1.Handle, [ic:ccc}' fnListINCL_USER_DEF, @hcur)) = DBIERR_NONE) then beginif (hCurnil) then beginwhile (DBiGetNextRecord(hCur,dbinolock,@FuncInfo,' nil)DBIERR_EOF) and (counter [ Pobierz całość w formacie PDF ]

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • hanula1950.keep.pl

    		•