| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть в delphi функция удаления пробелов в строке слева и справа? [D7, MSSQL]
vic © (2004-08-03 08:31:00)см сабж
такая как ltrim и rtrim в sql?
Думкин (2004-08-05 07:01:00) [1]> [12] Вася (05.08.04 02:28)
А ты прочитай [2] RapTor © (03.08.04 15:11) - речь там об ином. Удачи.
Вася (2004-08-05 02:28:00) [2]Ну какие в попу функции вы пишите! Зачем изобретать велосипед, когда есть три стандартные функции:
Trim(const S: string):string Удаляет из строки S начальные и завершающие пробелы и управляющие символы.
TrimLeft(const S: string):string Удаляет из строки S начальные пробелы и управляющие символы.
TrimRight(const S: string):string Удаляет из строки S завершающие пробелы и управляющие символы.
Почитайте Help!
Sergey Kaminski (2004-08-04 23:24:00) [3]RapTor © (04.08.04 23:11) [10]
Эх.
RapTor (2004-08-04 23:11:00) [4]Ну какой он быстрый может быть, через delete. Я просто прикольнулся. Хотя, если ненадо ничего удалять, быстрей.
Sergey Kaminski (2004-08-04 19:34:00) [5]Код "быстрого велосипеда" в студию! :)
Обязуюсь протестить присланный код vs Исправленный Trim.
Результаты выложу сюда минут через 40.
Все будет веселее, чем спорить о битых ссылках :(
Только, чур, честно - прислать именно оригинальную процедуру аналога трима. Сейчас не править, высылать, как есть.
Не развод.
:)
RapTor (2004-08-04 17:36:00) [6]Забыл добавить. Быстрый велосипед.
RapTor (2004-08-03 22:47:00) [7]Вообщето да. Я в SysUtils не смотрел просто глянул доку и понял что что-то в ней лишнее. В результате изобрел велосипед.
Anatoly Podgoretsky (2004-08-03 19:17:00) [8]Вот эту функцию и взять, заменив <= на =
Sergey Kaminski (2004-08-03 15:16:00) [9]
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;
RapTor (2004-08-03 15:14:00) [10]Дык и спец тоже полетят...
Думкин (2004-08-03 15:12:00) [11]> [2] RapTor © (03.08.04 15:11)
Trim
RapTor (2004-08-03 15:11:00) [12]А действительно как? Удалить пробелы в начале и в конце, оставив в покое спец символы?
Я обычно через system.delete делаю.
vic (2004-08-03 08:42:00) [13]нашла, извиняюсь...
| |
