Problem: DBEdit/Edit Felder per Knopfdruck generieren

[Noobinator]

Zitat von Apollonius:

@Noobinator: Das reicht aber auch nicht, denn die lokale Variable DBE ist nicht initialisiert worden. Richtig wäre es so:
....

Ich habe den Post ja auch nur überflogen und das ist mir direkt ins Auge gesprungen

[ShortyHL]

Hab es nun mal damit versucht, aber ich erhalte immer noch einen Fehler: "Konstanttyp kann nicht als Var-Parameter weitergegeben werden"

Delphi-Quellcode:

var DBE: TDBEdit;

FreeAndNil(Form1.FindComponent('DBE'));

[mkinzler]

Nochmal: FindComponent erwartet den Namen der Komponente, z.B. Edit1

[ShortyHL]

Aber dadurch, dass ich vorher nicht weiß, wie hoch die Anzahl der Kompenten ist, die erstellt worden sind, muss ich dann vorher prüfen, ob prinzipiell eine Komponente erstellt worden ist und dann wie viele insgesamtn erstellt wurden...

[mkinzler]

Referenzen auf alle Komponenten befinden sich unter Form.Components, aller Controls unter Form.Controls

[DeddyH]

Merk Dir doch einfach die Anzahl der dynamisch erstellten Komponenten (je Komponentenart).

[ShortyHL]

Aber meine Komponenten haben alle einen unterschiedlichen Namen: In Bezug auf Edit-Felder wären es dann "Edit_1", "Edit_2", usw..
Habe also eine Zählvariable...

Edit: @DeddyH: Stimmt, das könnte ich probieren...

[DeddyH]

Was ich sehe, sind Bezeichner und keine Zählvariablen.

[edit] Postings überschnitten [/edit]

[ShortyHL]

Delphi-Quellcode:

var DBE: TDBEdit;
var y: Integer;

begin

                Save_NumFields := NumFields; // NumFields wird mit der Funktion übergeben und ist eben die Anzahl der Felder, die erstellt werden sollen

                
                if not Assigned(DBE) then begin

                        for y := 1 to Save_NumFields do begin

                                FreeAndNil(Form1.FindComponent('DBEdit_' + IntToStr(y)));

                        end;

                end;

end;

Fehlermeldung:
Ist die Zeile mit der Funktion FreeAndNil();

[Fehler] Unit1.pas(108): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

[DeddyH]

Was soll denn bei Assigned() herauskommen? Versuch es mal so (schnell dahergetippt):

Delphi-Quellcode:

var DBE: TDBEdit;
var y: Integer;

begin

                Save_NumFields := NumFields; // NumFields wird mit der Funktion übergeben und ist eben die Anzahl der Felder, die erstellt werden sollen

               
 //               if not Assigned(DBE) then begin

                        for y := 1 to Save_NumFields do begin
                                DBE := Form1.FindComponent('DBEdit_' + IntToStr(y));
                                FreeAndNil(DBE);

                        end;

 //               end;

end;