Pointer og pointerarray's

type
  TBla = record
          b1 : integer;
          b2 : integer;
        end;
  PBla = ^TBla;

procedure TForm1.Button1Click(Sender: TObject);
var
  Bla : PBla;

begin
  GetMem(Bla,SizeOf(TBla));

  Bla^.b1 := 1;
  Bla^.b2 := 3;

  label1.caption := inttostr(bla^.b2);

  FreeMem(Bla,SizeOf(TBla));
  Bla := nil;

end;

http://www.delphi.about.com/library/weekly/aa011601a.htm?terms=delphi%2Bpointer

hej hreiff

Jeg har jo allokeret hukommelse nok til at jeg kan have 2 TBla liggende efter hinanden.

Du kan læse om det i delphi's online hjælp.

Brug evt. en TList til at gemme dine allokerede pointere så du kan få fat i dem igen

martinlind:

Prøv lige at se mit sidste spørgsmål.

type
  TBla = record
          b1 : integer;
          b2 : integer;
        end;
  PBla = ^TBla;

procedure TForm1.Button1Click(Sender: TObject);
var
  Bla,bla2 : PBla;

begin
  GetMem(Bla,2*SizeOf(TBla));

  Bla2 := ptr(seg(bla^),Ofs(bla^)+sizeof(TBla));

  Bla^.b1 := 1;
  Bla^.b2 := 3;
  Bla2^.b1 := 2;
  Bla2^.b2 := 4;

  label1.caption := inttostr(bla2^.b2);

  FreeMem(Bla,2*SizeOf(TBla));
  Bla := nil;

end;

type
  TBla = record
          b1 : integer;
          b2 : integer;
        end;
  PBla = ^TBla;

procedure TForm1.Button1Click(Sender: TObject);
var
  A: Array[0..3] of integer;
  i: integer;
  Bla : PBla;

begin
  for i:= 0 to 3 do
    a[i] := i+1;
  {så ligger der 1,2,3,4 i dit array}

  Bla := addr(a[0]);

  {Nu opfattes de to første tal i dit array som en record}
  {dvs. Bla^b1 = 1 og Bla^b2 = 2}

  label1.caption := inttostr(bla^.b2);

  Bla := ptr(seg(bla^),Ofs(bla^)+sizeof(TBla));

  {Nu opfattes de to sidste tal i dit array som en record}
  {dvs. Bla^b1 = 3 og Bla^b2 = 4}


  label2.caption := inttostr(bla^.b2);

end;

Sorry, jeg fandt selv løsningen...

bla^.b1 :=
bla^.b2 :=
Inc(Bla)
bla^.b1 :=
bla^.b2 :=

Der kan man bare se. Det vidste jeg sgu ikke at man kunne. Smart.

Jeg vidste det egentligt godt, jeg kunne bar ikke huske det... :-)

//klaus