Скачать: CL | DM;

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

← →
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)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c