怎么提取Edit1中输入的第一个字符？

Question

是在Edit1的onkeypress事件中写吗？

Answer 1

我做了一个显示edit里所有内容的过程
你可以参考着改一下
我用了一个edit和一个button
在button的onclick中编写：
var
  Name:PChar;  //名字
  L:integer;   //名字的长度
begin
  L:=GetWindowTextLength(Edit1.Handle)+1;   //得到名字长度，并将名字长度加1
  GetMem(Name,L);    //为将要得到的名字分配内存
  GetWindowText(Edit1.Handle,Name,L);  //得到名字
  label1.Caption :=String(Name); //将得到名字显示于label1上
  FreeMem(Name,0); //释放分配的内存
end;
你自己修改一下，然后试试看
祝你好运：)

Answer 2

用copy函数取
str:=copy(edit1.text,1,1);

Answer 3

可以在onKeyPress中写，不过， 在onKeyDown中写好一点。

Answer 4

如果每次都要提取的話我建議在onedit事件中寫

Answer 5

xiaoruo(潮汐)的程序是不是用来显示在EDIT中，输入的密码（用*显示）的，挺面熟的。
用一个str函数 leftstr(edit1.text,1)或用wenguang(吟天涯)的方法也可以

Answer 6

OnkeyUp,onkeydonw,onkeypress这些事件中写都可以，要看你怎么需要了。
有问题请发信息到我的E-mail:[email protected]

Answer 7

var
  S : string;
begin
  S := Edit1.Text;
  Edit1.Text := s[1];
end;

Answer 8

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Memo1.Lines.add(copy(edit1.text,1,1));
end;