function DelTop0(mStr: string): string;
begin
Result := mStr;
while Copy(Result, 1, 1) ='0' do Delete(Result, 1, 1);
end;
begin
Result := mStr;
while Copy(Result, 1, 1) ='0' do Delete(Result, 1, 1);
end;
调试欢乐多
begin
Edit1.Text := DelTop0(Edit2.Text);
end;
source:string;
object:string;
begin
source:='000000123456';
object:=inttostr(strtoint(source))
end;