Запись, StingGrid и удаление

@Huskar · Регистрация: 03.02.2011

Добрый вечер. Возникла проблема. на форме есть StringGrid в него заносится информация из StringGrid информация заносится запись. В поле Edit2 допустим водим параметр Год издания(например 1968) и из записи удалем все записи с этим годом издания, в StringGrid'e так же удаляем запись и смещаемся. Теперь вопрос, написал, но у меня удаляет только по 1 записи а не сразу все как нужно и в StringGrid удаляет не ту запись которую мы удалили из Записи, а просто последнюю, что не так помогите исправить
Вот код кнопки обработки удаления.

Delphi

procedure TForm1.Button6Click(Sender: TObject);
var i,n,g,q:integer;
begin
g:=StrToInt(Edit2.Text);
n:=StringGrid1.RowCount;
for i:=1 to n do
if res[i].yer = g then
begin
while q+1<n+1   do
begin
res[q-1].name:=res[q].name;
res[q-1].author:=res[q].author;
res[q-1].stran:=res[q].stran;
res[q-1].yer:=res[q].yer;
res[q-1].tema:=res[q].tema;
StringGrid1.Cells[0,q-2]:=StringGrid1.Cells[0,q-1];
StringGrid1.Cells[1,q-2]:=StringGrid1.Cells[1,q-1];
StringGrid1.Cells[2,q-2]:=StringGrid1.Cells[2,q-1];
StringGrid1.Cells[3,q-2]:=StringGrid1.Cells[3,q-1];
StringGrid1.Cells[4,q-2]:=StringGrid1.Cells[4,q-1];
q:=q+1;
end;
StringGrid1.RowCount:=n-1;
end;
 
end;

Добавлено через 12 минут
Попробывал вот так

HTML5

procedure TForm1.Button6Click(Sender: TObject);
var i,n,g,q:integer;
begin
g:=StrToInt(Edit2.Text);
n:=StringGrid1.RowCount;
for i:=1 to n do
if res[i].yer = g then
begin
q:=i+1;
while q<n   do
begin
res[q-1].name:=res[q].name;
res[q-1].author:=res[q].author;
res[q-1].stran:=res[q].stran;
res[q-1].yer:=res[q].yer;
res[q-1].tema:=res[q].tema;
StringGrid1.Cells[0,q-2]:=StringGrid1.Cells[0,q-1];
StringGrid1.Cells[1,q-2]:=StringGrid1.Cells[1,q-1];
StringGrid1.Cells[2,q-2]:=StringGrid1.Cells[2,q-1];
StringGrid1.Cells[3,q-2]:=StringGrid1.Cells[3,q-1];
StringGrid1.Cells[4,q-2]:=StringGrid1.Cells[4,q-1];
q:=q+1;
end;
end;
StringGrid1.RowCount:=n-1;
end;

но хотябы удаляет, но опять же не как надо, в сринггриде и не все сразу а только по 1, почему?

@Puporev · 25.01.2012, 10:30

http://stringgrid-delphi.ru/delete-row.php

DenNik · 25.01.2012, 13:12

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

http://stringgrid-delphi.ru/delete-row.php

Не по теме:

Puporev, а есть подобные статьи о других компонентах?

@Puporev · 25.01.2012, 13:36

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

Puporev, а есть подобные статьи о других компонентах?

По любому компоненту есть статьи, просто набрать в Гугле типа
компонент StriggGrid в Делфи

@Mawrat · 25.01.2012, 13:38

Huskar, я как-то раз публиковал набор процедур для работы с TStringGrid. Там, в том числе, есть и процедуры для удаления строк и столбцов.

DenNik · 25.01.2012, 17:23

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

По любому компоненту есть статьи, просто набрать в Гугле типа
компонент StriggGrid в Делфи

Не по теме:

это понятно. мне просто сайт понравился - просто и со вкусом, как говорится

@Puporev · 25.01.2012, 17:37

Там написано

Сайт из коллекции Компоненты Delphi

А вот где вся коллекция.....

@Puporev Почетный модератор 64120 / 47526 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	25.01.2012, 10:30	2
	http://stringgrid-delphi.ru/delete-row.php 2

DenNik Житель Земли 2982 / 2969 / 391 Регистрация: 26.07.2011 Сообщений: 11,399 Записей в блоге: 1
	25.01.2012, 13:12	3
	Сообщение от Puporev http://stringgrid-delphi.ru/delete-row.php Не по теме: Puporev, а есть подобные статьи о других компонентах? 0

@Puporev Почетный модератор 64120 / 47526 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	25.01.2012, 13:36	4
	Сообщение от DenNik Puporev, а есть подобные статьи о других компонентах? По любому компоненту есть статьи, просто набрать в Гугле типа компонент StriggGrid в Делфи 0

@Mawrat 13080 / 5865 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	25.01.2012, 13:38	5
	Huskar, я как-то раз публиковал набор процедур для работы с TStringGrid. Там, в том числе, есть и процедуры для удаления строк и столбцов. 1

DenNik Житель Земли 2982 / 2969 / 391 Регистрация: 26.07.2011 Сообщений: 11,399 Записей в блоге: 1
	25.01.2012, 17:23	6
	Сообщение от Puporev По любому компоненту есть статьи, просто набрать в Гугле типа компонент StriggGrid в Делфи Не по теме: это понятно. мне просто сайт понравился - просто и со вкусом, как говорится 0

@Puporev Почетный модератор 64120 / 47526 / 32736 Регистрация: 18.05.2008 Сообщений: 115,182
	25.01.2012, 17:37	7
	Там написано Сайт из коллекции Компоненты Delphi А вот где вся коллекция..... 0

Опции темы