类似退格键的问题(50分)

X

xzhxu2006

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-18

• #1

现在我有一串字符串，如“adbskdf13434.909”
按下Button控件，使得字符串变为"adbskdf13434.90"；如此反复下去，按一下字符串少一位，直到字符串的长度为1时，按下Button控件不做任何动作

请大虾帮忙，该如何实现！

 

S

shunzi1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-18

• #2

uses StrUtils;

var
aStr: String;

procedure TForm1.Button2Click(Sender: TObject);
var
strLen: Integer;
begin
strLen := Length(aStr);
if (strLen>1) then
aStr := LeftStr(aStr, strLen-1);
end;

 

S

smsman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-18

• #3

我以前写过一个类似的功能，你可以看看。
var
str1:string;
m:integer;
begin
m:=length(str1);
if m=2 then
begin
myrightedit1.Text:='0.';
end
else
begin
if str1[m]='.' then
begin
setlength(str1,m-2);
myrightedit1.Text:=str1+'.'
end;
if str1[m]<>'.' then
begin
setlength(str1,m-1);
end;

 

X

xzhxu2006

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-20

• #4

ok

 

X

xzhxu2006

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-20

• #5

多人接受答案了。