|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
TEdit. Передать указатель
Подскажите, можно ли передать в TEdit.Text не переменную типа string, а указатель на такую переменную? Ну, то есть чтобы TEdit постоянно отображал значение нужной мне текстовой переменной и изменял его (при вводе текста).
|
#2
|
||||
|
||||
>>>>>>>нет
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Edit1Change(Sender: TObject); begin MyTextVar:= Edit1.Text; // Edit1.Text при вводе равно MyTextVar end; Код:
... MyTextVar:= 'Изменяюсь'; Edit1.Text:= MyTextVar; // индикатор ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#4
|
||||
|
||||
А как же это?
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
||||
|
||||
Оффтоп:
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
|||
|
|||
Цитата:
вообще, в XE3 появилось что-то типа LiveBinding... может это в ту сторону (сам не проверял, не знаю). Но даже без этого, можно, конечно, извратиться, но придется делать свой тип и компонент. В компоненте надо сделать ссылку на тип и, соответсвенно, при изменении данных в поле ввода, писать в указанную переменную (если назначена). Ну а тип можно сделать типа такого: Код:
type TOnStringChange = procedure (Sender : TObject; const Value : String) of object; TBindedString = class private FOnChange : TOnStringChange; FData : String procedure Set(Value : String); public constructor Create; virtual; property Data : String read FData write Set; default; property OnChnage : TOnStringChange read FOnChange write FOnChange; end; implementation constructor TBindedString.Create; begin inherited; FData := ''; FOnChnage := Nil; end; procedure TBindedString.Set(Value : String); begin If FData <> Value Then Begin FData := Value; If Assigned(FOnChange) Then FOnChange(Self,FData); End; end; что-то типа так. Ну и теперь надо сделать наследника TEdit, который умеет с таким объектом работать. Получится вот такой биндинг |
#7
|
||||
|
||||
Цитата:
Проще создать процедуру-индикатор Код:
procedure Ind(ds: string); begin Form1.Edit1.Text:= ds; end; ... Prm:=Prm+text; Ind(Prm); // вызывается каждый раз после внесения изменений ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#8
|
|||
|
|||
Цитата:
Именно так. Т.е. для нормальной поддержки придется написать либо весь набор компонентов (поправить существующий), либо как-то извращаться с RTTI. Для простой задачи - явный оверхед. Но такое сделать вполне реально, что я и показал. Я бы покопал в сторону LiveBinding, но тогда это будет только для XE2/XE3. Лично мне это не нужно, хотя, писать тупой код "из переменной в контрол, потом обратно" действительно порядком надоело. Но тут может имеет смысл посмотреть в сторону написания какого-нить визарда. |