delphi中如何在Edit(或DBEdit)中填入一个角度？

[nkzgj]

用delphi设计一份实验报告界面，现在要求学生往一个编辑框中填入角度值（多少度多少分），再将其转换成弧度值。转换好办，问题是让学生怎么填“度”和“分”的符号呢？

[VictorG]

使用TMaskEdit，其EditMask属性00°00″;1;_
（“分”的符号是′还是″，我想不起来了）

[iBear]

读取该字符串的没个字符，判断他是否是数字或分割符，然后......

[nkzgj]

谢谢，然后如何引用°和′前的数字呢？

[VictorG]

更正：00°00″;1;_ 改为 99°99″;1;_ 更好一些。

取数字：TMaskEdit的Text属性
假设 MaskEdit1.Text='19°2″'

var
s: String;
x,y: Integer;
begin
...
s:= MaskEdit1.Text;
x:= StrToInt(Semi(s, '°')); //度
y:= StrToInt(Semi(s, '″')); //分
...
end;

//Semi函数如下
Function Semi(var s:string;m:string):string;
{
返回S串中M前的字符串 S中保留尾串 没找到返回整串，原串为空
}
var
n:integer;
begin
n:=pos(m,s);
if n=0 then
begin
result:=s;
s:='';
end
else
begin
result:=copy(s,1,n-1);
s:=copy(s,n+length(m),length(s));
end;
end;