Question

在delphi中 如何用代码删除Edit中焦点左边的字符或选中的字符串，就像是按下了Backspace

Answer 1

function _R(S:string;L:integer):string;
var R:string;
begin
R:='';
if (S<>'') and (L<Length(S)) and (L>0) then
begin
R:=COPY(S,(Length(S)-L+1),L);
end;
if L>=Length(S) then R:=S;

Result:=R;
end;

function _CutL(S:string;L:integer):string;
{减掉字串中左边若干个字元}
var R:string;
{例 _CUTL('TEST',1) 即传回'EST'}
begin
R:='';
if (S<>'') and (L<=Length(S)) and (L>0) then
begin
R:=_R(S,(Length(S)-L));
end;
if L=0 then R:=S;
Result:=R;
end;

// Edit1.text:=_CUTL(Edit1.text,1)

Answer 2

简单的字符串操作而已。
你处理Edit的Text属性就行。

Answer 3

edit1.text:=copy(edit1.text,1,length(edit1.text)-1)