请教截取字符串的问题

[chdaner]

有十六进制：00004E20

怎么做能截取0 之后的值,即4e20

以上只是个例子，开头 0的个数不固定，

[lhy]

循环如果是零就继续

[无条件为你]

function fmt(const s:string):string;
var i:integer;
begin
for i:=1 to length(s) do
if s[i]<>'0' then break;
result:=copy(s,i,length(s)-i+1);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(fmt('0000000000004E20'));
end;

[hjkto]

学习

[dd_zhouqian]

procedure TForm1.Button1Click(Sender: TObject);
  var  str:string;
begin
  str := '$'+'00004E20';
  ShowMessage(IntToStr(StrToIntdef(str,0)));
end;

[QQ286251099]

4楼 是来打击 mwy654321 的
哈哈

[ffwin]

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str := '$'+'00004E20';
ShowMessage(IntToHex(StrToIntdef(str,0),2));
end;

[suuuu]

[Quote=引用 2 楼 mwy654321 的回复:]
function fmt(const s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do
    if s[i] <>'0' then break;
  result:=copy(s,i,length(s)-i+1);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(fmt('0000000000004E20'));
end;
[/Quote]
up~

[无条件为你]

[Quote=引用 5 楼 qq286251099 的回复:]
4楼 是来打击  mwy654321 的
哈哈
[/Quote]

他打击我什么？他的方法并不行，除非再用format格式后输出16进制。

你试下就知道区别了。别瞎说。

[wooden954]

既然开头的0的个数不确定，那么你取的数据从末尾算，是不是固定长度的呢？如果是的话，那么从末尾截取不就行了？

[wooden954]

还有，如果你只是需要取它的真实数值，那么你完全可以不必截取，直接转换为整型就可以了。
如4楼和6楼的方法。

[lyhoo163]

up

[haochin]

吵清楚了没有？
我在等正确答案呢。

[kingswonder]

[Quote=引用 2 楼 mwy654321 的回复:]
function fmt(const s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do
    if s[i] <>'0' then break;
  result:=copy(s,i,length(s)-i+1);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(fmt('0000000000004E20'));
end;
[/Quote]

正解，因其为问题解决之正途，应用之广泛性，
可以举一反三，推广到其它字符串操作。