Author: SwissDelphiCenter.ch
procedure TForm1.FormCreate(Sender:TObject);
begin
randomize;
end;
procedure TForm1.Button1Click(Sender:TObject);
begin
table1.First;
table1.MoveBy(Random(table1.recordcount));
end;
Basic to advance writing program with delphi.
Author: SwissDelphiCenter.ch
procedure TForm1.FormCreate(Sender:TObject);
begin
randomize;
end;
procedure TForm1.Button1Click(Sender:TObject);
begin
table1.First;
table1.MoveBy(Random(table1.recordcount));
end;
No comments:
Post a Comment