Hola, estoy necesitando una luz para mi duda, tengo un ClientDataSet que su contenido es visualizado en un DBGrid, donde por ejemplo aparecen 200 registros, y tengo una pequeña rutina que recorre todo el DBGrid, mi duda es como podria pausar mi rutina por ejemplo hasta el registro 50, y despues continuar por otros 50 y asi sucesivamente.
Código Delphi
[-]
procedure TForm1.EnviarCorreoMultiple(DBGrid :TDBGrid; email, Asunto :String);
var
Direcciones :String;
begin
Direcciones := '';
with DBGrid1.DataSource.DataSet do
begin
First; while not Eof do begin
Direcciones := Direcciones + FieldByName(email).AsString + ';'; Next;
end;
end;
SetLength(Direcciones, Length(Direcciones) -1); ShellExecute(Handle, 'open', pchar('mailto:'+Direcciones+'?subject='+Asunto), '', '',SW_SHOW);
end;
mi SpeedButton1:
Código Delphi
[-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
EnviarCorreoMultiple(DBGrid1, 'email', 'Consultas...');
end;
gracias por la ayuda,
saludos