delphi 分别取数字部分

发布网友发布时间：2022-05-30 19:55

共2个回答

热心网友时间：2023-11-08 10:30

要转换为整数类型吗，还有其它详细要求吗，我觉得没有任何难度呀，例子代码如下：

var s:string;
begin
while not eof do
begin
readln(s);
while (s<>'') and ((s[i]<'0') or (s[i]>'9')) do delete(s,1);
writeln(s);
end;
end.

热心网友时间：2023-11-08 10:31

楼上的办法不错,不愧是一代宗师

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com