不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

在线等待，菜鸟问题。

楼主dongxufeifei（飞飞）2002-04-12 16:50:49 在 Delphi / VCL组件开发及应用提问

小弟急需如下字符串函数。
要求功能，可以删去字符串后三位字符。
在线等待。问题点数：10、回复次数：11Top

1 楼pankane（半瓶水）回复于 2002-04-12 16:53:52 得分 0

deleteTop

2 楼zx_wang（wzx）回复于 2002-04-12 16:54:36 得分 0

deleteTop

3 楼dongxufeifei（飞飞）回复于 2002-04-12 16:56:46 得分 0

小弟不知道格式，盼望赐教！Top

4 楼zgh1688（zhou）回复于 2002-04-12 16:59:06 得分 0

copy(edit1.text,1,length(edit1.text)-3);Top

5 楼dongxufeifei（飞飞）回复于 2002-04-12 17:04:57 得分 0

我试过了，没有反应呀！
Top

6 楼ppwsid30（稳如泰山，坚如磐石）回复于 2002-04-12 17:05:33 得分 0

delete(s,length(s)-2,3) // s为你的字符串Top

7 楼suny_2001（小鱼儿）回复于 2002-04-12 17:06:59 得分 10

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

OR

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := edit1.text;
Delete(s,length(s)-2,3);
Edit1.text:=s;
end;

Top

8 楼dongxufeifei（飞飞）回复于 2002-04-12 17:09:34 得分 0

还是不可以！Top

9 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-04-12 17:15:57 得分 0

function NumberAlphaInc(S: string): string;
var
I: Integer;
begin
Result := S;
for I := Length(S) downto 1 do
case S[I] of
'0'..'9': if S[I] = '9' then
Result[I] := '0'
else begin
Result[I] := Succ(S[I]);
Break;
end;
//大写我不管
'a'..'z': if S[I] = 'z' then
Result[I] := 'a'
else begin
Result[I] := Succ(S[I]);
Break;
end;
end;
end; { NumberAlphaInc }

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := NumberAlphaInc(Edit1.Text);
end;
Top

10 楼ppwsid30（稳如泰山，坚如磐石）回复于 2002-04-12 17:18:49 得分 0

不可能啊？你的出现现象是什么？Top

11 楼508sunny（一天到晚游泳的鱼）回复于 2002-04-12 17:24:12 得分 0

哇，简单
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;//你要删除的字符串
begin
s := edit1.text;
Delete(s,length(s)-2,3);//length(s)-2：长度减2，3：删三个字符
Edit1.text:=s;
end;
Top