- 博客(1)
- 收藏
- 关注
原创 edit框只输入数字
procedure TfrmMain.edt1Change(Sender: TObject);var sEdt: string; pEdt: Pchar; i, iLength: longint;begin sEdt:= TEdit(Sender).Text; iLength := Length(sEdt); pEdt:= pchar(sEdt); for i := 0 to i
2009-12-30 09:56:00 435 2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人