Модератор: Модераторы
Код: Выделить всё
var Val: Integer;
...
TList(FValue.VClass).Items[i] := Pointer(Val);Код: Выделить всё
Val := StrToInt(S);
TList(FValue.VClass).Add(Pointer(Val));Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var I,X:Integer;
List:TList;
begin
I:=12;
X:=444;
List:=TList.Create;
List.Add(@X); //@ - дает аддрес переменной
List.Add(@I);
Memo1.Lines.Add('X= '+IntToStr(Integer(List[0]^)));
Memo1.Lines.Add('I= '+IntToStr(Integer(List[1]^)));
Memo1.Lines.Add('Аддрес X= '+IntToStr(Integer(List[0])));
Memo1.Lines.Add('Аддрес I= '+IntToStr(Integer(List[1])));
List.Free;
//Integer(List[0]^) - что это такое
// List[0] - Содержит указатель типа Pointer и List без понятия че там лежит
//А мы должны знать и говорим чтоб это указатель был разименован List[0]^ (Галочке справа)
//И после разименовывания привести к типу Integer
//При этом нужно помнить все это будер работать тока Локально
//те если Лист глобальный то в него нельзя добовлять указатели на локальные переменные
//Те эти переменные будут удалены при воходе из процедуры и указатели будут уже указывать на фигню
//ДЛя этого нужно использовать указатели :) см процедуру New() etc.
end;
end.
Код: Выделить всё
x:=Pointer(PtrInt(12))sign писал(а):Компилятор выдаёт в том и том случае хинт: Hint: Conversion between ordinals and pointers is not portable. Как это сделать правильно?
А Hint отключить - пожалуйста.Код: Выделить всё
var P: Pointer;
I: PtrInt absolute P;
begin
I := Val;
TList(FValue.VClass).Items[k] := P;
...
main.pas(1906,15) Hint: Conversion between ordinals and pointers is not portable
Код: Выделить всё
Ind: integer;
CategorTree.Selected.Data:=Pointer(Ind);
...
Ind:=Integer(CategorTree.Selected.Data)
PtrInt считается опасным, и почти никогда не должен использоваться в действующем коде, т.к. указатели обычно беззнаковые.
...
Введение типа PtrInt было ошибкой. Пожалуйста, используйте вместо него PtrUInt.
Nik писал(а):Замена PtrInt на PtrUInt ничего не дала. Начинаю подозревать, что косяк берёт свои корни при записи CategorTree.Selected.Data:=Pointer(Ind), но пока придумать/найти ничего для замены не могу...
Оказалось, что в LCL объект Selected для Node создаётся как-то иначе, чем в Delphi и становится доступным только после события OnChange (в Delphi удобнее было вешать обработку на OnCahging, но в Lazarus обращение из этой функции к Node или Selected вызывает ошибку, даже если эти свойства не равны nil).Nik писал(а):КО как всегда прав
Nik писал(а):Не могу зарегиться в Mantis - письма с активацией не дошли до трёх ящиков на разных серверах (первое письмо жду уже часов 12)...
)