КАК СДЕЛАТЬ СПРАВОЧНИК В ДЕЛФИ

Справочник является важным компонентом многих приложений, поэтому в Delphi есть достаточно простой и удобный способ создания справочника с помощью компонента TListView.

Прежде всего добавьте на форму компонент TListView (стандартный компонент Delphi).

ListView1 = TListView.Create(Self);ListView1.Parent := Self;ListView1.Align := alClient;ListView1.ViewStyle := vsReport;ListView1.Columns.Add.Caption := 'Column1';ListView1.Columns.Add.Caption := 'Column2';

Затем можно заполнить список с помощью добавления элементов в таблицу ListView. Например, добавим 3 строки:

with ListView1.Items.Add do begin Caption := 'Row1'; SubItems.Add('Value1'); SubItems.Add('Value2');end;with ListView1.Items.Add do begin Caption := 'Row2'; SubItems.Add('Value3'); SubItems.Add('Value4');end;with ListView1.Items.Add do begin Caption := 'Row3'; SubItems.Add('Value5'); SubItems.Add('Value6');end;

Для поиска элемента в ListView есть несколько способов: можно искать по индексу или по значению. Например, найдем строку с именем 'Row2':

var i: Integer; Item: TListItem;begin for i:=0 to ListView1.Items.Count-1 do begin Item := ListView1.Items[i]; if Item.Caption = 'Row2' then begin // элемент найден // можно изменить значения столбцов: Item.SubItems[0] := 'NewValue1'; Item.SubItems[1] := 'NewValue2'; break; end; end;end;

Также можно использовать методы TListView, например, FindCaption или FindData:

var Item: TListItem;begin // поиск по Caption Item := ListView1.Items.FindCaption(0, 'Row2', False, True, False); if Assigned(Item) then begin // элемент найден // можно изменить значения столбцов: Item.SubItems[0] := 'NewValue1'; Item.SubItems[1] := 'NewValue2'; end; // поиск по Data Item := ListView1.Items.FindData(nil, 0, 'Data2', True, False); if Assigned(Item) then begin // элемент найден // можно изменить значения столбцов: Item.SubItems[0] := 'NewValue1'; Item.SubItems[1] := 'NewValue2'; end;end;

Создание теста на Delphi кратко и по теме

Программирование в Delphi / Урок 1. Знакомство со средой разработки. Приложение \

DELPHI Урок 3 Создание БД, добавление, удаление, изменение записей

Как Красиво Оформлять КОНСПЕКТЫ ✨ 100 идей (быстро и просто) МОИ КОНСПЕКТЫ

Как Приручить Панду в Майнкрафте? Панды в Minecraft

Где брать схемы на авто. Ниже под описание ссылка на схемы.

Программирование на Delphi. Телефонный справочник часть 1

Программирование на Delphi. Телефонный справочник часть 2

Реклама
Новое
Реклама