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
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home