процедура на удаление, удаляет запись из Combobox1, а как сделать что бы еще удалялись запись из полей EDIT?

[ИвановБ]

var i:integer; s:string;
begin
s:=combobox1.Text;
for i:=0 to Combobox1.Items.Count do
begin
Combobox1.DeleteSelected;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
end;

Код удаляет запись из комбинированного списка и очищает поля Edit.
Но у меня есть процедура которая сохраняет изменения в полях Edit, в таблицу stringgrid. Там запись стирается и получается вот что.


Как сделать так чтобы удаляя запись в комб. списке и полях Edit При сохранении изменений, они сохранились нормально в таблице?

[ИвановБ]

То есть удалил ты данные из Edit, сохранил, и эти данные исчезли из таблицы.

[sav.a]

Вот это совсем не понятно

for i:=0 to Combobox1.Items.Count do
begin
...
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;

зачем Edit чистить в цикле, они где-то заполняются каждый раз?

[evg_m]

DeleteRow:= <а собственно какую строку мы будем удалять>

теперь ВСЕ последующие строки(Row[]| Rows[] ?) надо "передвинуть" одну позицию вверх.

for j:=DeleteRow +1 to StringGrid1.rowcount-2 do 
begin
  StringGrid1.Row[j].Text:=StringGrid1.Row[j+1].Text; //вроде бы так можно сделать.

//--------- НО если есть проблемы, то просто
  for xx:=0 to StringGrid1.colcount-1 do 
//меняем ВСЕ ячейки строк j на соответствующие ячейки строки j+1
     StringGrid1.Cells[xx, j]:=StringGrid1.Cells[xx, j+1]
//---------
end;

И СТЕРЕТЬ последнюю (т.е. уменьшить количество строк)

  StringGrid1.rowcount:=StringGrid1.rowCount-1;

[ИвановБ]

evg_m, Что-то никак не могу собрать ваш код воедино.

[Heneken87]

Уважаемый ТС. Я так почитал,почитал и ничего не понял xD
Давай разберемся на пальцах.
1-Ты пишешь программу "Магазин книг", где нужно указать название,Автора, Цену и Кол-во книг на складе..наверное поэтому 4 Edita
2- Ты выбрал свой подход к написанию,что приветствуется, но не всегда является оптимальным вариантом.
3- Ты натыкаешься из-за (см. 2 пункт) на грабли, и ищешь на форуме решение проблемы. Стараясь объяснить не задачу, а грабли

Если я угадал и в конкретной задаче от преподавателя звучало только сделать "Магазин книг", у меня осталось 2 вопроса, далее будем давать тут советы как подойти к решению
1- Где сохраняются данные, в конкретной БД или в текстовых файлах(TXT,INI)
2- Есть ли доп.условия по оформлению программы и используемым компонентам? (например явно указано использовать компонент StrinGrid и.т.д)

P/S/Сорямба за сарказм

[ИвановБ]

Вот мой проект.

Мне осталось написать обработчик для кнопки удалить, чтобы в вкладки редактирования из компонента ComboBox1 удалялась запись одновременно с эти удалялись данные из полей Edit, которые находятся в "Найденых записях" и компонента stringgrid.

[ИвановБ]

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

1- Где сохраняются данные, в конкретной БД или в текстовых файлах(TXT,INI)

Сохраняется в файлах формата *.bks

[kropotkina-alice]

Сообщение от ИвановБ

Вот мой проект.
Мне осталось написать обработчик для кнопки удалить, чтобы в вкладки редактирования из компонента ComboBox1 удалялась запись одновременно с эти удалялись данные из полей Edit, которые находятся в "Найденых записях" и компонента stringgrid.

Как я поняла, у вас затруднение с удалением записи в StringGrid?
Если да, то сделайте такие маленькие изменения:
1. Перед объявлением формы добавьте:

type
  THackGrid = class(TStringGrid);

  TPagesDlg = class(TForm)// это объявление вашей формы

2. Добавьте в глобальные переменные

id: integer;

3. Добавьте присвоение значения для id:

procedure TPagesDlg.NewEdit(Sender: TObject);
var i:integer;
 begin
  i:=ComboBox1.ItemIndex+1;
  if i>0 then
   begin
   Edit1.Text:=G.Cells[0,i];
   Edit2.Text:=G.Cells[1,i];
   Edit3.Text:=G.Cells[2,i];
   Edit4.Text:=G.Cells[3,i];
   id:=i;// добавить
   end
 end;

То же делаем в procedure TPagesDlg.btnFindClick, в цикле for i:=1 to N do перед строкой Break;

4. В procedure TPagesDlg.btnFindClick и в procedure TPagesDlg.NewEdit добавляем первой строкой

id:=0;

5. В procedure TPagesDlg.btnDelClick добавляем строки

if id>0 then
THackGrid(G).DeleteRow(id);

Все.

[ИвановБ]

alica спасибо сейчас попробую изменить если что отпишусь.