Delphi, робота з combobox

Є дві процедури: pocedue BoxUp (va NB: TComboBox); begiwith NB do if (ItemIdex> 0) the ItemIdex: = ItemIdex-1 else ItemIdex: = Items.Cout; ed; pocedue BoxDow (va NB: TComboBox); begiwith NB do if (ItemIdex

Delphi: Delphi, робота з ComboBox

Програма на Delphi, Cуть програми така: в Едіт заноситься ім'я, потім присвоюється рядку. За допомогою якогось алгоритму у рядки змінюється закінчення і ім'я стає в родовому Падеже.Проблема полягає в наступному: компілятору не подобається, що я працюю з російськими символами, і він просто не запускає програму, проблема з кодуванням, в загальному. Ставив в алгоритм англійські символи - все компілювати без проблем.Пробовал типи stig і asistig - одінаково.Что можна зробити в цьому випадку?

Допоможіть будь ласка розібратися з тим як Delphi працює з COM портами. В інтернеті багато про це написано, але я не дуже це розумію, немає жодного гідного прикладу. Будь ласка якщо не складно, напишете який-небудь прімерчік, припустимо як за допомогою Делфі відправити в кого порт одиничку.

Скажіть будь ласка, як в Делфі працювати з вікнами інших програм, я маю на увазі, наприклад створити нове вікно обраного мною браузера всередині мого програми, тільки вікно без візуальних елементів управління, хто працював з DiectShow повинен зрозуміти про що я говорю.P.S. Немогу правильно висловити думку, але сподіваюся питання зрозумілий.

113074 113258 225130

matoni (Гість) 3 роки тому

Count - кількість ітемов, а індексуються ітемов з 0. Тобто Ітемов 8, а останній має індекс 7. \ u003d ItmeIndex ніколи не стане більше / одно Items.Count. І відповідно не можна поставити itemindex більший ніж Items.Count-1
procedure BoxUp (var NB: TComboBox);
begin
with NB do
if (ItemIndex0) then ItemIndex: \ u003dItemIndex-1
else ItemIndex: \ u003dItems.Count-1;
end;

procedure BoxDown (var NB: TComboBox);
begin
with NB do
if (ItemIndex \ u003cItems.Count-1)
then ItemIndex: \ u003dItemIndex + 1
else ItemIndex: \ u003d0;
end;

Відповісти на питання

Схожі статті