Выделить все строки в DBGrid

Мужик заходит в лавочку, торгующую легальным софтом. Подходит к одному из продавцов и тихо-тихо говорит:
- Мне Windows'2000, пожалуйста. Тут все, и покупатели и продавцы, замирают и пристально смотрят на мужика. Мужик не выдерживает такой паузы, оборачивается ко всем и кричит:
- Да! Да! Тр@хаться я иду!

function GridSelectAll(Grid: TDBGrid): Longint;
begin
  Result := 0;
  Grid.SelectedRows.Clear;
  with Grid.Datasource.DataSet do
  begin
    First;
    DisableControls;
    try
      while not EOF do
      begin
        Grid.SelectedRows.CurrentRowSelected := True;
        inc(Result);
        Next;
      end;
    finally
      EnableControls;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GridSelectAll(DBGrid1);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 820 • TDictionary Custom Sort 5 923 • Fast Watermark Sources 5 727 • 3D Designer 8 513 • Sik Screen Capture 6 064 • Patch Maker 6 503 • Айболит (remote control) 6 494 • ListBox Drag & Drop 5 355 • Доска для игры Реверси 95 057 • Графические эффекты 6 700 • Рисование по маске 5 836 • Перетаскивание изображений 4 878 • Canvas Drawing 5 253 • Рисование Луны 4 976 • Поворот изображения 4 523 • Рисование стержней 3 203 • Paint on Shape 2 447 • Генератор кроссвордов 3 323 • Головоломка Paletto 2 631 • Теорема Монжа об окружностях 3 425 • Пазл Numbrix 2 258 • Заборы и коммивояжеры 2 919 • Игра HIP 1 886 • Игра Go (Го) 1 804 • Симулятор лифта 2 142 • Программа укладки плитки 1 869 • Генератор лабиринта 2 311 • Проверка числового ввода 1 995 • HEX View 2 306 • Физический маятник 1 965

Выделить все строки в DBGrid

Похожие по теме исходники