|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Считывание MaskEdita
На форме есть MaskEdit с маской в виде 99-99,9 N Как считать маску?
|
#2
|
||||
|
||||
Что значит "считать"?
|
#3
|
|||
|
|||
допустим в вожу в поле вот такое значение 85-33,6 N мне необходимо для дальнейших вычислений 85-33,6 N преобразовать в вид 85,5211 с учётом знака если N то положительное значение если S то отрицательное значение.
|
#4
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
85-33.6 N это тоже самое что и 85,56 N 33.6/60=0.56+85=85.56N
|
#6
|
||||
|
||||
Ну тогда немного G-кода
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s:= MaskEdit1.Text; if s[Length(s)]= 'S' then Label1.Caption:= '-' else Label1.Caption:= ''; Label1.Caption:= Label1.Caption + FloatToStr(StrToFloat(s[1]+s[2])+ StrToFloat(s[4]+s[5]+','+s[7])/60); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |