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?!

[Meflin]

Zitat:

Zitat von cherry

hmm, also sind Pointer in Delphi eher selten?!

Korrekt, deswegen mögen wir es ja so :mrgreen:

[cherry]

Ok, dann hab ich ja wieder was gelernt. Also nochmal, wenn ich einer Procedure den Sender als TObject übergebe, ist das auch ein "Pointer" ? (Weil ja TObject auch eine Klasse ist)

[himitsu]

Jupp, so isses. :angel:


Du kannst (wenn du unbedingt willst) ein Objekt auch über einen Pointer ansprechen, aber dann mußt du auch einen Speicherplatz (für die Objekt-Variable) nutzen, welcher nicht gelöscht wird.

Delphi-Quellcode:

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

  ...

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

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

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

und Freigeben dann z.B. so:

Delphi-Quellcode:

Tabs[i].P^.Free;
Dispose(Tabs[i].P);

aber direkt über die Objektinstanz isses natürlich einfacher/schöner :angel2:

[Cyf]

Zitat:

Zitat von cherry

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

Für Abstrakte Datentypen, wie z.B. verkettete Listen, Binärbäume und nen paar andere und in einigen speziellen Fällen, wo Lösungen ohne Pointer nicht oder nur unschön gehen. Hinzu kommt noch die Übergabe von Strings an API-Schnittstellen und .dll oder wenn man aus irgendwelchen Gründen meint, direkt im virtuellen Speicher rumhantieren zu müssen. Die meisten Pointer in Delphi werden automatisch verwaltet und hinter Dingen wie var, const, Arrays und Objekten versteckt.

[cherry]

Danke euch allen. Das ist die Erleuchtung des Tages für mich. :stupid: ne im Ernst. Gut zu wissen.

schöner Tag noch

[himitsu]

Strings, dynamische Arrays und Objekte arbeiten sozusagen mit Pointern, nur daß an sich als Programmier da um nichts kümmern muß (macht Delphi automatisch).
Und bei den Funtions-Parametern, sowie noch einigen anderen Dingen, macht Delphi auch sehr viel automatisch.

ich weiß ja nicht wie sehr du dich z.B. in C auskennst, aber da muß man schon recht viel selber machen. :stupid: