BCB6. AnsiString::Delete что-то не работает как описано.

[RXL]

Хочу удалить подстроку из переменной типа AnsiString (это борландовский C++ аналог для паскалевских строк).

В доке описано так:

Removes a specified number of characters from the string.

AnsiString& __fastcall Delete(int index, int count);

Description
Delete modifies the AnsiString to remove count characters from the string beginning with the character at index, where 1 is the index of the first character. It returns the resulting modified string (*this).
If index is larger than the length of the AnsiString or less than 1, no characters are deleted.
If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than 0, no characters are deleted.

Делаю так:

Код:

Edit1->Text = "abc";
Edit1->Text.Delete(3, 1);

В итоге, в Edit1->Text по прежнему "abc".

Кто-либо сталкивался с этим?

У меня задача перебирать символы с конца строки, проверять по некому условию и удалять если проверка не пройдена.

[Джон]

Ром, а индекс случайно не с нуля начинается? Я понимаю, что там в хелпе стоИт, но попробуй.

[Вад]

Первая мысль: может, у них индекс zero-based?
Джон опередил

[Джон]

Ааааа, я кажется понял:

Код:

Edit1->Text = "abc";
Edit1->Text = Edit1->Text.Delete(3, 1);

Такая же беда как до-диезе. Те скорей всего ф-я не изменяет сам объект, а возвращает изменённую строку:

"It returns the resulting modified string (*this)."

[Джон]

Чёт хелп какой-то непонятный... "If count is less than 0, no characters are deleted." А если он РАВЕН 0? Сколько тогда будет удалено?

[Джон]

Джон опередил

Да вроде упорно настаивают, что это не так:

"where 1 is the index of the first character" + "If index is larger than the length of the AnsiString or less than 1, no characters are deleted"

[RXL]

Индекс у них точно с 1 - так в остальных методах AnsiString практикуется.
Присваивать результат обратно не гуд, т.к. TEdit при этом генерит событие OnChange, в котором я и нахожусь Кстати, в последующих рекурсивных вызовах OnChange значение Text такое же - неизменное.

It returns the resulting modified string (*this).

Мой английский слабоват, но даже со словарем я понимаю это однозначно: возвращает ссылку на себя.

И так: длина - 3, индекс - последовательно от 3 к 1 в цикле, count - 1. Не удалено ни одного символа.

Странно особенно то, что этот код я написал года два назад и тогда я его протестировал. BCB6 у меня тот же самый, что и два года назад.

Насчет кривизны документации: подтверждаю - очень кривая. (c) 2002...

[Джон]

Ром, по идее всё правильно. Смотри, если контрол виндовский, значит получать/ставить текст можно только с помощью SendMessage( WM_GETWINDOWTEXT/WM_SETWINDOWTEXT, ...

Поэтому непосредственного изменения текста в контроле сделать нельзя. А "паразитную" обратную связь затыкать флажком.

зы Попробуй просто ради интереса покажи в дебуггере результат удаления.

[RXL]

TEdit в своей основе конечно виндовый контрол, но оболочка у него ООП и используются расширения Борланда - prperties - активные свойства. Edit1->Text возвращает мне ссылку на AnsiString, содержащую текст контрола.

Пока думаю. Странно все это. Опять лепить заплатки...
Может просто другой метод найдется? Мне нужно удалить все недопустимые символы в случае вставки текста посредством Ctrl-V.

[RXL]

Дело оказалось не в AnsiString, а в "AnsiString TEdit::Text". Видимо это свойство возвращает не ссылку, а копию.
И пришлось добавить блокировку рекурсивного вызова в событии.

Код:

void __fastcall TfrmTextInput::edTextChange(TObject *Sender)
{
    TEdit *ed = dynamic_cast<TEdit*>(Sender);
    AnsiString tmp;

    if (!digitsOnly)
        return;

    if (locked_onchange)
        return;

    locked_onchange = true;
    tmp = ed->Text;

    for (int i = tmp.Length(); i; i--)
        if (tmp.c_str()[i - 1] < '0' || tmp.c_str()[i - 1] > '9')
            tmp.Delete(i, 1);

    ed->Text = tmp;
    locked_onchange = false;
}