Hola, os dejo el código aquí abajo:
Resulta que demora y se me congela el formulario 1 o 2 segundos:
Como lo podemos optimizar?
Código Delphi
[-]with DBGridProveedores.DataSource do
begin
DataSet.First;
SetLength(provSelecc, DBGridProveedores.SelectedRows.Count); SetLength(provSeleccNames, DBGridProveedores.SelectedRows.Count); while not DataSet.Eof do
begin
if DBGridProveedores.SelectedRows.Find(DataSet.Bookmark, inx) then begin
provSelecc[i] := DBGridProveedores.Columns[0].Field.AsString; provSeleccNames[i] := DBGridProveedores.Columns[1].Field.AsString; Inc(i);
end;
DataSet.Next;
end;
end;