Адресная книга

[immor]

Доброго времени суток.
Нужно написать адресную книгу в Делфи. что был поиск по фамилии, по адресу ...когда вводишь фамилию выводил адрес номер телефона...или когда вводишь улицу выводил фамилию человека.
Спасибо.

[ViNcHeStEr]

1) Создаёте 4 edit: фамилия улица дом телефон.
2) По нажатию на кнопку эти данные заносятся в stringgrid в одну строку.

stringgrid.cells[0,k]:=edit1.text;
stringgrid.cells[1,k]:=edit2.text;
stringgrid.cells[2,k]:=edit3.text;
stringgrid.cells[3,k]:=edit4.text;

3) Создаём ещё один edit для поиска.
4) По нажатию второй кнопки производится поиск по всему stringgridу.
5) Если найдено, то "фамилия улица дом телефон" выводится во второй stringgrid с одной строкой.

for i:=1 to n do
begin
for j:=1 to n do
begin
if stringgrid.cells[i,j]=edit5.text then
begin
stringgrid2.cells[0,0]:=stringgrid.cells[0,j];
stringgrid2.cells[1,0]:=stringgrid.cells[1,j];
stringgrid2.cells[2,0]:=stringgrid.cells[2,j];
stringgrid2.cells[3,0]:=stringgrid.cells[3,j];
end;
end;
end;

как-то так...

[Ntlegend]

лучше делать через БД

[Levsha100]

Используйте Базы Данных Access(не пугайтесь, тут нету нечего сложного)
Советую книгу "Библия Delphi" М.Фленов, там все есть.

[immor]

Спасибо за код.
Понятно что лучше это делать через аксесс, но задание в делфи.
За книгу спасибо.