Цикл по unicode строке

[x11]

function OnlyDec(const s: String): string;
Var
 ch: char;
 i: integer;
begin
  for i := 0 to s.Length do
    if CharInSet(s[i], ['0'..'9']) then
      result := result + s[i];

или
  for i := low(s) to High(s) do
    if CharInSet(s[i], ['0'..'9']) then
      result := result + s[i];

или
  for ch in s do
    if ch in ['0'..'9'] then
      result := result + ch;

или
  for ch in s do
    if CharInSet(ch, ['0'..'9']) then
      result := result + ch;
end;

Почитал http://docwiki.embarcadero.com/RADStudio/Tokyo/en/String_Types_(Delphi) но до конца не понял.

Как всё-таки более правильно сделать цикл по строке?

Я склоняюсь к последнему варианту.

Изменено 12 июля, 2018 пользователем x11

[x11]

В общем, оказалось, что "'CharInSet' is deprecated: 'Use TCharHelper functionality'"

Правильно вот так:

uses System.Character;
...
...
  for ch in s do
    if ch.IsInArray(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then
      result := result + ch;

или "IsDigit" если нужны только цифры

  for ch in s do
    if ch.IsDigit then
      result := result + ch;

http://docwiki.embarcadero.com/Libraries/XE7/en/System.Character.IsDigit

Изменено 3 декабря, 2017 пользователем x11

[krapotkin]

гораздо проще 

'1234567890'.Contains(ch)

[x11]

В чем простота?

if ch.IsDigit then

vs

'1234567890'.Contains(ch)

В обоих случаях одна строка кода