Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 724

•  TDictionary Custom Sort  6 725

•  Fast Watermark Sources  6 509

•  3D Designer  9 447

•  Sik Screen Capture  6 840

•  Patch Maker  7 289

•  Айболит (remote control)  7 232

•  ListBox Drag & Drop  6 095

•  Доска для игры Реверси  97 850

•  Графические эффекты  7 408

•  Рисование по маске  6 705

•  Перетаскивание изображений  5 561

•  Canvas Drawing  5 943

•  Рисование Луны  5 720

•  Поворот изображения  5 181

•  Рисование стержней  3 786

•  Paint on Shape  2 967

•  Генератор кроссвордов  3 908

•  Головоломка Paletto  3 106

•  Теорема Монжа об окружностях  3 915

•  Пазл Numbrix  2 579

•  Заборы и коммивояжеры  3 372

•  Игра HIP  2 314

•  Игра Go (Го)  2 213

•  Симулятор лифта  2 624

•  Программа укладки плитки  2 206

•  Генератор лабиринта  2 724

•  Проверка числового ввода  2 360

•  HEX View  2 699

•  Физический маятник  2 374

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Удаление лишних пробелов в строке



Автор: Артем

{ **** UBPFD *********** by delphibase.endimus.com ****
>> удаление лишних пробелов в строке

удаляет из строки лишние пробелы без использования всяких указателей и т.д.

Зависимости: стандартные модули
Автор:       Артем, boss1999@mail.ru, москва
Copyright:   собственное описание (Артем)
Дата:        24 сентября 2003 г.
***************************************************** }

{процедура удаления лишних пробелов в строке (см. function Sha_SpaceCompress)}
var
  c, i: integer;
  stt, st, st1: string;
begin
  c := 0;
  st := edit1.Text;

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

    stt := copy(st, i, 1);
    if (stt = ' ') 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 <> ' ') then
    begin
      c := 0;
      st1 := st1 + stt;
    end
  end;

  edit2.text := st1;
end;







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте