Delphi 选择edit1.text的部分内容

edit1.selectall;//全选如果只选择Edit1.text的最后两个字符,怎么写?
2025-03-03 10:28:04
推荐回答(3个)
回答1:

Edit1.SetFocus;
edit1.SelStart:=Length(Edit1.Text)-2;
Edit1.SelLength:=2;

回答2:

Var
StrEdt: string;
begin
StrEdt:=copy(trim(Edit1.text),length(trim(Edit1.text))-1,2);
Edit1.SetFocus;
edit1.SelStart:=Length(Edit1.Text)-2;
Edit1.SelLength:=2;
end;

回答3:

Edit1.SetFocus;
edit1.SelStart:=Length(Edit1.Text)-2;
Edit1.SelLength:=2;

这个正确