Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi. Поиск и удаление в телефонном справочнике

Hadgi © (2008-10-27 04:52:00)
Пишу справочник в Delphi. В программировании новичок.
Для справочника использую компонент StringGrid (так надо преподу), 5 штук TButton, 3 штуки TRadioButton.
Не могу вообщем организовать процедуру удаления и поиска абонента в StringGride. Поможите на этом месте...

Сергей М. (2008-10-27 15:14:00) [1]
нажми CTRL-F9, произойдет попытка компиляции пргограммы
Ошибки в тексте программы, если таковые имеются, ты увидишь в открывшейся панели внизу окна с этим текстом

Hadgi (2008-10-27 15:09:00) [2]
вот так вот организовал запись в файл, вроде переменные инициированы, но делфи прикопался к grid.colcount и grid.rowcount (подчёркнул их красной волнистой линией)... из-за чего? не пойму...

procedure TForm1.Button5Click(Sender: TObject);
var
f: textfile;
i, j: integer;
begin
assignfile(f,Filename);
rewrite(f);
writeln(f, grid.colcount);
writeln(f, grid.rowcount);
for i := 0 to grid.colcount - 1 do
for j := 0 to grid.rowcount - 1 do
writeln(F, grid.cells[i, j]);
closefile(f);
end;

Сергей М. (2008-10-27 15:00:00) [3]
Это уж как твоей (или препода) душе будет угодно

Hadgi (2008-10-27 14:58:00) [4]
То есть если в условие True, то организовывать вывод найденного на экран, а если False (else), то выводить сообщение о том, что ничего не найдено? !

Сергей М. (2008-10-27 14:51:00) [5]
Для "отбора" данных в интересующей ячейке существует свойство Cells[]

Hadgi (2008-10-27 14:43:00) [6]
В поиске непонятно каким образом организовать отбор нужных данных, если через условные операторы, то каким образом организовать их работу? А найденное чтобы выводилось в окне поиска...

Сергей М. (2008-10-27 14:27:00) [7]

> для поиска вобще непонимаю

[1] внимательно рассматривал ?
Что тебе там не пониятно ?

> как сделать чтобы выводилось найденное

Куда выводилось-то ?

clickmaker (2008-10-27 14:27:00) [8]
> а для поиска вобще непонимаю

в стринггриде нет встроенных методов для поиска.
Перебором придется, цикл по ColCount/RowCount

Hadgi (2008-10-27 14:21:00) [9]
для удаления:

for i:=3 to StringGrid1.RowCount-1 do //-1, т.к. нумерация с 0
for j:=1 to StringGrid1.ColCount-1 do //-1, т.к. нумерация с 0
StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];
for j:=1 to StringGrid1.ColCount-1 do
StringGrid1.Cells[j,i]:='';
StringGrid1.RowCount:=StringGrid1.RowCount-1;
StringGrid1.SetFocus;
Этот код удаляет строки а не их содержимое.. хотелось бы ещё чтобы удалялась выделенная область с информацией в строке....

а для поиска вобще непонимаю... как сделать чтобы выводилось найденное... вот и прошу помощи...

Сергей М. (2008-10-27 14:00:00) [10]

> Вроде все свойства грида перепробовал - не получается

Показывай как пробовал ..

Hadgi (2008-10-27 13:57:00) [11]
Всмысле? Вроде все свойства грида перепробовал - не получается. я код не понимаю как составить для удаления и поиска...

Сергей М. (2008-10-27 08:32:00) [12]
см., например, TStringGrid.Rows/Cols.IndexOf

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »