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

[解决办法]
一个比较笨的算法:
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;
[解决办法]
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(哩翱)的办法可行