Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Pointe To PChar?   Найти похожие ветки 

 
Freezer ©   (2002-06-18 12:44) [0]

// Форма родитель TxpBaseForm
...
procedure LinksBarItemClick(Sender: TObject; Item: TdxSideBarItem);
function xpBaseGetExtendedData: Pointer; virtual;
...
function TxpBaseForm.xpBaseGetExtendedData: Pointer;
begin
Result := nil;
end;

procedure TxpBaseForm.LinksBarItemClick(Sender: TObject; Item: TdxSideBarItem);
var
Data: String;
begin
...
// !!! показывается обрубок от строки почему-то?
ShowMessage(PChar(xpBaseGetExtendedData));
// showmessage написал в целях отладки ...
xpCallLink(Item.Tag, Data, xpBaseGetExtendedData);
end;

// Форма потомок TxpBaseForm
...
function xpBaseGetExtendedData: Pointer; override;
...
function ThcaPointForm.xpBaseGetExtendedData: Pointer;
begin
Result := inherited xpBaseGetExtendedData;
Result := PChar(dsPoint.FieldByName("POINT_ACCOUNTNUM").AsString);
end;
...


 
Игорь Шевченко ©   (2002-06-18 12:48) [1]


> function ThcaPointForm.xpBaseGetExtendedData: Pointer;
> begin
> Result := inherited xpBaseGetExtendedData;
> Result := PChar(dsPoint.FieldByName("POINT_ACCOUNTNUM").AsString);
> end;


Первое присваивание на всякий случай ? :-)))

И в SHowMessage PChar надо убрать
А вообще-то мало информации.



 
Игорь Шевченко ©   (2002-06-18 13:04) [2]

Прошу прощения, просмотрел.

Result := PChar(dsPoint.FieldByName("POINT_ACCOUNTNUM").AsString);

Работать не будет, так как значение функции TField.getAsString указывает на данные в стеке в данном случае (IMHO)



Страницы: 1 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-1142
kaif
2002-05-28 16:16
2002.07.01
Как в NT4 с мышью бороться?


1-945
besen-ok
2002-06-19 17:05
2002.07.01
Емуляция нажаться клавиши при ратоте с MS TErminal Сервер


3-917
Sergant
2002-06-07 18:10
2002.07.01
Вопрос по правам пользователей в Interbase/Firebird


1-1092
Tornado
2002-06-19 13:14
2002.07.01
Помогите, плиз


4-1260
Alexander
2002-05-01 17:00
2002.07.01
Как, зная ID кнопки (из файла res) определить, что её нажали?