Как удалить пробелы

← →
novi (2004-02-21 18:54) [0]

Уважаемые мастера! Как удалить лишние пробелы из построчного текста с произвольным колличеством пробелов. Заранее благодарен.

← →
Игорь Шевченко © (2004-02-21 18:59) [1]

что есть "лишние пробелы" ?

← →
novi (2004-02-21 19:20) [2]

Т.е. идущие подряд не один, а более пробелов. Нужно оставить один.

← →
Игорь Шевченко © (2004-02-21 19:28) [3]

из RxLib

function DelSpace1(const S: string): string; var I: Integer; begin Result := S; for I := Length(Result) downto 2 do begin if (Result[I] = " ") and (Result[I - 1] = " ") then Delete(Result, I, 1); end; end;

← →
Max003 (2004-02-21 19:40) [4]

var text:string;
i: integer;

begin
text:="Это пробный текст";
for i :=0 to length(text) if text(i)=" " then delete(не помню параметры, посмотри в helpe)

Как удалить пробелы Найти похожие ветки