在edit中输入两个数字中间用分号隔开，我在程序中该怎样判断？

Question

用additional里的maskedit,设置editmask属性

Answer 1

length(edit1.text)不就知道你输入几个了吗

Answer 2

用additional里的maskedit,设置editmask属性

Answer 3

i:=pos(';',edit1.text);
if i<>0 then begin
  mystr1:=copy(edit1.text,1,i-1);
  mystr2:=copy(edit1.text,i+1,length(edit1.text)-i);//注意计算一下，我计算的位置可能不对
end else begin
  //仅有一个数字输入
end;可能你还要判断输入了分号，但是没有第二个或者第三个数字输出，则可以设置异常捕获了

Answer 4

同意楼上的。
比较笨的方法是在edit1的keypress事件中加如果按了‘；’键， 一个全局变量就加一。

Answer 5

tmp_str:=edit1.text;
str_1:=copy(tmp_str,1,pos('-',tmp_str);//pos找到第一个'-'的位置的函数
i:=1//有一个‘-’
tmp_str:=trim(copy(pos('-',tmp_str)+1,200));
if pos('-',tmp_str)<>0 then
i:=2;//有两个‘-’

Answer 6

pos和copy应该能解决问题了。你可以把代码写在edit的onexit事件里比较方便。看看delphi的帮助很有用的。比如你打入pos然后光标移到pos单词的中间按f1就出来了，帮助写的很详细的！是english的。