一个字符串问题。。请指教。。

Question

var s:string;
begin
  s:='1234567';
end;
如何使S去掉后面三个字符。。
    另外如何在一个Edit输入完数据后按Enter键。。响应某按钮事件

Answer 1

如何使S去掉后面三个字符。
--
  s := Copy(s, 1, Length(s) -3);另外如何在一个Edit输入完数据后按Enter键。。响应某按钮事件
--Edit 的onKeypress 事件中
   if (key = #13) then
     调用某按钮事件
  

Answer 2

1 取s长度-3的字符串,很多函数啦,自己去查手册
2 在edit的keypress中写如果 key=#13 就调用按钮事件

Answer 3

怎么掉用啊。。我的按钮事件是：LoginBTNClick(Sender: TObject);

Answer 4

tform1.LoginBTNClick(Sender: TObject);
var s,ss:string;
begin
  s:='1234567';
  ss := Copy(s, 1, Length(s) -3);
end;tform1.edit1keypress(Sender: TObject,var Key: Char);
var s,ss:string;
begin
  if key=#13 then  begin
    LoginBTNClick(sender);
  end; 
end;

Answer 5

if(key = #13)then
    LoginBTNClick(Sender);