Czemu nie działa ?

0

Witam wszystkich
Poniżej zamieszczam kod który dziłał na wersji TDelphi2006_Eksplorer, natomiast nie chce zadziałać na Delphi5_Ent. Tylko dlaczego?. Pewnie to banalny problem .... Po prostu w Grid nie widzę danych z tabeli *.dbf. W wyższej wersji Delphi gdy wybrałem ACTIVATE-.T. to pojawiały się dane, natomiast w D5 niestety nie ....
Proszę o wsparcie.

Oto Kod:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sciezka: String;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
sciezka:=ExtractFilePath(ParamStr(0));

// pełna ścieżka do bazy danych
Table1.DatabaseName := sciezka + 'Baza\';

// ustawienie nazwy bazy
Table1.TableName := 'uprawnienia.dbf';

// sprawdzenie istnienia pliku z baza danych
if fileexists (sciezka + 'Baza\uprawnienia.dbf') and (not Table1.Active) then
  begin
    //Aktywacja tabeli
    Table1.Active := true;
  end;

end;

end.

Kazimierz Pszenny

0

Nie pamiętam, jak działa BDE, ale sprawdź, co masz w zmiennej sciezka.
Tzn., czy kończy się backslashem, czy nie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1