Zur Laufzeit erzeugtes Objekt ansprechen

[Berserker]

Hallo Gemeinde.

Zur zeit programmiere ich mal wieder an meiner Artikelverwaltung herum. (man muss ja etwas tun )

Ich erzeuge zur laufzeit Edit-Felder welche auch einen Namen bekommen.
Nur wie kann ich diese auch ansprechen, um die Werte auszulesen.

Delphi-Quellcode:

  with TPBEdit.Create(frmARTIKELEDIT) do begin
    Parent := self;
    ReadOnly := true;
    Name := 'edLIEFTXT100';
    AutoSize := false;
    Font.Size := 9;
    Font.Color := clNavy;
    Left := 8;
    Top := 5;
    Width := 393;
    Height := 23;
    Parent := LiefPanel
end;

Der Name wäre also edLIEFTXT100.
Nun will ich edLIEFTXT100.Text lesen. Wie kann man dies bewerkstelligen?

MFG, Ronny

[s-off]

Hallo,

Du hast Dir die Antwort doch schon selber gegeben:

edLIEFTXT100.Text

[Neutral General]

Hi,

TEdit(FindComponent('edLIEFTXT100')).Text := 'halloo'; Gruß
Neutral General

[dominikkv]

Entweder du hast eine Referenz auf den Speicherbereich, oder du suchst bei dem entsprechenden owner nach dem Namen:
(Form1.FindComponent('edLIEFTXT100') as TEdit).Text := 'bla'; edit: @Neutral General: Bitte mit as

[Apollonius]

Wenn du die Objekte später noch einmal brauchst, solltest du sie in einem Feld deiner Formularklasse speichern. Dann kannst du vorgehen, wie es s-off vorgeschlagen hat. Andernfalls brauchst du FindComponent, was aber aus Geschwindigkeitsgründen unbedingt vermieden werden sollte.

[rollstuhlfahrer]

hi,

dazu setzt du eine Variable (als Member einer Form oder auch als globale Variable) und erzeugst daraus dein Feld
könnte so aussehen:

Delphi-Quellcode:

var edLIEFTXT100: TPBEdit;
begin

// with TPBEdit.Create(frmARTIKELEDIT) do begin <-- Das hier nicht
edLIEFTXT100 := TPBEdit.Create(frmARTIKELEDIT);
with edLIEFTXT100 do
//...

end;

rollstuhlfahrer

PS: ich dann mal auch

[Berserker]

Mit den Vars wollte ich auch schon so machen.
Jedoch erstelle ich in einer Scrollbox Panels mit Editfeldern.
Ich muss jedoch für jeden Lieferanten eine Zeile mit je 4 Feldern erzeugen und da die sich immer mal ändern, kommen neue dazu oder es fällt einer weg, werde ich es erstmal mit der FindComponent-Vairante von Neutral General probieren.