mal wieder pointer

[kiar]

zur laufzeit erstelle ich ein Tedit. nun will ich dieses edit mit einem wert füllen.

folgender Versuch scheiterte

Delphi-Quellcode:

var
  e  : Tedit;
  pe :^Tedit;

begin
  pe:=@e; //liest die adresse von e
  pe^.text:=' es geht nicht! warum?'
end;

raik

ps ich begreife das mit den pointern einfach nicht

[Christian Seehase]

Moin Raik,

das Problem sind nicht die Pointer.
Wie wäre es denn, wenn Du das Edit Feld erst einmal erzeugst, bevor Du es benutzt?

Code:

var
  e  : Tedit;
  pe :^Tedit;

begin
[color=red]  e := TEdit.Create(self);
  e.Parent := self;[/color]  
  pe:=@e; //liest die adresse von e
  pe^.text:=' es geht nicht! warum?'
end;

[kiar]

hi chris ,

danke für den hinweis, aber des editfeld existiert.es wird zur laufzeit erzeugt und hat sein parent auf einem panel,aber nicht in der procedure, in der ich darauf zugreifen will. deshalb habe ich versucht mit pointer darauf zuzugreifen.

hier erstelle ich

Delphi-Quellcode:

procedure TfrmMain.geteilter1Click(Sender: TObject);
var
   p : TPanel;
   l : TEdit;
   MousePos: Tpoint;
begin
     mousePos:=screentoClient(Mouse.CursorPos);
     p:= TPanel.Create(self);
       with p do
         begin
           parent:= self;
           height:=100;
           Width :=200;
           Top:=  mousePos.x;
           left:= MousePos.y;
           Ctl3D:=false;
           popupmenu:=popupmenu1;

         end;
     l:= TEdit.Create(self);
     l.parent:=p;
     l.height:=20;
     l.width:=80;
     l.top:=10;
     l.left:=10;
     
end;

und hier versuche ich darauf zuzugreifen

Delphi-Quellcode:

procedure TfrmMain.mypopupclick(Sender: TObject);
var
   l:Tedit;
   p:Tpanel;
   pl:^Tedit;
begin

         if PopupMenu1.PopupComponent.Name = 'StringGrid1' then
            stringgrid1.cells[stringgrid1.col,stringgrid1.row]:=TMenuItem(sender).caption
         else
            pl:=@l;
            pl^.text:=TMenuItem(sender).caption;


end;

raik

[edit] quelltext eingefügt

[DelphiDeveloper]

du schreibst zur laufzeit ERSTELLST du ein Tedit

und wo ist dein create?



du erzeugst ja nirgens eine instanz von Tedit und somit kannst du auch
nicht auf properties von tedit zugreifen

versuchs mal mit der zeile und dein code läuft auch wenn
das bestimmt kein paradebeispiel fuer verwendung von pointern ist.

e := Tedit.Create(nil);

[Christian Seehase]

Moin Raik,

also wenn ich die obigen Zeile ausführe, klappt das.

[Christian Seehase]

Moin Raik,

und woher soll die Variable l in der zweiten Prozedur den Inhalt der Variablen l in der ersten Prozedur haben?

[kiar]

hi chris ,

es funktioniert so wie du beschrieben, aber wie oben schon erwähnt,liegen create und zugriff nicht in einer procedure.

raik

[Christian Seehase]

Moin Raik,

nimm' doch als Variable ein Feld/Eigenschaft im Formular, so dass Du von der erzeugenden und der nutzenden Methode aus Zugriff darauf hast.

[kiar]

hi chris,

das hab ich auf die 'schnelle' nicht begriffen. dabei bin ich gar kein hamburger

lasse es mir mal durch den kopf gehen.

raik