Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
ВнизКак удалить пробелы Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c