D5, Paradox, DbiOpenTable

1 отговора 31 прегледа
#1

D5, Paradox, DbiOpenTable

В кода по-долу DbiOpenTable (синьо) трябва да отвори таблица, но не го прави, а връща грешка "invalid file name" (проверката е с червено).
Моля, дайте съвет как да го оправя!

.. LoadDb.Connected := True;
.. { load tablenames }
.. Session.GetTableNames(FReadDatabase, '*.db*', True, False, StrList);
.. { clear descriptor }
.. FDesc.Clear;

.. { Load descriptor }
.. for I := 0 to StrList.Count - 1 do
.. begin
....if( CanReadFile(StrList)) then
....begin
.... { open table }
.... while( True )do
.... begin
......hRes := DbiOpenTable(LoadDb.Handle, PChar(StrList), nil,
.......................... nil, nil, 0, dbiREADONLY, dbiOPENSHARED, xltFIELD,
.......................... False, nil, hCur);

......if CheckOpen( hRes ) then
......begin
...... try
........SetTableDesc( hCur );
...... finally
........Check(DbiCloseCursor( hCur ));
........hCur := nil;
...... end;{ fin }
...... Break;
......end;{ if }
.... end;{ while }
....end;{ if }
.. end;{ for }

Отговор
в отговор на NikB #2

Problemyt ne e v koda

pytiat do tablicata ne bil korekten.

Отговор