Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как поместить графический элемент в ListBox
   Категория: Компоненты
  Дата изменения файла
   Категория: Файловая система
  Округление времени до 5 мин
   Категория: Базы данных
  Программно скрыть MainMenu
   Категория: Компоненты
  Удалить пробелы в начале и конце
   Категория: Текст и строки
  Добавить данные в EXE файл и получить их
   Категория: Файловая система
  Удалить свой же exe-шник
   Категория: Приложение
  Получить версию программы VersionInfo
   Категория: Приложение

Новинки в дизайне интерьера https://design-guru.moscow
Delphi - База Знаний: Удалить пробелы в начале и конце

  << Вернуться к Содержанию  

function DelSpaces(const Search: string): string;
const BlackSpace = [#33..#126];
var Index: byte;
begin
  Index := 1;
  while (Index <= Length(Search)) and not (Search[Index] in BlackSpace) do
    Index := Index + 1;
  Result := Copy(Search, Index, 255);
  Index := Length(Result);
  while (Index > 0) and not (Result[Index] in BlackSpace) do
    Index := Index - 1;
  Result := Copy(Result, 1, Index);
end;
  << Вернуться к Содержанию