TDALoader.OnPutData Event

Occurs when putting loading data by rows is needed.

Class

TDALoader

Syntax

property OnPutData: TDAPutDataEvent;

Remarks

Write the OnPutData event handler to put loading data by rows.

Note that rows should be loaded from the first in the ascending order.TMyLoader will flush data to MySQL when it is needed (see TMyLoader.RowsPerQuery).

To start loading, call the Load method.

Example

This handler loads 1000 rows.

procedure TfmMain.PutData(Sender: TDALoader);
var
   Count: Integer;
   i: Integer;
begin
   Count := StrToInt(edRows.Text);
   for i := 1 to Count dobegin
      Sender.PutColumnData(0, i, 1);
      Sender.PutColumnData(1, i, Random(100));
      Sender.PutColumnData(2, i, Random*100);
      Sender.PutColumnData(3, i, 'abc01234567890123456789');
      Sender.PutColumnData(4, i, Date);
   end;
end; 

See Also

• TDALoader.PutColumnData
• Load
• OnGetColumnData