VPF::Удаление строки - Форум программистов

MrDmitry

Дата 13.11.2008, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет

есть вот такой вот код

Код



procedure TForm1.N9Click(Sender: TObject);
var
  drow,rowbeg,rowend:integer;
  i,j:integer;
begin
  if StringGrid1.Cells[0,1]='' then
    begin
      MessageBox(Form1.Handle,'Вам нечего удалять!',
                 'Внимание',MB_ICONWARNING);
      Exit;
    end;
  rowbeg:=StringGrid1.Selection.Top;
  rowend:=StringGrid1.Selection.Bottom;
  drow:=rowend-rowbeg+1;
  if MessageBox(form1.Handle,'Вы действительно хотите удалить эти строки?',
                'Внимание!',MB_ICONQUESTION+MB_YESNO)=IDNO then Exit;
  StringGrid1.Cells[j,i];
  if StringGrid1.RowCount-drow>1 then
    begin
      for i:=rowend+1 to StringGrid1.RowCount-1 do
        for j:=1 to StringGrid1.ColCount-1 do
          StringGrid1.Cells[j,i-drow]:=StringGrid1.Cells[j,i];
      StringGrid1.RowCount:=StringGrid1.RowCount-drow;
    end
  else
    begin
      for j:=0 to StringGrid1.ColCount-1 do
        StringGrid1.Cells[j,1]:='';
      StringGrid1.RowCount:=2;
    end;
  BaseChange:=true;
end;

Но он почемуто удоляет последнию строку в StringGrid. А должен выделенную

Albinos_x

Дата 14.11.2008, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

хм... 17 строка (StringGrid1.Cells[j,i];) зачем???

Цитата(MrDmitry @ 13.11.2008, 20:21

)

for i:=rowend+1 to StringGrid1.RowCount-1 do
for j:=1 to StringGrid1.ColCount-1 do
StringGrid1.Cells[j,i-drow]:=StringGrid1.Cells[j,i];

это можно заменить на

Код


for i:=rowend+1 to StringGrid1.RowCount-1 do
          StringGrid1.Rows[i-drow]:=StringGrid1.Rows[i];

Цитата(MrDmitry @ 13.11.2008, 20:21

)

Но он почемуто удоляет последнию строку в StringGrid. А должен выделенную

хм... у меня нормально удаляет...

Добавлено через 2 минуты и 12 секунд
может у тебя с настройками StringGrid'а что-то не так...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »