Диапазоны

[Kronos913]

If c in ['0'..'9'] then {что-то там}

с : char

Вопрос: при таком коде переменная "с" будет сверяться только с крайними значениями диапазона и по ним проверят попадает ли она в диапазон, или же будет сверять по очереди с каждым элементом диапазона?

Какой код оптимальнее?

If (c<'0') or (c>'9') then begin
{Что-то там 2}
end else begin
{Что-то там 1}
end

ИЛИ

If c in ['0'..'9'] then begin
{Что-то там 1}
end else begin
{Что-то там 2}
end

[digitalis]

Так какие проблемы? Прописал тот и другой вариант и посмотрел сгенерированный ассемблерный текст. (View -> Debug Windows -> CPU)
У меня на компе Дельфи нет, потому глянуть не могу.

[BDA]

var
  c: Char;
begin
  c := '1';
  if (c >= '0') and (c <= '9') then
  begin
    ShowMessage('1');
  end;
  if c in ['0'..'9'] then
  begin
    ShowMessage('2');
  end;
end;

Unit1.pas.31: if (c >= '0') and (c <= '9') then
0045268B 80FB30           cmp bl,$30
0045268E 720F             jb +$0f
00452690 80FB39           cmp bl,$39
00452693 770A             jnbe +$0a
Unit1.pas.33: ShowMessage('1');
00452695 B8BC264500       mov eax,$004526bc
0045269A E8E58DFDFF       call ShowMessage
Unit1.pas.35: if c in ['0'..'9'] then
0045269F 80C3D0           add bl,$d0
004526A2 80EB0A           sub bl,$0a
004526A5 730A             jnb +$0a
Unit1.pas.37: ShowMessage('2');
004526A7 B8C8264500       mov eax,$004526c8
004526AC E8D38DFDFF       call ShowMessage

Как видно из асм-кода, сверяется не с каждым элементом диапазона. Код с диапазоном удобнее, если требуется сравнивать со сложным диапазоном. По скорости работы не подскажу, не нашел сколько тактов требуется на ту или иную инструкцию. С другой стороны, действительно ли этот код будет узким местом, чтобы его максимально оптимизировать. Выиграете пару тактов, а в другом месте какая-нибудь функция просто так дергается 1000 раз.