Laufzeit: erstellte Editfelder ansprechen

[Piro]

Hallo Leute ich brauche mal eure Hilfe. Wie ihr unten seht, erstelle ich mir edtfelder zur Laufzeit.

Mein Frage ist wie die einzelnen Felder ansprechen soll um deren Inhalt auszulesen?

Delphi-Quellcode:

     x := 70;
     for i := 0 to (sgspielergebnisse.RowCount - 1) do
     begin
        feld := TEdit.Create(PageControl1.Pages[4]);
        point := TLabel.Create(PageControl1.Pages[4]);
        feld1 := TEdit.Create(PageControl1.Pages[4]);
        with feld do
        begin
            Parent := PageControl1.Pages[4];
            Height := 22;
            Width := 30;
            Left := 390;
            Top := x;   
        end;
        with point do
        begin
            Parent := PageControl1.Pages[4];
            caption := ':';
            Height := 22;
            Width := 5;
            Left := 430;
            Top := x;
        end;
        with feld1 do
        begin
            Parent := PageControl1.Pages[4];
            Height := 22;
            Width := 30;
            Left := 450;
            Top := x;
        end;
        x := x + 28;
     end;

Hofentlich kann mir einer helfen.

[Matze]

Delphi-Quellcode:

var s: string;

s:=field.Text;

oder vielleicht auch nicht.

[Chewie]

Das Problem ist, dass die Edit-Klassen erzeugt werden, aber die Klassenvariable nicht gespeichert wird.
Besser wäre es, die Edit-Felder in Arrays zu verwalten. So kannst du ohne Probleme dein Edit-feld anhand des Indexes ansprechen.

So sieht das dann etwa aus:

Delphi-Quellcode:

var
  Feld, Feld1: Array of TEdit;
  Point: Array of TLabel;

     Setlength(Feld, ssgspielergebnisse.RowCount - 1); 
     Setlength(Point, ssgspielergebnisse.RowCount - 1);
     Setlength(Feld1, ssgspielergebnisse.RowCount - 1);
     
     x := 70;
     for i := 0 to (sgspielergebnisse.RowCount - 1) do
     begin
        feld[i] := TEdit.Create(PageControl1.Pages[4]);
        point[i] := TLabel.Create(PageControl1.Pages[4]);
        feld1[i] := TEdit.Create(PageControl1.Pages[4]);
        with feld[i] do
        begin
            Parent := PageControl1.Pages[4];
            Height := 22;
            Width := 30;
            Left := 390;
            Top := x;   
        end;
        with point[i] do
        begin
            Parent := PageControl1.Pages[4];
            caption := ':';
            Height := 22;
            Width := 5;
            Left := 430;
            Top := x;
        end;
        with feld1[i] do
        begin
            Parent := PageControl1.Pages[4];
            Height := 22;
            Width := 30;
            Left := 450;
            Top := x;
        end;
        x := x + 28;
     end;

Jetzt kannst du z.B. via Feld[3] auf das 4. erzeugte Feld zugreifen.

[Piro]

danke leute für eure schnelle Hilfe.

[Piro]

habe es jetzt mal ausprobiert. Und es funktioniert nur halb.

Er erzeugt die Felder.

Zum Schluß bekommen ich eine Meldung: "Invalide Pointer Operation"

warum muss man eigentlich vorher setleng definieren?

[Nalincah]

Mit SetLength bestimmt du die Größe des Arrays. In deinem Fall:

Setlength(Feld, ssgspielergebnisse.RowCount - 1); Feld=Name des Arrays und dann die Anzahl der Ergebnisse ist die Größe (Anzahl der Speicherplätze für Werte)

[Piro]

habe ich schon alleine gelöst.

war ein syntaxfehler meinerseits

[Nalincah]

Delphi-Quellcode:

var
  // VARIABLENDEKLARATION ZUM ERSTELLEN DER KOMPONENTEN
  // DBCon erstellen
  DBCon: array of TADOConnection;

procedure DBOpen(DataBase:String; TabCaption:String);
begin
  // DBCon erstellen
  setlength(DBCon, anzahltabs);
  DBCon[anzahlTabs] := TADOConnection.Create(nil);
  ....
end;

Das kompiliert der auch aber zur Laufzeit im Einzelschritt krieg ich bei dieser Zeile

DBCon[anzahlTabs] := TADOConnection.Create(nil); folgenden Fehler:

Zugriffsverletzung bei Adresse 004B44D9 in Modul 'DBUtilities.exe'. Schreiben von Adresse 00000000

[Sharky]

Zitat von General2003:

DBCon[anzahlTabs] := TADOConnection.Create(nil);

Müsste es nicht [anzahlTabs-1] heissen? Ich meinte das SetLength das Array bei 0 beginnt.
Oder?

[Nalincah]

anzahltabs ist ja zu diesem moment noch 0