Как да направите компютърен изпит на Delphi 6
Направих програма в Delphi 6.0. Да преминете изпит на компютър. Но възникна проблем. При въвеждане на резултата в Edit възниква грешка (тъй като резултатите са дробни, например: 2.24). Как мога да се справя с този проблем?
> Игор (06/03/04 20:10)> възниква грешкаКакъв вид? Вероятно в Integer се опитвате да трансформирате?
Глупав съвет, но навременен. Узай от типа Вариант. Хората са малко, времето на съвета не е критично, трансформацията е безплатна (разбира се в рамките на наличните).
> Направих програма в Delphi 6.0. За да преминете изпита на > компютър. Но възникна проблем. При въвеждане на резултата в Редактиране > възниква грешка (тъй като резултатите са дробни, например: 2,24). > Как мога да се справя с този проблем?Това е един от най-"разбираемите" въпроси, които съм чел. Първо, потребителят полага ли изпит или вие сте написали програма за полагане на изпита? Как може да се въведе резултата в Edit - в моите програми например там се въвеждат изходните данни. Ако вече сте решили да показвате резултата чрез Edit1.Text:=". ", тогава каква, по дяволите, разликата ще бъде "2.24", "1024" или "full_karatsupa". Или може би имате променлива (двойна/единична) и искате да запишете нейната стойност в редакцията. Кажете ми какво ви трябва - да преобразувате плаващата стойност в низа или да ги закръглите до цяло число? Или нещо друго? Или не си въртя мозъка след бира?
Още веднъж се опитах да включа моя телепатичен модул. Може би приятел се опитва да преобразува низа във Float, но е зададен само грешен DecimalSeparator и ще има грешка. Въпреки че познайте какво.
> Как може да се въведе резултат в Edit - в моите програми, например, > там се въвеждат входни данни.
В StaticText задачата е написана „Решете задачата. Клон падна в езерото.Това забеляза един бягащ елен. Получениятрезултатвъведете в Редактиране точно по-долу"
Не знам. Учих дълго време в TUSUR (Томски държавен университет по системи за управление и радиоелектроника). Така че вероятно моята курсова работа (програмата за кредитиране на C ++) вероятно все още е запазена. Въпреки че написах тази програма в Delphi Просто сканирах въпросите с добър четец и отбелязах отговорите на радио бутоните. Основното е повече опции. И за трансформацията. За да не се притеснявате какво да извеждате там в Edit1.Text, използвайте това: var v: Variant; begin v := InputData(); Edit1.Text := v; end; . И по-добре, забийте опциите за отговор, за да не пишете алгоритъм за проверка на отговора, което е по-трудно.
. И по-добре забравете опциите за отговор, за да не напишете алгоритъм за проверка на отговора, което е по-трудно.LOL :)) и още по-добре забравете за тази програма. защото е много сложно :)
Ако данните са дробни, тогава от TEdit ги вземете в променлива от типа Float, като използвате функцията StrToFloat: var tmp: float; tmp:=strtofloat(edit1.text); и ако е обратното, тогава името на функцията е обратното:)edit1.text:=floattostr(tmp);
Само там все още трябва да посочите формата за извеждане на число в низ, прочетете за това в Помощ - F1 щракнете върху floattostr:)
И може ли да продължим за елена, езерото и клона? Стана ми интересно как се получава 2,24 там.
А DecimalSeparator май няма нищо общо, ако регионалните настройки на Windows са български, то запетая. Поправете ме: в пост [9], разбира се, нямате нужда от var tmp: float; и var tmp: единичен (или двоен);
> Направих програма в Delphi 6.0.Това е, направих я. Това не е Лего за вас. преди да пишете тестове за другите, би било хубаво да се научите сами.
> точно това направи той. Това не е Лего за вас. преди тестовете > За други би било хубаво да се научат да пишат.Точно така!
лош инстинкт Т за публикуване :)
Този, можеш ли да погледнеш проблемния код? Никога не съм имал проблеми с влизането в Edit. Да, дори 2.24 е лесно! На Едит не й пука. (както не разбирам какъв е проблемът; но много вече са телепатизирали, но изглежда не много успешно;)
Трябва да направите нещо подобно var b:Currency //можете да използвате финансова променлива begin b:=StrToFloat(Edit1.Text) end;