dbf用程序打开问题?
OpenDialog1.Filter := 'Text files (*.dbf)|*.dbf';
if OpenDialog1.Execute then
begin
Edit1.Text :=OpenDialog1.FileName ;
dir1:= OpenDialog1.FileName ;
dir:=ExtractFileName(OpenDialog1.FileName) ;
Table1.DatabaseName :=ExtractFilePath(dir1);
//TableName:= Copy(dir,1,Pos(ExtractFileExt(dir),dir) - 1) ;
TableName:= dir;
Table1.TableName := TableName ;
Table1.Active :=true;
end;
Button1.Caption := TableName;
我的思路是选择DBF文件然后用BDE打开,(程序控制)但是报内存的错误,是不是字符串字体的错误???因为我听说字体don't use an alias