Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Вниз
Есть в 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.
Все будет веселее, чем спорить о битых ссылках :(
Только, чур, честно - прислать именно оригинальную процедуру аналога трима. Сейчас не править, высылать, как есть.
Не развод.
:)
← →
RapTor © (2004-08-04 23:11) [10]Ну какой он быстрый может быть, через delete. Я просто прикольнулся. Хотя, если ненадо ничего удалять, быстрей.
← →
Sergey Kaminski © (2004-08-04 23:24) [11]RapTor © (04.08.04 23:11) [10]
Эх.
← →
Вася (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!
← →
Думкин © (2004-08-05 07:01) [13]> [12] Вася (05.08.04 02:28)
А ты прочитай [2] RapTor © (03.08.04 15:11) - речь там об ином. Удачи.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.034 c
