Verständnisfrage: Label

[BigMaster]

Ich habe eine Frage warum er die Caption nicht annimmt? :?:
-----------------------------------------------------------------------------------------
var start: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
start := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Label: TLabel;
begin
start := start + 1;
Label := TLabel.Create(Self);

With Label do
begin
Parent := Form1;
Caption := Edit1.Text; // Hier
Left := 540;
Top := 20 + 5*(start);
Width:= 200;
Height:= 20;
Name := 'Label'+IntToStr(start);
Transparent := true;
end;
end;

[DeddyH]

Hallo und Willkommen in der DP :dp:,

lass doch mal das with weg und benenne die Variable Label um. Übrigens: benutze doch bitte künftig Delphi-Tags, die kannst Du mit der "Helm"-Schaltfläche im Beitragseditor setzen.

[divBy0]

Gerade getestet, bei mir nimmt er die Caption.

Der Name Label ist außerdem ungünstig, wie DeddyH schon geschrieben hat.

[uligerhardt]

Zitat:

Zitat von divBy0 (Beitrag 1183324)

Der Name Label ist außerdem ungünstig, wie DeddyH schon geschrieben hat.

Und zwar, weil

Delphi-Quellcode:

label

ein (kaum verwendetes) Pascal-Schlüsselwort ist, wie auch das Syntay-Highlighting verrät:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Label: TLabel;
begin
end;

[DeddyH]

Das mag auch der Compiler nicht und weigert sich (zumindest in meinem D7).

[p80286]

sagt mal hab ich das richtig gesehen?
"Label" ist eine lokale Variable zu TForm1.Button1Click ?
Das bedeutet doch, das Label namch dem Click im Nirwana verschwindet?
Oder ist das gibt es da irgendwelche Nebeneffekte?
Edith:
da das .Free fehlt sollte doch ein schönes Memory Leak da sein?

Gruß
K-H

[mkinzler]

Zitat:

sagt mal hab ich das richtig gesehen?
"Label" ist eine lokale Variable zu TForm1.Button1Click ?
Das bedeutet doch, das Label namch dem Click im Nirwana verschwindet?

Jein. Man kann nicht mehr direkt darauf zugreifen, existieren tun die Instanzen aber noch ( man kann sie auch über die Form wieder referenzieren)

[uligerhardt]

Zitat:

Zitat von p80286 (Beitrag 1183332)

sagt mal hab ich das richtig gesehen?
"Label" ist eine lokale Variable zu TForm1.Button1Click ?
Das bedeutet doch, das Label namch dem Click im Nirwana verschwindet?
Oder ist das gibt es da irgendwelche Nebeneffekte?
Edith:
da das .Free fehlt sollte doch ein schönes Memory Leak da sein?

Nö: Mit

Delphi-Quellcode:

TLabel.Create

wird eine Objektinstanz auf dem Heap angelegt. Die Variable

Delphi-Quellcode:

Label

ist nur eine Referenz darauf, die darf ruhig aus dem Scope fallen. Die Label-Instanz ist trotzdem noch "bekannt" und zwar bei Form1 - sogar zweimal, da Form1 Owner und Parent ist.

[DeddyH]

Und freigegeben werden sie vom Owner, das passt schon.