W
wglifs
Unregistered / Unconfirmed
GUEST, unregistred user!
有一字符串000000000Z1902C90，现在需将前面的0去除,要得到0后面的字符串（说明：字符串的总长度不会变，但是0的个数会变，如示例字符在下次当中可能变成00002580CZ1902C90）。有什么好的函数或方法可以解决吗？
N
nnpxxiao
Unregistered / Unconfirmed
GUEST, unregistred user!
真想有人解决问题!期待```[
]
]
S
steven7581
Unregistered / Unconfirmed
GUEST, unregistred user!
遍历字符串就可以的啊，只要找到第一个字符不是'0'的就停止
F
fuxin198311
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var k:string;
begin
k:=(Copy('000000000Z1902C90',10,9));
showmessage('得到的结果为'+k);
end;
已通过测试 不知你是要这样吗 楼主也不给点分呀
var k:string;
begin
k:=(Copy('000000000Z1902C90',10,9));
showmessage('得到的结果为'+k);
end;
已通过测试 不知你是要这样吗 楼主也不给点分呀
F
fuxin198311
Unregistered / Unconfirmed
GUEST, unregistred user!
不好意思哟 没看到你给分了 对不起了
W
wglifs
Unregistered / Unconfirmed
GUEST, unregistred user!
fuxin198311,不是这样的，上面已经讲过，字符串中0的个数是不确定的，有可能是10个，也有可能一个都没有。
I
icc
Unregistered / Unconfirmed
GUEST, unregistred user!
写个函数易如反常
{字符串: 删除前导0}
function String_CutPreZero(const S: string): string;
var
i: Integer;
C: Char;
begin
Result := S;
for i := 0 to Length(Result) - 1 do
begin
C := S[i + 1];
if C = '0' then
begin
Delete(Result, 1, 1);
end else
begin
Break;
end;
end;
end;
{字符串: 删除前导0}
function String_CutPreZero(const S: string): string;
var
i: Integer;
C: Char;
begin
Result := S;
for i := 0 to Length(Result) - 1 do
begin
C := S[i + 1];
if C = '0' then
begin
Delete(Result, 1, 1);
end else
begin
Break;
end;
end;
end;
W
wglifs
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.