展开全部
你说的很容易实现啊!可以先转换为字符串,然后取字符即可!
例如:
var
ini_value,result : integer;
temp,temp2 : string;
ini_value := 123456;
temp := Right(IntToStr(str_value),2);//取得右边2位数字'56'
temp2 :=left(temp,1) //取得temp左边一位数,就得到了‘5’
result :=strtoint(temp2) //字符转换为数字
---------------------------------------------
另一种方法:
var
ini_value,temp,result : integer;
temp2 : string;
ini_value := 123456789;
temp := len(intostr(ini_value))-2;//取得长度减去2,就是右边第二位前面的位置
temp2 := copy(intostr(ini_value),temp,1)//从字符串中第temp个位置取1个字符,就得到了8
result :=strtoint(temp2) //字符转换为数字
例如:
var
ini_value,result : integer;
temp,temp2 : string;
ini_value := 123456;
temp := Right(IntToStr(str_value),2);//取得右边2位数字'56'
temp2 :=left(temp,1) //取得temp左边一位数,就得到了‘5’
result :=strtoint(temp2) //字符转换为数字
---------------------------------------------
另一种方法:
var
ini_value,temp,result : integer;
temp2 : string;
ini_value := 123456789;
temp := len(intostr(ini_value))-2;//取得长度减去2,就是右边第二位前面的位置
temp2 := copy(intostr(ini_value),temp,1)//从字符串中第temp个位置取1个字符,就得到了8
result :=strtoint(temp2) //字符转换为数字
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询