Delphi连接Paradox数据库

｛      1、在    Datebase DeskTop 中新建表
2、找到工具菜单，Alias Messageer 中 NEW  为数据表创建别名 OK
3 、在工程中的BDE工具卡上打开 query工具，

｝
procedure TForm1.btn2Click(Sender: TObject);

var
  sql1,sql2:string;
  I,m:Integer;
begin

  qry1.Close;
  qry1.SQL.Clear;
  qry1.SQL.Add('SELECT *  FROM XP');     //注意XP是表名
  qry1.Open;
 for i:=1 to qry1.RecordCount do  //返回表中记录的条数
  begin
  Memo1.Lines.Add('名字 ' +qry1.FieldByName('Name').asString);
  Memo1.Lines.Add('数量：'+qry1.FieldByName('Num').asString);
  qry1.Next;

  end ;

 

end;