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