ПредишенСледващото

две полезни функции, включени в по-старите версии на Delphi: TryStrToInt и TryStrToFloat. Тези функции са използвани като аргументи низ да се преобразува до цяло число или плаваща точка стойност и променливата, в която ще се записва резултата в случай на успешна реализация. Ако превръщането провали - функцията връща лъжа.

функция TryStrToInt (конст S: низ; от стойност: цяло число): булева;

функционира TryStrToFloat (Конст S: низ; навън Стойност: Double): Boolean; претоварване;

Кодовият фрагмент използване функция TryStrToFloat е показано по-долу. Трябва да се отбележи, че ...
като аргумент на функцията отнема реално число с десетичен разделител, разположен в операционната система.

ако (TryStrToFloat (EditMu.Text, Mu) = фалшива), тогава

ShowMessage ( "Въведете правилния параметър Mu. ');

2.5. Бутон за начало / спиране на изчисляването

Често програмисти поле за въвеждане блок в развитието на компютърните кодове от страна на потребителя се променя стойности в тях по време на изчисление. За това изчисление на терена в началото направи недостъпни (Edit1.Enabled: = фалшива;) или да ги зададете ReadOnly собственост (Edit1.ReadOnly: = вярно). Ние остави този въпрос на разработчика. Възможно е, но не непременно мярка, защото, както се казва в програмата, тя не проверява полето за въвеждане. Но за действието на бутоните за управление, трябва да бъдат разследвани. Ако е добре се предоставя метод за изчисление Монте Карло, т.е. извършва с големи статистиката, програмата може да се счита за няколко секунди. В този случай, разработчикът трябва да се осигури присъствието на един бутон, който позволява да се прекъсне изчислението. Естествено е да се предположи, че преди стартирането на програмата за изчисляване на бутона START е активен и бутона STOP не е на разположение за употреба. Когато има селище, бутонът START не е на разположение да се направи, и бутони стоп са на разположение за употреба. Според изчисленията е завършен, или когато изчислението е прекъсната, бутонът се връща в първоначалното си състояние. Едно изпълнение е показано с бутони код фрагмент долу. В този случай, се използва само един бутон, който е преименуван в зависимост от програмата за действие.

ако Button1.Caption = 'Старт "и след това да започне

ProcRun; // Започнете изчислението, проверете дали бутона STOP е натиснат

иначе, ако Button1.Caption = 'Стоп "и след това да започне

ProcStop; // изчисляване Stop статистика запомняне

Подкрепете проекта - споделете линка, благодаря!