Delphi, dolgozó legördülő menüből
Két eljárások: pocedue BoxUp (va NB: TComboBox); begiwith NB tenni, ha (ItemIdex> 0) a ItemIdex: = ItemIdex-1 mást ItemIdex: = Items.Cout; ed; pocedue BoxDow (va NB: TComboBox); begiwith NB tenni, ha (ItemIdex A program Delphi, a lényege a program a következő: A név Edith lépett, majd rendelt egy sorban. A rendszer segítségével a néhány algoritmus változások a sor végére, és a név lesz a birtokos Padezhe.Problema a következő: a fordító nem tetszik az a tény, hogy én dolgozni orosz karaktereket, és ez csak nem fut a program, a kódolási probléma általában. Tettem egy algoritmus angol karaktereket - az összes fordított nélkül problem.Proboval típusú Stig és asistig - odinakovo.Chto tehetünk ebben az esetben? Kérem, segítsen, hogy kitaláljuk, hogyan működik a Delphi COM portot. Az interneten sok írtak róla, de én nem igazán értem, senki sem alkalmas példákat. Kérjük, ha nem nehéz, írj néhány primerchik, például, hogyan kell használni Delphi küldeni com port yedinichku. Kérem, mondja meg, hogyan kell dolgozni Delphi ablakai más programok, úgy értem, például egy új ablak a kijelölt böngésző az én alkalmazás, csak az az ablak nélküli vizuális kontroll aki dolgozott DiectShow kell érteni, mire govoryu.P.S. Én vidám megfelelően kifejezni azt az elképzelést, de remélem, hogy a kérdés világos. 113074 113258 225130 Matoni (Vendég) 3 évvel ezelőtt Count - száma egy elemet, és az elem indexelve a 0. Ie 8 egy elemet, és az utóbbi egy indexe 7. \ u003d ItmeIndex soha nem lesz több, mint / egyenlő Items.Count. És nem tudod egynél itemindex rendre Items.Count-1 eljárás BoxDown (var NB: TComboBox); Válaszolj a kérdésreDelphi: Delphi, dolgozó ComboBox
eljárás BoxUp (var NB: TComboBox);
kezdődik
NB do
if (ItemIndex0), majd ItemIndex: \ u003dItemIndex-1
mást ItemIndex: \ u003dItems.Count-1;
végén;
kezdődik
NB do
if (ItemIndex \ u003cItems.Count-1)
majd ItemIndex: \ u003dItemIndex + 1
mást ItemIndex: \ u003d0;
végén;Kapcsolódó cikkek