＋设为首页 ＋添加到收藏夹
比如 123456 我要提出后3位 赋值变量 aaaa 用什么函数啊
StrUtils
function LeftStr(const AText: string; ACount: Integer): string;
RightStr(const AnsiString AText, int ACount);
人家要后边几位，又不是前边几位。
比如：
eidt1.text:=123456;
rithtstr
StrUtils
function LeftStr(const AText: string; ACount: Integer): string;
看帮助了，很详细的
StrUtils
可以在RXLib中找到
aaaa:=copy(123456,4,3)
用copy().RightStr()都可以。
Str:= 123456;
aaa:= Copy (Str,4,3);
Edit1.Text := aaa;
用Copy函数也可以。
以前不会用RightStr时写过一会很烂的函数。
在这献下丑
function TForm1.CutStringFromN(str:string;n:integer;kind:integer):string;
var i,j:integer;
return_str:string;
begin
//STR:要截取的字符串;
//N:要截取到的第几个字符;
//KIND:值为1时表示截取第几个字符后面的字符串,值为2时表示要截取第几个字符前面的字符串;
return_str:=;
if kind=1 then
begin
j:=n;
for i:=1 to length(str)-n+1 do
begin
return_str:=return_str+str[j];
inc(j);
end;
end;
if kind=2 then
begin
j:=1;
for i:=1 to n-1 do
begin
return_str:=return_str+str[j];
inc(j);
end;
end;
result:=return_str;
end;
eidt1.text:=123456;
rithtstr
copy(pchar(str),length(str)-3,3)
aaa:=copy(pchar(str),length(str)-3,3)
