1. Функции Trim, TrimLeft и TrimRight

Функция Trim удаляет пробелы в начале и в конце строки.

function Trim(const S: string): string;

где:

• s – исходная строка.

Например,

• Trim('   Новый год!   ') выведет 'Новый год!'.

Функция TrimLeft удаляет пробелы в начале строки.

function TrimLeft(const S: string): string;

где:

• s – исходная строка.

Например,

• TrimLeft('   Новый год!   ') выведет 'Новый год!   '.

Функция TrimRight удаляет пробелы в конце строки.

function TrimRight(const S: string): string;

где:

• s – исходная строка.

Например,

• TrimRight('   Новый год!   ') выведет '   Новый год!'.

2. Удаление других символов в начале и в конце строки

Вышеуказанные функции мы можем "усовершенствовать" сами. Например, удалять не пробелы, а другие символы. Для этого нам нужно написать следующие функции: TrimSym, TrimLeftSym и TrimRightSym (добавили часть слова Sym).

function TrimSym(s: string; sym: char = ' '): string;
begin
   while (s<>'') and (s[1]=sym) do
      Delete(s, 1, 1);
   while (s<>'') and (s[Length(s)]=sym) do
      Delete(s, Length(s), 1);
   Result:=s;
end;

где:

• s – исходная строка;
• sym – удаляемый символ.

Например,

• TrimSym('... в продолжение ...', '.') выведет ' в продолжение '.

function TrimLeftSym(s: string; sym: char = ' '): string;
begin
   while (s<>'') and (s[1]=sym) do
      Delete(s, 1, 1);
   Result:=s;
end;

где:

• s – исходная строка;
• sym – удаляемый символ.

Например,

• TrimLeftSym('... в продолжение ...', '.') выведет ' в продолжение ...'.

function TrimRightSym(s: string; sym: char = ' '): string;
begin
   while (s<>'') and (s[Length(s)]=sym) do
      Delete(s, Length(s), 1);
   Result:=s;
end;

где:

• s – исходная строка;
• sym – удаляемый символ.

Например,

• TrimRightSym('... в продолжение ...', '.') выведет '... в продолжение '.