Delphi Tips 
-----------------------------

0294  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    作成: 1999/12/21 濱野 rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  更新: 1999/12/21 濱野 編集
ランダムなレコードの移動

Random関数とMoveByメソッドを使います。
MaxRecordはあらかじめRecordCountプロパティやSELECT * FROM文などで
求めておきます。
利用目的としてテストデータの作成や練習問題の出題などに活用
出来ると思います。


procedure RandomMove(Dataset: TDataSet; MaxRecord: Integer);
var
  X : Integer;
begin
  X := Random(MaxRecord);
  DataSet.First;
  DataSet.MoveBy(X);
end;
参照: <データベース>

[新規作成] [最新の情報に更新]

How To
Lounge
KeyWords


Tips
Delphi
Home
Osamu Takeuchi osamu@big.or.jp