Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.09.2013, 18:09
Zames Zames вне форума
Прохожий
 
Регистрация: 10.09.2013
Адрес: NVRSK
Сообщения: 20
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию Считывание MaskEdita

На форме есть MaskEdit с маской в виде 99-99,9 N Как считать маску?
Ответить с цитированием
  #2  
Старый 28.09.2013, 18:19
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Что значит "считать"?
Ответить с цитированием
  #3  
Старый 28.09.2013, 18:41
Zames Zames вне форума
Прохожий
 
Регистрация: 10.09.2013
Адрес: NVRSK
Сообщения: 20
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию

допустим в вожу в поле вот такое значение 85-33,6 N мне необходимо для дальнейших вычислений 85-33,6 N преобразовать в вид 85,5211 с учётом знака если N то положительное значение если S то отрицательное значение.
Ответить с цитированием
  #4  
Старый 28.09.2013, 23:38
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Zames
...85-33,6 N преобразовать в вид 85,5211...
Как 33,6 превращается в 5211? Просветите
Ответить с цитированием
  #5  
Старый 29.09.2013, 09:19
Zames Zames вне форума
Прохожий
 
Регистрация: 10.09.2013
Адрес: NVRSK
Сообщения: 20
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию

85-33.6 N это тоже самое что и 85,56 N 33.6/60=0.56+85=85.56N
Ответить с цитированием
  #6  
Старый 29.09.2013, 11:08
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Ну тогда немного 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;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:51.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter