求一简单算法！

[liaoning9]

本人对delphi不了解，现在需要一函数，就是把一字符串后面为零的去掉。比如输入‘1234000’返回1234，‘101100’返回1011.

[chenzhuo]

一个比较笨的算法:
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
Index: Integer;
begin
S := '000000';
for Index := Length(S) downto 1 do
if S[Index] <> '0' then Break;
ShowMessage(Copy(S,1,Index));
end;

[hmzgz81]

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str:=edit1.Text;
for i:= length(str) downto 0 do
begin
if str[i]='0' then
delete(str,i,1);
end;
showmessage(str);
end;

[hmzgz81]

不好意思没看清！
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str:=edit1.Text;
for i:= length(str) downto 0 do
begin
if str[i]='0' then
delete(str,i,1)
else
break;
end;
showmessage(str);
end;

[hmzgz81]

如果全是数字的话可以这样写，效率可能高点。

var
i,Da:integer;
begin
Da:=strtoint(Edit1.Text);
while (Da mod 10 = 0) do
begin
Da:=Da div 10;
end;
showmessage(inttostr(da));
end;

[brightyang]

hmzgz81(哩翱)的办法可行

[brightyang]

不过如果是字符串可以考虑先将字符串反转,这样会少作很多循环