Есть в delphi функция удаления пробелов в строке слева и справа?

← →
vic (2004-08-03 08:31) [0]

см сабж
такая как ltrim и rtrim в sql?

← →
vic (2004-08-03 08:42) [1]

нашла, извиняюсь...

← →
RapTor © (2004-08-03 15:11) [2]

А действительно как? Удалить пробелы в начале и в конце, оставив в покое спец символы?
Я обычно через system.delete делаю.

← →
Думкин © (2004-08-03 15:12) [3]

> [2] RapTor © (03.08.04 15:11)

Trim

← →
RapTor © (2004-08-03 15:14) [4]

Дык и спец тоже полетят...

← →
Sergey Kaminski © (2004-08-03 15:16) [5]

RapTor © (03.08.04 15:14) [4]
> Дык и спец тоже полетят...

см. SysUtils.pas

function Trim(const S: string): string; var I, L: Integer; begin L := Length(S); I := 1; while (I <= L) and (S[I] <= " ") do Inc(I); if I > L then Result := "" else begin while S[L] <= " " do Dec(L); Result := Copy(S, I, L - I + 1); end; end;

← →
Anatoly Podgoretsky © (2004-08-03 19:17) [6]

Вот эту функцию и взять, заменив <= на =

← →
RapTor © (2004-08-03 22:47) [7]

Вообщето да. Я в SysUtils не смотрел просто глянул доку и понял что что-то в ней лишнее. В результате изобрел велосипед.

← →
RapTor © (2004-08-04 17:36) [8]

Забыл добавить. Быстрый велосипед.

← →
Sergey Kaminski © (2004-08-04 19:34) [9]

Код "быстрого велосипеда" в студию! :)

Обязуюсь протестить присланный код vs Исправленный Trim.

Результаты выложу сюда минут через 40.

Все будет веселее, чем спорить о битых ссылках :(

Только, чур, честно - прислать именно оригинальную процедуру аналога трима. Сейчас не править, высылать, как есть.

Не развод.
:)

Ну какой он быстрый может быть, через delete. Я просто прикольнулся. Хотя, если ненадо ничего удалять, быстрей.

← →
Вася (2004-08-05 02:28) [12]

Ну какие в попу функции вы пишите! Зачем изобретать велосипед, когда есть три стандартные функции:

Trim(const S: string):string Удаляет из строки S начальные и завершающие пробелы и управляющие символы.
TrimLeft(const S: string):string Удаляет из строки S начальные пробелы и управляющие символы.
TrimRight(const S: string):string Удаляет из строки S завершающие пробелы и управляющие символы.

Почитайте Help!

Есть в delphi функция удаления пробелов в строке слева и справа? Найти похожие ветки