Скачать: CL | DM;

Вопросы по ComboBox   Найти похожие ветки 

← →
fenixaz ©   (2006-03-04 02:15) [0]

Подскажите пожалуйста, желательно с примером.
Как реализовать ComboBox, чтобы при вводе скажем буквы "а" отображались записи начинающиеся только на букву "а", при "аб" записи начинающиеся на "аб".

---

← →
tesseract ©   (2006-03-04 13:08) [1]

смотри компонеты RX, теперь они включены в Jvcl. http://delphi-jedi.org

---

← →
Cybernik ©   (2006-03-04 13:18) [2]

Все записи запихни в 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c