Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Где взять combobox c историей   Найти похожие ветки 

← →
Dimka Maslov   (2002-01-22 18:46) [4]

Для бысрого поиска в ComboBox подходит такой код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
i: Integer;
S: String;
begin
S:=ComboBox1.Text;
if FLastLength<Length(S) then for i:=0 to ComboBox1.Items.Count - 1 do begin
if AnsiSameText(S, Copy(hcbRecipients.Items[i], 1, Length(S))) then begin //или AnsiSameStr (сравнение с учётом регистра)
ComboBox1.Text:=ComboBox1.Items[i];
ComboBox1.SelStart:=Length(S);
ComboBox1.SelLength:=Length(ComboBox1.Text)-Length(S);
Break;
end;
end;
FLastLength:=Length(ComboBox1.Text);
end;

---

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

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c