PageControl

@pun4er · Регистрация: 06.10.2010

Author24 — интернет-сервис помощи студентам

Народ, нужна помощь. Есть программка типа записная книжка. информация (фамилия, имя, адрес, телефон) хранится в StringGrid. Есть кнопка "В алфавитноп порядке".
При нажатии на кнопку “В алфавитном порядке” компоненту PageControl динамически добавляются 4 вкладки: “А-Ж”, “З-O”, “П-Ц”, ”Ч-Я” каждая из которых содержит StringGrid с записями о людях, первые буквы фамилий которых попадают в данный диапазоне. Причем, если в записной книжке нет записей о людях, чья фамилия начинается ,например, с букв Ч-Я, соответствующая вкладка не создается.
Я знаю как просто добавить динамически вкладки, без сортировки.

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
tab1: TTabSheet;
tab2: TTabSheet;
tab3: TTabSheet;
tab4: TTabSheet;
begin
tab1:=TTabSheet.Create(Form1);
tab1.PageControl:=PageControl1;
tab1.Caption:='А-Ж';
 
tab2:=TTabSheet.Create(Form1);
tab2.PageControl:=PageControl1;
tab2.Caption:='З-О';
 
tab3:=TTabSheet.Create(Form1);
tab3.PageControl:=PageControl1;
tab3.Caption:='П-Ц';
 
tab4:=TTabSheet.Create(Form1);
tab4.PageControl:=PageControl1;
tab4.Caption:='Ч-Я';
end;

помогите сделать то же самое только с сортировкой.

@anonimus · 13.12.2010, 13:08

выкладывай весь проект

@pun4er · 13.12.2010, 15:47 **[ТС]**

уже не надо

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	13.12.2010, 13:08	2
	выкладывай весь проект 0

@pun4er 6 / 6 / 0 Регистрация: 06.10.2010 Сообщений: 122
	13.12.2010, 15:47 [ТС]	3
	уже не надо 0