Не могу найти место не запрограммированного изменения TEdit

[KBO]

Доброе время суток форумчене,
Такая штука,
Есть код, который меняет в Edit.Text значение (в ходе работы программы присваивает другое значение). Но когда код отработал, значение в TEdit остается прежним.
Поясню:
При отработке кода (режим «step over»), я в «Watcher» наблюдаю изменения Edit.Text, которые мне нужны. Пробежался поиском по всему проекту, расставил точки прерывания на всех строках «Edit.Text :=». Но при отработке кода, уже после нужного изменения TEdit, я не на один расставленный breakpoint не попадаю. Но при этом, уже после полной (окончательной) отработки, текст в TEdit остается старым (т.е. каким был до изменения).
Если по логике текст «Edit.Text» где-то меняется на старый, но я не могу понять где?
Как бы мне определить это загадочное место изменения «Edit.Text»?

Заранее спасибо за ответ.

[Stilet]

Код глянуть покажешь?

[Serge_Bliznykov]

код, да, надо посмотреть.
значение контрола ещё может меняться через обработчик события (через Sender)
через FindComponent и ещё множеством других "хитрых" способов.

[KBO]

Вот код, который меняет значение в Edit (Он заменяет часть символов, на звездочки):

procedure TFMain.SHOW_SYMBOL(ALang: Language; ANumSymb: integer);
{show/hidden char in "edit" word}
var
  LString: string;
  LLength, LAdd: integer;
begin
  LString := '';
  case ALang of
    Eng:
        begin
          if ANumSymb >=0 then
          begin
            LLength := length(ibdsWord.FieldByName('EW1').AsString);
            LString := ibdsWord.FieldByName('EW1').AsString;
            Delete(LString, ANumSymb+1, 1000);
            edEngWord.Text := LString;
            for LLength := ANumSymb+1 to LLength do
              edEngWord.Text := edEngWord.Text + '*';

            if sbActivization.Down = true then
            begin
              if sbShow2charEng.Down then
                LAdd := 1;
              if sbShow3charEng.Down then
                LAdd := 2;
              if (sbShow2charEng.Down
                or sbShow3charEng.Down) then
                ExecQuery(Format(C_upd_add_total_repeat, [ibdsWord.FieldByName('TOTAL_REPEAT').AsInteger+LAdd,
                                                          ibdsWord.FieldByName('ID').AsInteger]), Exec_rec, 0);
            end;
            exit;
          end
          else
          begin
            Delete(LString, 0, 1000);
            edEngWord.Text := ibdsWord.FieldByName('EW1').AsString;
            exit;
          end;
          STATISTIC_WORDS;
        end;
    Rus:
        begin
        end;
  end;
end;

После последного End, в "Watch" Edit.Text отображается все как нужно

[Stilet]

Этот кусок не говорит о том, где происходит смена.
Показывай полностью.

[KBO]

Сообщение от Stilet

Этот кусок не говорит о том, где происходит смена.
Показывай полностью.

А строчки

edEngWord.Text := edEngWord.Text + '*';

тут я произвожу замену, какую я хочу,
другая замена происходит в

procedure TFMain.dbedEngWordChange(Sender: TObject);
begin
  edEngWord.Text := dbedEngWord.Text;
end;

ну это не о чем не говорит

больше я "звездочки" не где не присваиваю


полностью код я не могу выложить, он в 1997 строк (основной модуль)

Да, основное "эта штука перестает работать после нескольких раз правильной отработки", и продолжается до перезагрузки приложения

[KBO]

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

edEngWord.PasswordChar := '*';

и тоды делай с "edEngWord.Text" шо хош...

фух, и что основное полторы недели непроявлялось, "ЗАРАЗА" :-) не всегда пользуюсь этой штукой

Интересно, что,
то что даже если поставить breakpoint после строки

edEngWord.PasswordChar := '*';

"Watch" отображает строку всеравно как мне нужно (т.е. н-р: "edEngWord.Text 's*****'")

[Smitt&Wesson]

Сообщение от KBO

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

Парня этот код, явно - "достал" .

[Serge_Bliznykov]

edEngWord.PasswordChar := '*';

Watch" отображает строку все равно как мне нужно

верно. свойство "PasswordChar" нужно, чтобы скрыть отображение (как при вводе пароля). А внутри хранится там всё как обычно.

Тему закрываем?

[KBO]

Сообщение от Serge_Bliznykov

Тему закрываем?

Да, конечно закрываем.