Напомните как присвоить указатель...

MPro

Дата: 18.02.2003 11:10:04

type p_int=^integer;

new(p_int_tmp);p_int_tmp:=p_int(adoquerytemp.Fields[j].asinteger);
sgrid_tmp.Objects[j-col_count,i]:=???

Блин раньше делал а щас забыл;-(

hDrummer

Дата: 18.02.2003 11:24:49

присвоение указателей (может мимо, но выглядит это так)

var

 p_int :^integer;

 x     : integer;



begin

new(p_int);

p_int^:=100;

x := p_int^;

dispose(p_int);

end;

MPro

Дата: 19.02.2003 19:40:35

интегер интегеру непроблема присвоить;-)
А вот как tobjectу?

StarWind

Дата: 20.02.2003 06:26:35

StarWind

Дата: 20.02.2003 06:27:23

через присвоение типа

sgrid_tmp.Objects[j-col_count,i]:=TObject(ptr);

LexusR

Дата: 20.02.2003 06:49:21

можно просто привести к нетипизированному указателю


  p_int_tmp : p_int;

begin

   new(p_int_tmp);

   p_int_tmp^ := adoquerytemp.Fields[j].asinteger;

   sgrid_tmp.Objects[j-col_count,i] := Pointer(p_int_tmp);

если просто нужно в объекте хранить integer
то можно просто сделать так


var

  i : integer;

begin

   i := adoquerytemp.Fields[j].asinteger;

   sgrid_tmp.Objects[j-col_count,i] := pointer(i);

end;