Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Taxip
13 / 13 / 11
Регистрация: 28.09.2013
Сообщений: 364
#1

Удаление строки из StringGrid - Delphi

06.05.2014, 08:07. Просмотров 283. Ответов 1
Метки нет (Все метки)

Здравствуйте. Необходимо, чтобы удалить одну строку из таблицы. Делаю это примерно так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.strngrd1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if ARow=TStringGrid(Sender).Row then
      row_n:=strngrd1.Row;
end;
 
procedure TForm1.N5Click(Sender: TObject);
var n: Integer;
begin
  for n:=row_n to  Form1.strngrd1.RowCount-1 do
    if n<Form1.strngrd1.RowCount then
      begin
       form1.strngrd1.Cells[0, n]:= form1.strngrd1.Cells[0, n+1];
       form1.strngrd1.Cells[1, n]:= form1.strngrd1.Cells[1, n+1];
       form1.strngrd1.Cells[2, n]:= form1.strngrd1.Cells[2, n+1];
      end;
   Form1.strngrd1.RowCount:=Form1.strngrd1.RowCount-1;
end;
Но при выборе последней строки, все элементы просто смещаются на одну позицию в верх, а первая строка удаляется. В чем проблема?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2014, 08:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удаление строки из StringGrid (Delphi):

Удаление строки в StringGrid
Подскажите как сделать! Имею пару записей в StringGrid и нужно удалить строку,...

Удаление строки из StringGrid
Подскажите такую вешь, как реализовать чтобы вводишь в едит1 значение по...

Удаление строки из stringgrid
Задача состоит в удалении строки, в которой есть элемент кратный трем. Вот,...

Удаление строки в StringGrid
Доброго времени суток, хотел узнать возможно ли удалить нужную строку в...

Корректное удаление строки из StringGrid
Всем привет! Такие дела. Проблема в том что не могу реализовать корректное...

Удаление выбранной строки в StringGrid
procedure TForm2.SpeedButton1Click(Sender: TObject); var position:integer;...

1
FIL
Модератор
3409 / 2547 / 725
Регистрация: 19.09.2012
Сообщений: 7,908
06.05.2014, 09:57 #2
Пример удаления сроки Грида:
Delphi
1
2
3
4
5
6
7
8
9
10
var
  i: Integer;
begin
  with StringGrid1 do
  begin
    for i := Row + 1 to RowCount - 1 do
      Rows[i-1] := Rows[i];
    RowCount := RowCount - 1;
  end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2014, 09:57
Привет! Вот еще темы с решениями:

Удаление строки базы данных в Stringgrid
Здравствуйте господа! Возник следующий вопрос, как удалить строку в Stringgrid,...

Удаление строки из типизированного файла в StringGrid-е
Здравствуйте. Подскажите пожалуйста, где ошибка... Процедура должна удалить...

Запрет на удаление пустой строки StringGrid
доброго времени суток! мне надо сделать так, чтобы единственная пустая...

Удаление строки из stringgrid через несколько checkbox
доброго времени суток! прошу о небольшой помощи допустим, у нас есть небольшая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru