Вопросы по ComboBox

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

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

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

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

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

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