| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопросы по ComboBox [D7, WinXP]
fenixaz © (2006-03-04 02:15:00)Подскажите пожалуйста, желательно с примером.
Как реализовать ComboBox, чтобы при вводе скажем буквы "а" отображались записи начинающиеся только на букву "а", при "аб" записи начинающиеся на "аб".
Cybernik (2006-03-04 13:18:00) [1]Все записи запихни в StringList допустим он будет называться allrecord тогда пример будет иметь вид:
function LowerCase(s: string): string; //функция для перевода всего в нижний регистр
var
i: integer;
begin
result := s;
for i := 1 to length(result) do
if (result[i] in ['A'..'Z', 'А'..'Я']) then
result[i] := chr(ord(result[i]) + 32);
end;
procedure TForm1.Edit1Change(Sender: TObject); // событие на Edit в котором будут вводится начальные буквы искомых записей
var
i: integer;
begin
Combobox1.Items.Clear;
for i:=0 to allrecord.Count-1 do
begin
if LowerCase(Edit1.Text)=LowerCase(Copy(allrecord.Strings[i],1,Length(Edit6.Text))) then
begin
Combobox1.Items.Add(allrecord.Strings[i]);
end;
end;
Combobox1.ItemIndex:=0;
end;
tesseract (2006-03-04 13:08:00) [2]смотри компонеты RX, теперь они включены в Jvcl. http://delphi-jedi.org
| |
