Удалить все строки в конце которых нет цифр

Question

Подскажите как реализовать. Нужно из строк все в которых в конце нет цифры:

Primer123
Primer4454
Primer2
1Primer
2Primer
3Primer

На выходе результат:

Primer123
Primer4454
Primer2

Может можно как то через Pos или PosEx сделать. Или хотя бы натолкните на мысль в какую сторону смотреть, где почитать ?

Answer 1

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

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