Question

delphi中我想用adotable从表中随机调用一条数据，咋弄啊？谢谢，集中！

Answer 1

下面是随机将记录指针指向数据表的某一条记录。再利用该记录数据就简单了。
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables;
type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
        x,y,z:longint;
begin
       x:=table1.RecordCount;
       randomize;
       y:=random(x)+1;
       z:=table1.RecNo;
       table1.MoveBy(y-z);
       showmessage(table1.fieldbyname('name').asstring);
end;
end.

追问

在吗？你写的这段是不是有点问题啊？y-z是负值是咋办？

问：delphi中我想实现对Edit控件输入内容的控制：如果输入的是数字，则程序继续，负责报错，重新输入！

还有时间倒计时的程序咋写？谢谢

追答

y－Z为负时，记录指针逆向移动

追问

好，我试试

这个程序在一个200组数据的表中随机抽50条数据应该会出现重复的吧。

追答

重复的舍弃即可