pointer auf TButton - verständtnis problem

[cherry]

hallo

ich habe folgenden code:

Delphi-Quellcode:

type
  Tabulator = record
    hwnd: THandle; // contains handle of a window
    P: ^TEButton; // contains pointer of the tabulator button
  end;

  ...

var
  Tabs: array of Tabulator;

procedure TForm1.AddTab(name: String; hwnd: THandle; FormCount: Integer);
var
  Current: Integer;
  NewButton: TEButton;
begin
  // increase pointer array
  SetLength(Tabs, Length(Tabs) + 1);
  Current := Length(Tabs)-1;

  // create button, positionize button
  NewButton := TEButton.Create(Form1);
  NewButton.Parent := ToolBar1;
  NewButton.OnClick := OnTabButtonClick;

  Tabs[current].P := @NewButton;
  Tabs[current].hwnd := hwnd; 
end;

function TForm1.RemoveTab(hwnd: Cardinal): Boolean;
var
  I: Integer;

begin
  result := false;
  for I := 0 to Length(Tabs) -1 do
  begin
    if Tabs[i].hwnd = hwnd then
    begin

      Tabs[i].P^.Caption := 'homo';  <--- Zugriffsverletzung !!!
//      Tabs[i].hwnd := 0;
//      Tabs[i].P := nil;
      result := True;
      break;
    end;
  end;
end;

Habe die Zeile markiert wo ich die "Zugriffsverletzung" erhalte. Irgendwas ist mir noch nicht ganz klar mit pointern...
Kann mit jmd helfen? Warum kriege ich da eine Zugriffsverletzung?

[himitsu]

TButton ist im Prinzip schon ein Pointer ... nimm einfach direkt TEButton.

Delphi-Quellcode:

Tabulator = record
  hwnd: THandle; // contains handle of a window
  P: TEButton; // contains pointer of the tabulator button
end;

Delphi-Quellcode:

Tabs[current].P := NewButton;

Tabs[i].P.Caption := 'homo';

PS: @NewButton zeigt auf die Variable NewButton und nicht auf den Button selbst und diese Variable gibt es nicht mehr, nachdem die Prozedur dazu beendet wurde.

[mkinzler]

Ein TButton ist schon eine Referenz (Zeiger)

[cherry]

Zitat:

Zitat von himitsu

TButton ist im Prinzip schon ein Pointer ... nimm einfach direkt TEButton.

Delphi-Quellcode:

Tabulator = record
  hwnd: THandle; // contains handle of a window
  P: TEButton; // contains pointer of the tabulator button
end;

hmm, kappier ich nicht?! wieso ist das schon ein Pointer? und trotzdem, warum geht meine version nicht?

[himitsu]

Eine Objektinstanz ist sozusagen ein Zeiger auf die Daten des Objektes.

[info] hatte oben etwas dazueditiert :zwinker:

[cherry]

Zitat:

Zitat von himitsu

Eine Objektinstanz ist sozusagen ein Zeiger auf die Daten des Objektes.

[info] hatte oben etwas dazueditiert :zwinker:

hmm, wenn das so ist für was braucht man dann Pointer in Delphi überhaupt? (also ich meine selbst "erstellte")

[mkinzler]

Für Klassen nicht.

[cherry]

Zitat:

Zitat von mkinzler

Für Klassen nicht.

Also zum Beispiel für Typen und Variablen dann?

[Neutral General]

Für elementare Datentypen und für Records brauch man sie ggf.

[cherry]

Zitat:

Zitat von Neutral General

Für elementare Datentypen und für Records brauch man sie ggf.

hmm, also sind Pointer in Delphi eher selten?!