Запись, StingGrid и удаление - Delphi - Ответ 2423299

@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, почему?

Вернуться к обсуждению:
Запись, StingGrid и удаление Delphi

Следующий ответ

Другие темы раздела
Delphi Алгоритм Брезенхэма https://www.cyberforum.ru/ delphi-beginners/ thread434551.html Ребят, кто знает где можно найти хорошее чтиво(ссылку) по Теме: "построение окружности и отрезка (по Брезенхему)" Именно нужна не программная интерпретация, а чтобы объяснено было как строить. ...	Delphi Разбиение одной строки на несколько имеется следующий код текст в нем как можно увидеть в строку заносится целиком игнорируя любое символы переноса строки и получается такая длинная строка без абзацев и тп теперь вопрос: как...
Delphi Глюк Delphi Помогите, пожалуйста! Ситуация такова. Недавно перед Новым Годом я установил Windows 7 на компьютер поверх имеющейся копии с сохранением настроек и пользовательских файлов, т.е сделал обновление... https://www.cyberforum.ru/ delphi-beginners/ thread434526.html	*Delphi SOS Подскажите, пожалуйста, как восстановить базу .db по .XG0* https://www.cyberforum.ru/ delphi-beginners/ thread434499.html Подскажите, пожалуйста, как восстановить базу .db по .XG0. Во время работы произошел какой-то сбой и программа мгновенно закрылась с поврежденной базой, а после попытки восстановить ее помощью...
Delphi ЛИнейные уравнения Создать программу для решения системы линейного уравнения методом Жордана-Гаусса	Delphi Преобразование одномерного массива в двухмерный https://www.cyberforum.ru/ delphi-beginners/ thread434395.html Написать программу, с использованием вложенных процедур или функций, которая преобразует одномерный массив, состоящий из 100 элементов, в двухмерный массив размера 10x10. Элементы массива заполняются...
Delphi нужно сделать лаб.работу https://www.cyberforum.ru/ delphi-beginners/ thread434343.html привет,привет!нужно сделать лабораторную работу на тему Внутренние сортировки.Реализовать 5 алгоритмов сортировки массивов:рекуррентное слияние,сортировку Шелла,пирамидальную сортировку,быструю...	Delphi Прикрепление счетчика помогите прикрепить счетчик вопросов, и счетчик неправильных/правильных я так понимаю нужно работать с boolean и результат складывать куда то? в таком случае куда его лучше воткнуть? var...
Delphi [DCC Error] Missing operator or semicolon https://www.cyberforum.ru/ delphi-beginners/ thread434331.html type Stack = ^TStack; TStack = record key : integer; next : Stack; end; type TForm1 = class(TForm) Button1: TButton; Edit1:...	Delphi Литература для темы "указатели" https://www.cyberforum.ru/ delphi-beginners/ thread434315.html Добрый день . Подскажите хорошую литературу по этой теме или ссылку в интернете . Я сам искал , но не знаю , правильно ли там все написано . Подскажите какой то проверенный источник, который вы...
Как переделать функцию? Delphi Есть такая функция: function TForm2.CopyBetween(const AStr, AStart, AEnd: String): String; begin Result := AStr; if(Pos(AStart,Result)<>0)then Result :=...	Delphi как работает тестовая оболочка? Я знаю основы делфи. Вопрос состоит в том чтобы написать тестовую оболочку, подскажите с чего начать ее разработку. Я представляю как в теории она должна работать но дальше затрудняюсь. Например что... https://www.cyberforum.ru/ delphi-beginners/ thread434214.html