[XANDER2011]

Сообщение от freedomman

не проверял но должно работать

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i ,r,j:integer;
begin
StringGrid2.RowCount:=2;
r:=1;
for i:=1 To StringGrid1.RowCount do begin]
if (datetostr(StringGrid1.Cells[12,i])>=DateTimePicker1.date)
and  (datetostr(StringGrid1.Cells[12,i])<=DateTimePicker1.date)
then  begin
for j:=0 to StringGrid2.ColCount do
StringGrid2.Cells[j,r]:=StringGrid1.Cells[j,i];
inc(r);
StringGrid2.RowCount:=StringGrid2.RowCount+1;
end;
end;

вот немного поигрался с кодом - вот что получилось

Код:

procedure TForm18.Button1Click(Sender: TObject);
begin
form18.sg1.RowCount:=2;
r:=1;
for i:=1 To form4.sg1.RowCount do begin
if (strtodate(form4.sg1.Cells[12,i])>=form18.DateTimePicker1.date)
and  (strtodate(form4.sg1.Cells[12,i])<=form18.DateTimePicker2.date)
then  begin
for j:=0 to form4.sg1.ColCount do
form18.sg1.Cells[j,r]:=form4.sg1.Cells[j,i];
inc(r);
form18.sg1.RowCount:=form18.sg1.RowCount+1;
end;
end;
end;

Спасибо за помощь!
Единственное НО - выкидывает окно с ошибкой - '' is not valid date - хотя я все пустые строки из первого грида убрал