[morebeauty]

Подскажите, можно ли передать в TEdit.Text не переменную типа string, а указатель на такую переменную? Ну, то есть чтобы TEdit постоянно отображал значение нужной мне текстовой переменной и изменял его (при вводе текста).

[NumLock]

>>>>>>>нет

[Alegun]

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

...чтобы TEdit постоянно отображал значение нужной мне текстовой переменной и изменял его (при вводе текста).

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
MyTextVar:= Edit1.Text; // Edit1.Text при вводе равно MyTextVar
end;

и гденить в коде

Код:

...
MyTextVar:= 'Изменяюсь';
Edit1.Text:= MyTextVar; // индикатор
...

[angvelem]

А как же это?

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

... чтобы TEdit постоянно отображал значение нужной мне текстовой переменной и изменял его (при вводе текста).

[Alegun]

Оффтоп:

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

А как же это?

По-русски это значит: и нашим, и вашим

[lmikle]

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

Оффтоп:
По-русски это значит: и нашим, и вашим

вообще, в 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, который умеет с таким объектом работать. Получится вот такой биндинг

[Alegun]

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

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

Да, всё это интересно, но эмпирически, с познавательной стороны вопроса (правда слегка напоминает афоризм из мультика "Крылья, ноги, хвост" -"Лучше день потерять, а потом за пять минут долететь." :-) Больно затратно, а ТС похоже нужно всего лишь отслеживать изменения в содержании какой-то переменной в рантайме.
Проще создать процедуру-индикатор

Код:

procedure Ind(ds: string);
begin
Form1.Edit1.Text:= ds;
end;
...
Prm:=Prm+text;
Ind(Prm); // вызывается каждый раз после внесения изменений
...

И всё.

[lmikle]

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

Да, всё это интересно, но эмпирически, с познавательной стороны вопроса (правда слегка напоминает афоризм из мультика "Крылья, ноги, хвост" -"Лучше день потерять, а потом за пять минут долететь." :-) Больно затратно, а ТС похоже нужно всего лишь отслеживать изменения в содержании какой-то переменной в рантайме.
Проще создать процедуру-индикатор

Именно так. Т.е. для нормальной поддержки придется написать либо весь набор компонентов (поправить существующий), либо как-то извращаться с RTTI. Для простой задачи - явный оверхед. Но такое сделать вполне реально, что я и показал. Я бы покопал в сторону LiveBinding, но тогда это будет только для XE2/XE3. Лично мне это не нужно, хотя, писать тупой код "из переменной в контрол, потом обратно" действительно порядком надоело. Но тут может имеет смысл посмотреть в сторону написания какого-нить визарда.