|
|
Регистрация | << Правила форума >> | 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. Лично мне это не нужно, хотя, писать тупой код "из переменной в контрол, потом обратно" действительно порядком надоело. Но тут может имеет смысл посмотреть в сторону написания какого-нить визарда. |
#9
|
|||
|
|||
А обязательно это именно переменная? А нельзя эту строку сделать свойством? И сделать прямо так
Код:
property MyString :string read GetMyString Write SetMyString; function TForm1.GetMyString:String; begin Result:=Edit1.Text; end; procedure TForm1.SetMyString(const Value:String); begin Edit1.Text:=Value; end; |
#10
|
||||
|
||||
если в TEdit и String всегда одно и тоже значение, то кто-то лишний, либо TEdit, либо String. если строка меняется пользователем, то лишний String.
Пишу программы за еду. __________________ |
#11
|
||||
|
||||
Цитата:
Код:
... MyTextVar:= 'Изменяюсь'; Edit1.Text:= MyTextVar; // индикатор ... Код:
procedure TForm1.Edit1Change(Sender: TObject); Вот мне бы подошло событие на изменение переменной. Вопрос, как создать сие событие, если это возможно? Можно было бы, конечно, не использовать отдельную стринговую переменную, а использовать напрямую Edit1.Text, но здесь возникли бы неудобства. Например, не всегда он должен отображать эту переменную. Иногда другую. То есть при изменении переменной каждый раз еще и условие должно выполняться. А порой и не одно. То есть в предложенном Код:
... MyTextVar:= 'Изменяюсь'; Edit1.Text:= MyTextVar; // индикатор ... Код:
... MyTextVar:= 'Изменяюсь'; if Condition1 then if Condition2 then Edit1.Text:= MyTextVar; // индикатор ... Ну да и ладно. Если это великая заморочь, то не стоит оно того. Буду копипастить код. |
#12
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin if Condition1 then Edit1.Text:= MyTextVar1; if Condition2 then Edit1.Text:= MyTextVar2; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#13
|
||||
|
||||
Цитата:
|
#14
|
||||
|
||||
Использовать таймер - это совсем уж изврат.
Можно сделать что-то типа такого: Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSomeType = class private FEdit: TEdit; function GetCaption: string; procedure SetCaption(const Value: string); public property Caption:string read GetCaption write SetCaption; property EditObject:TEdit read FEdit write FEdit; end; TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } FSomeObject:TSomeType; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TSomeType } function TSomeType.GetCaption: string; begin if FEdit<>nil then Result:=FEdit.Text; end; procedure TSomeType.SetCaption(const Value: string); begin if FEdit<>nil then FEdit.Text:=Value; end; procedure TForm1.Button1Click(Sender: TObject); begin FSomeObject.Caption:=Button1.Caption; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FSomeObject.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin FSomeObject:=TSomeType.Create; FSomeObject.EditObject:=Edit1; end; end. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#15
|
||||
|
||||
где-то ошибка в техзадании:
Цитата:
Цитата:
Пишу программы за еду. __________________ |