edit1.text里有24位数字,去掉前8位,剩下16位显示到edit2.text里怎么实现

Question

edit1.text里有24位数字,去掉前8位,剩下16位显示到edit2.text里怎么实现

Answer 1

var
    sTemp : String;
begin
    sTemp := Trim(edit1.Text);
    edit2.Text  := copy(stemp, 9, StrLen(PChar(sTemp))-8);
end;

Answer 2

var
    str : String;
begin
    str := Trim(edit1.Text);
    edit2.Text  := copy(str, 9, length(str)-8);
end;

Answer 3

if Length(Trim(edit1.text)=24 then showmessage('OK');

Answer 4

var
  str: string;
begin
  str := trim(edit1.text);
  delete(str,1,8);    //删除前8位
  edit1.text := str;
end;

Answer 5

BCB里面可以这样
 String ss;
 ss=ss.SubString(9,24-8);

Answer 6

var 
 str:string;
begin
str:=trim(edit1.text);
if length(str)=24 then showmessage('它是24位!')
else showmessage('它不是24位!');
edit2.text:=midstr(str,9,length(str)-8);这一句也用下面的一句
edit2.text:=rightstr(str,length(str)-8);
  

Answer 7

呵呵,要做dedecms的漏洞利用工具吧? .

Answer 8

uses StrUtils....;
...
  edit2.text:=rightstr(edit1.text,16);
...
新手偶得

Answer 9

最简单的一句就是
edit2.text:=copy(edit1.text,9,16);

Answer 10

uses  StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := RightStr(Edit1.Text,16);//从右边截取字符串
end;