[Alexs55]

В одной из книг прочитал, что указатель может ссылаться на любой объект.
Решил попробовать

Код:

var
  Name : PString;
........
........
........
  Name := @Edit1.Text;   //[DCC Error] U_RegTable.pas(91): E2036 Variable required

В комментарии то, куда послал меня компилятор на этой строке.
Причин ошибки скорее всего может быть две.
1. Ошибка в конструкции оператора.
2. Указатель может ссылаться на объект, но ни на его часть.
А может быть ещё что то третье? Помогите разобраться.

[poli-smen]

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

В одной из книг прочитал, что указатель может ссылаться на любой объект.
Решил попробовать

Код:

var
  Name : PString;
........
........
........
  Name := @Edit1.Text;   //[DCC Error] U_RegTable.pas(91): E2036 Variable required

В комментарии то, куда послал меня компилятор на этой строке.
Причин ошибки скорее всего может быть две.
1. Ошибка в конструкции оператора.
2. Указатель может ссылаться на объект, но ни на его часть.
А может быть ещё что то третье? Помогите разобраться.

Edit1.Text - это свойство. Нельзя получать указатель на свойство.

[Alexs55]

Судя по Вашему ответу, создать указатель на данный текст невозможно?

[Pyro]

http://www.delphisources.ru/forum/sh...85&postcount=5
но код там в общем страшный, можно взять только суть

[poli-smen]

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

Судя по Вашему ответу, создать указатель на данный текст невозможно?

На текст возможно, на свойство нельзя. Чтобы создать указатель на текст нужно его сначала куда-то сохранить (в переменную). Так как в свойстве данные не хранятся, то и указателя на эти данные невозможны.

[robt]

Сообщение от poli-smen

Так как в свойстве данные не хранятся, то и указателя на эти данные невозможны.

свойства бывают 2х типов, либо результат функции либо переменная

[~TB~]

Не думаю, что указатели подходят для решения поставленной тобой задачи. обычно в таких случаях юзают:

Код:

function GetText(Edit: TEdit): string;
begin
  Result:='N/A';
  if Assigned(Edit) then
   Result:=Edit.Text;
end;

...

var
  Name : string;

begin
  Name:=GetText(Edit1);

...

И помни про ООП - пихай почти ВСЕ в классы!