[Zames]

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

Код:

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

[@Rafa3L]

Да уж

Код:

Memo1.Lines.Add(MaskEdit1.Text);

[Zames]

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

[Alegun]

Для примера

Код:

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;_

в связке с

Код:

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;