Татьяна

Asked:2022-06-04 21:34:59 +0000 UTC2022-06-04 21:34:59 +0000 UTC 2022-06-04 21:34:59 +0000 UTC

删除所有不以数字结尾的行

请告诉我如何实施。从末尾没有数字的所有行中，这是必要的：

Primer123
Primer4454
Primer2
1Primer
2Primer
3Primer

输出结果：

Primer123
Primer4454
Primer2

也许你可以通过 Pos 或 PosEx 做一些事情。或者至少将想法推向哪个方向，在哪里阅读？

Best Answer

user176262

function EndsWithDigit(s: string): boolean;
begin
  result := Pos(s[Length(s)], '0123456789') > 0;
end;

if EndsWithDigit(S) then 
begin
  ... 
end;

相关问题