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



Вопросы
  Перекодировка текста DOS-Windows-Koi8
   Категория: Текст и строки
  Округление в большую сторону
   Категория: Математика
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Подсветить часть текста в DBGrid
   Категория: Компоненты
  Как нарисовать календарь
   Категория: Текст и строки
  Вывод текста на канву Canvas
   Категория: Компоненты
  Узнать установлена ли BDE
   Категория: Базы данных
  Показать удаленные записи в DBase
   Категория: Базы данных
  Получить типы полей таблицы
   Категория: Базы данных
  Компонент SpeedButton
   Категория: Компоненты

Delphi - База Знаний: Удалить лишние символы из строки

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

function RemoveMusor(What: string; Where: string) : string;
var
  c, i: integer;
  stt, st, st1: string;
begin
  c := 0;
  st := Where;

  for i := 1 to Length(st) do
  begin

    stt := copy(st, i, 1);
    if (stt = What) and (c >= 1) then
    begin
      st1 := st1;
      c := c + 1;
    end
    else if (stt = ' ') and (c = 0) then
    begin
      c := c + 1;
      st1 := st1 + stt;
    end
    else if (stt <> What) then
    begin
      c := 0;
      st1 := st1 + stt;
    end
  end;
  result := st1;
end;
  << Вернуться к Содержанию