怎么定位光标的位置和字符串的长度！！

[listevenly]

比如在edit组件中！怎么把刚不是数字输入的字符去掉！！并且把光标回到edit.text的最后！！
用什么函数取得edit.text的长度！
我的函数是：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key<96) or (key>105 ))then
begin
showmessage('wrong number');
edit1.Text:=leftstr(edit1.Text,sizeof(edit1.Text)-1);
edit1.SelLength:=sizeof(edit1.Text);
end;
老是不对！！
请教！！谢谢！

[woshihaoge]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key<96) or (key>105 ))then
begin
showmessage('wrong number');
edit1.Text:=leftstr(edit1.Text,length(edit1.Text)-1);
edit1.Selstart:=length(edit1.Text);
end;

[listevenly]

sizeof 和length有什么区别！！？？

[listevenly]

能不能用isdigit（）判断一个字符串是不是能转化为数字！如果能用，那么要在uses中添加什么；如果不能，那么要用哪个函数来判断呢？当然uses中要加什么呢！

[belllab]

怎么用SizeOf啊，应该用Length

[listevenly]

但是你的try和except好像没有什么用牙！！还是会出现不是整数之类的异常！！
用这些异常处理是不是需要什么条件！或者购买相应软件！！

[slzzg]

sizeof 是求数据类型地长度（integer, record这些）
length 求字符串
Delphi 好像没有这个IsDigit函数，可以自己写
functin IsNumber(str: string): boolean;
begin
try
StrToInt(str);
Result := true;
except
Result := false;
end;
end;

[老之]

判断一个字符串能不能转化为数字,可以用TryStrToInt。

异常处理在调试时是会出错的，编译成exe文件运行时就会有效了。