unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StrUtils, StdCtrls, DBCtrls, DBGrids, DBTables, Grids, FileCtrl;
type
TForm1 = class(TForm)
Label1: TLabel;
DBGrid1: TDBGrid;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
DataSource1: TDataSource;
Table1: TTable;
Button1: TButton;
procedure FileListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FileListBox1Click(Sender: TObject);
var
i:string;
begin
i:=FileListBox1.FileName;
end;
end.
и на форме файллистбокс, дбгрид, датасоурс, тейбл..
дбгрид = датасоурс--датасоурс
датасоурс = датасет -- тейбл
тейбл..а вот тут я нена какой датабейс нейм ставить.. если у меня файлов 10 шт.. если ФАЙЛЫ dBASE то пароль какой-то просит.. бред.. если DBDEMOS то один файл показывает.. (((((((((