[Zames]

Доброго времени суток.
Нужна ваша помощь есть на форме компонент MaskEdit с маской в вида 00-00,0N(географическая координата). Как вывести её в Memo?

Код:

1	Memo1.Lines.Add:=FloatToStr(MaskEdit1.Text)

[@Rafa3L]

Да уж

Код:

1	Memo1.Lines.Add(MaskEdit1.Text);

[Zames]

Как сделать ограничение ввода, допустим чтобы пользователь не мог ввести больше 90-0,00

[Alegun]

Для примера

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.MaskEdit1Change(Sender: TObject); var s: string; begin s:= MaskEdit1.Text; if s[1] = ' ' then s[1]:= '0'; if s[1] = '9' then s[2]:= '0';  ...   MaskEdit1.Text:= s; end;

остальные символы отслеживаются аналогично

[Zames]

Спасибо за помощь.
Как сделать так чтобы можно было ввести только два символа "N" и "S" в конце поля?

[Alegun]

Сообщение от Zames

...чтобы можно было ввести только два символа "N" и "S" в конце поля?

Используйте EditMask типа

!90-00.0>L;1;_

в связке с

Код:

1 2 3 4 5 6 7 8

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin  case Key of  '0'..'9', 'N', 'n', 'S', 's': exit;  else   Key:= #0;  end;{case} end;

[Zames]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Lat1Change(Sender: TObject); var a: string; begin   a:= Lat1.Text; if a[1] = ' ' then a[1]:= '0'; if a[1] = '9' then a[2]:= '0'; if a[4] > '6' then a[4]:= '6'; if a[4] = '6' then a[5]:= '0'; if a[4] = '6' then a[7]:= '0'; end;

Как сделать проверку последнего символа, он должен принимать всего два значения либо 'N' либо 'S'

Код:

1 2 3 4

Case a[9] of       'N','S':exit; else Showmessage('Error');

этот код работает но постоянно выдаёт ошибку. пока не ввиду N или S как можно избежать этого?

[Alegun]

А что, маска не помогает?

Добавлено позже:

...этот код работает но постоянно выдаёт ошибку...

так и должно быть, такое условие у кейса заложено, не понимаю

[Zames]

Маска не помогает.
потому как мне нужно чтобы было ограничение по вводу. Так например широта не может быть больше 90-00.0 N(S) с этой проблемой разобрался, а вот с полушариями ни как не могу, чтобы можно было водить только N или S.

[Alegun]

Весь код не от балды, я проверял и у меня работает - кроме цифр и знаков N и S в поле ввода забить ничего нельзя, так что, пожалуйста, попробуйте ещё разок

[Zames]

Твой код работает! Но опять же я могу ввести больше чем 89-59.9N(S) как с этим справиться? За советы отдельное спасибо. очень помогают

[Zames]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Lat1Change(Sender: TObject); var a: string;   begin   a:= Lat1.Text;     if a[1] = ' ' then a[1]:= '0';     if a[1] = '9' then a[2]:= '0';     if a[4] > '6' then a[4]:= '6';     if a[4] = '6' then a[5]:= '0';     if a[4] = '6' then a[7]:= '0';     Lat1.Text:= a; end;   procedure TForm1.Lat1KeyPress(Sender: TObject; var Key: Char); begin       case key of        '0'..'9', 'N', 'n', 'S', 's': exit;         else         key:=#0;       end; end;

В такой связке всё работает как надо.

[Zames]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Lat1Change(Sender: TObject); var a: string;   begin   a:= Lat1.Text;     if a[1] = ' ' then a[1]:= '0';     if a[1] = '9' then a[2]:= '0';     if a[1] = '9' then a[4]:= '0';     if a[1] = '9' then a[5]:= '0';     if a[1] = '9' then a[7]:= '0';     if a[4] > '5' then a[4]:= '5';     Lat1.Text:= a; end; {Проверяем правелньность ввода Полушария, только N или S} procedure TForm1.Lat1KeyPress(Sender: TObject; var Key: Char); begin       case key of        '0'..'9', 'N', 'n', 'S', 's': exit;         else         key:=#0;       end; end;

Немного откоректировал

[Alegun]

Возник вопрос - Lat1 это точно MaskEdit?

(собираю вместе всю инфу из постов)
Если оно, то попробуйте так - установите свойство CharCase в UpperCase, затем задайте свойство EditMask как !90-00.0>L;1;_ (в диалоге в поле Input Mask забейте !90-00.0>L, там же сразу можно и проверить ввод в поле Test input) дальше, задайте Lat1KeyPress как из 5й мессаги, уже должно быть следующее - в эдит кроме цифр и двух знаков ничего больше не вводится. Ну а в конце подключайте вашу процедуру чейнджа, с проверками на соответствие вводимых данных, и ... должно заработать правильно

[Zames]

да Lat1 это и есть MaskEdit. Спасибо за совет всё работает!!!