Мужик заходит в лавочку, торгующую легальным софтом. Подходит к одному из продавцов и тихо-тихо говорит:
- Мне Windows'2000, пожалуйста. Тут все, и покупатели и продавцы, замирают и пристально смотрят на мужика. Мужик не выдерживает такой паузы, оборачивается ко всем и кричит:
- Да! Да! Тр@хаться я иду!
function GridSelectAll(Grid: TDBGrid): Longint;
begin
Result := 0;
Grid.SelectedRows.Clear;
with Grid.Datasource.DataSet dobegin
First;
DisableControls;
trywhilenot EOF dobegin
Grid.SelectedRows.CurrentRowSelected := True;
inc(Result);
Next;
end;
finally
EnableControls;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GridSelectAll(DBGrid1);
end;
Статья Выделить все строки в DBGrid раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.
