Като пример за компонент за вход stringGrid масив, помислете за една програма, която изчислява средната аритметична стойност на елементите на масива. диалоговия прозорец на програмата е показано на фиг. 5.3. stringGrid компонент се използва за въвеждане на масива, и компоненти Label1 LABEL2 - за да се покаже обяснителен текст и резултат от изчисление, Buttoni - за стартиране на процеса на изчисляване.
Фиг. 5.3. Диалогов прозорец за въвеждане и обработка на масив
StringGrid компонент се добавя под формата точно същото, както и останалите компоненти. След добавяне на компонента за формиране е необходимо да се извърши настройка в съответствие с таблица. 5.2. Стойностите на ширина и височина на имоти трябва да използват мишката, за да настроите така, че размерът на компонент е равен с линейни размери.
Текстът на програмата е показана на Обява 5.2.
Таблица 5.2. стойността на имотите StringGrid1 компонент
Windows, Съобщения, SysUtils, варианти,
Класове, графика, контроли, форми, диалози, решетки, StdCtrls;
процедура ButtonlClick (Sender: TObject); частен
процедура TForml.ButtonlClick (Sender: TObject); Var
а. масив [1..5] на цяло число; // масив
Summ: цяло число; // сума на елементите
SR: реален; // средно аритметично
I: цяло число; // индекс
// считат, че ако клетката е празна, съответните
// масив елемент и е нула
ако дължина (StringGridl.Cells [I-1, 0]) <>0
тогава [Ь]: = StrToInt (StringGridl.Cells [I-1,0])
Summ: = + Summ на [Ь]; SR: = Summ / 5;
В заключение води Label2.Caption: =
"Сума елементи: '+ IntToStr (Summ)
+ # 13 + "аритметика средната: '+ FloatToStr (SR);
След процеса пистите на програмата има желание да направи промени в масив от вход на производствения процес. Така че би било хубаво да има курсора автоматично ще бъдат преместени към следващата клетка от таблицата, например, в резултат на натискане на клавиш
текст събитие процедура OnKeyPress обработка е показана на Обява 5.3. Обърнете внимание на Col Имотът, че докато програмата съдържа номера на колоната в таблицата, където се намира курсора. Тази функция може да се използва и за да преместите курсора в желаната клетка на таблицата. Все пак, имайте предвид, че на колона от таблицата, обаче, тъй като линиите са номерирани от нула.
Обявата 5.3. Събитие процедура за обработка на OnKeyPress
процедура TForm1.StringGridlKeyPress (Sender: TObject;
# 8, '0' .. "9". ; // номера и ключ
# 13: // ключ
ако StringGridl.Col
след StringGridl.Col: = StringGridl.Col + 1;
друг ключов: = Chr (0); // почивка на героите не са позволени
Ако искате да се въведе масив от числа с плаваща запетая (по-: масив [1. 5] от реалния), след процедура OnKeyPress събитие по-сложно, така че в допълнение към номерата допустим герои са символ на сепаратора (запетаята или период - зависи от вас настройки на Windows) и .. минус. За да се осигури някаква програма среда по отношение на потребител може да прилага трик заместител неправилно поставяне разделител истински потребител. Определете кой разделител разрешения за текущата настройка на Windows, можете да се свържете с глобална променлива Decimaiseparator.
Обявата 5.4 показва прилагане за въвеждане на текст модул и обработка на множество частични номера. OnKeyPress за усъвършенстване предвижда въвеждане събития в таблица клетка допустими само когато записването на фракционна брой символи.
Обявата 5.4. Въвеждане и обработка на масива на дробни числа
Windows, Съобщения, SysUtils, варианти, уроци,
Graphics, контроли, форми, диалогови прозорци, решетки, StdCtrls;
Новини
Knights етер теория
Това Корнилов написа на страницата си в социалната мрежа.
Според Корнилов, тогава посланието му беше посрещната с недоверие.
Сега Владимир Корнилов реши да се върне към този въпрос, във връзка с които публикува в Моята страница във Фейсбук снимки мистериозни израелци, които взеха участие в клането в Одеса.
Сред многото въпроси, които Корнилов, каза той, биха искали да получите отговор, например, са както следва:
"Защо са случайно отиде в Одеса с медицинско оборудване, гумени ръкавици, ако са знаели предварително, че ще бъде ранен и убит? Или защо този боец изведнъж забравили английски, когато разбра, че досието му? ".
Езера, морета и океани от северните --------- lushariya върти обратно на часовниковата стрелка Lc m - р-в-к-и, и водата в южната polushariya - RA - проводим разтваря -sya- зало- ч ас стрелка - Obra-zuya- -Oral-мравка-ски-е-ово-вода компания.
Основната причина за водовъртежите на въртене са местен вятър.
Колкото по-висока скорост на вятъра по-висока скорост на въртене на водовъртежи и като следствие, по-високи водовъртежи центробежната сила, като по този начин увеличаване на нивото на водата на морета и океани.
И толкова по-ниска центробежната сила от водовъртежи, толкова по-ниско нивото на водата в моретата и океаните.
скорост на потока по периметъра на моретата и океаните не е същото навсякъде и зависи от дълбочината на брега. В плитка част на скоростта на морските течения се увеличава, а в дълбоката част на морето се намалява.
Сезонни колебания в нивото на водата часовник-tsya не около бреговете на моретата и океаните-те, но само в тези брегове, където -висока ъгловата скорост на потоците и следователно висока центробежната сила на водата. (Центробежната сила F В = V / R).
През прави брегове, където течения нямат никаква ъглова скорост ниво на водата не се покачва.
Свързани статии