VPF::Функция Trim - Форум программистов

Scrip

Дата 15.5.2004, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

В чем разница между строками:
x:=StrToInt(Trim(Edit1.Text));

и

x:=StrToInt(Edit1.Text);

1 и 2 вариант работает без глюков (пока

) и результат одинаковый.

NiJazz

Дата 15.5.2004, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Функция Trim убирает лишние пробелы. Например:

Код


var s: string;
Begin
  s := '     Hello!           ';
  ShowMessage(s); // выведет '     Hello!           '
  ShowMessage(Trim(s)); // выведет 'Hello!'
End;

Добавлено @ 14:15
Используй эту функцию, если тебе нужно приводить в порядок введённые в поля данные.

Scrip

Дата 15.5.2004, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

Да это я и сам пронаблюдал, а за совет спасибо

Меня интересует тип не string, a integer.
При преобразовании из строкового в целочисленный тип пробелы удаляются автоматически. Так?
Т.е функция Trim действует только на строковый тип данных.
//Если так, то я затупил и на форум это тему вообще не надо было помещать

_hunter

Дата 15.5.2004, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

не совсем

StrToInt() удаляет только лидирующие пробелы, а Trim() удаляет и лидирующие и следующие + управляющие символы
понятно что Trim() работает только со строками (описание):
Trim(constAnsiString S)

Это сообщение отредактировал(а) _hunter - 15.5.2004, 16:36

--------------------

Tempora mutantur, et nos mutamur in illis...

Scrip

Дата 15.5.2004, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

_hunter
Все ясно.

-Сергей-

Дата 23.5.2004, 06:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1

Как я понял Trim удаляет "лишние" пробелы в начале и конце строки.
А есть функция, удаляющая все пробелы в строке?

--------------------

Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".

-Сергей-

Дата 23.5.2004, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1

Всё ненадо. Нашел в RxLIB функцию DelSpace.

--------------------

x77

Дата 23.5.2004, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

-Сергей-, как вы достали со своими рх-либами....

да всё давно есть: StringReplace.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

-Сергей-

Дата 23.5.2004, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1

Первый раз написал и уже достал?

--------------------

x77

Дата 23.5.2004, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

-Сергей-, сорри

нет, не именно ты. а рахилиб

всё надо делать руками. стреляйте меня, но надо. чужое - не своё.

--------------------

Guest

Дата 25.5.2004, 11:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот как работает трим.

Код


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;

Посмотреть можно в SysUtils.pas

Akella

Дата 28.5.2004, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

x77 я с тобой согласен. Хотябы такие мелочи, как удаление пробелов в стрке...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »