TurboDelphi. Справочник

[Xeon332]

Вот такая у меня форма:


Не соображу прописать код для добавления нового контакта и удаления...Как эти кнопки связать с StringGrid?

[Баламут]

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,StringGrid1.RowCount - 1] := 'Превед';
StringGrid1.Cells[2,StringGrid1.RowCount - 1] := 'медвед';
end;

[mihali4]

StringGrid можно редактировать ручками -> последние две строки не нужны.

procedure TForm1.ButtonAddRowClick(Sender: TObject);
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Row:=StringGrid1.RowCount-1;
StringGrid1.Col:=1;
StringGrid1.SetFocus;
end;

И поехали вводить.
А вот с удалением проблемка.
Если удаляем не последнюю строку, то придется сначала переписать содержимое первой следующей строки в удаляемую, содержимое второй следующей - в первую следующую и так далее до самой последней и только тогда последнюю нужно обязательно сначала очистить от текста, а потом удалить StringGrid1.RowCount:=StringGrid1.R owCount-1;

[Xeon332]

procedure TForm1.ButtonAddRowClick(Sender: TObject);
begin
StringGrid1.RowCount:=StringGrid1.R owCount+1;
StringGrid1.Row:=StringGrid1.RowCou nt-1;
StringGrid1.Col:=1;
StringGrid1.SetFocus;
end;

Этим кодом получается добавляем новые строки для того, чтобы в них что-то ввести. А организовать диалог для ввода нового абонента относится не к этому? И как его организовать для StringGrid?
Вот код:

var v:integer;
procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d,e:string;
f:textfile;
y:integer;
begin

a1:
a:=inputbox('Введите фамилию контакта','');
if a='' then if messagedlg('Вы не ввели фамилию нового контакта. Повторить ввод?', mtwarning,
[mbyes,mbno],0)=mryes then goto b else goto f1;
и т.д.

он не работает в полном варианте. может упустил что-то, но прога не компилирует этот код в полном варианте (с фамилией, именем, адресом и т.д..) уже что только не пробовал...

[mihali4]

Еще раз - "StringGrid можно редактировать ручками".
То есть добавили строку и вводим прямо в нее...
Вам хочется усложнить - делать заполнение через диалоги?
Бога ради. Но тогда посмотрите в хэлпе, какой формат имеет INPUTBOX. Там примеров понатыкано специально для ...
Зачем же наобум-то писать?
Между прочим, есть еще INPUTQUERY...

[Xeon332]

Еще раз - "StringGrid можно редактировать ручками".

т.е. чтобы ввести новый контакт нужно добавлять код для него? или не так понимаю? Как редактировать-то: добавлением или изменением?

[mihali4]

Это значит просто вводить буковки в ячейки грида

[Xeon332]

Это значит просто вводить буковки в ячейки грида

После нажатия на кнопку "Новый контакт" добавляется строка ячеек, которых нельзя редактировать. И как тогда редактировать эти ячейки? В свойствах Грида может надо это свойство разрешить?

[mihali4]

В свойствах Грида может надо это свойство разрешить?

Ну конечно... Просмотрите все OPTIONS для грида в его свойствах и установите нужные, отмените ненужные.

[Xeon332]

Разобрался!
Теперь осталось ПОИСК и УДАЛЕНИЕ. Насчёт удаления...

Если удаляем не последнюю строку, то придется сначала переписать содержимое первой следующей строки в удаляемую, содержимое второй следующей - в первую следующую и так далее до самой последней и только тогда последнюю нужно обязательно сначала очистить от текста, а потом удалить StringGrid1.RowCount:=StringGrid1.R owCount-1

Эту строку удалить из кода? И каким образом организовать удаление нужной строки? Перезапись первой строки в удаляемую осуществляется как смещение? не разберусь никак...