Hi there, All!

Переделал UpCase/LoCase и UpString/LoString/PrString, но осталась вещь,
которую я пока не знаю как переделать..

Const
  LettersOnly  : Set Of Char =
    ['A'..'Z', 'a'..'z', 'А'..'п', 'р'..'я',
     ' ', '.', ',', '*', '_', '-', '''', #240, #241, #247];

Честно говоря, у меня нет идей, как это сделать интернациональным. Разве
что как-нибудь так:

Const
  LettersOnly  : Set Of Char =
    [' ', '.', ',', '*', '_', '-', ''''];

{...}

Begin

{...}

  for i := 1 to 255 do
  begin
    if IsAlpha(Chr(i)) then
      LettersOnly := LettersOnly + Chr(i);
  end;

{...}

--- mailto:burning_shadow#mail.ru