Dynamischen Wert ermitteln

[Jerry]

Hallo zusammen

Ich habe 8 Edit Felder. Name: edt_SCS1IPAdresse und edt_SCS2IPAdresse usw. Die Zahl 1-8 ist im Namen enthalten.

Wie kann ich nun den Wert dieser Felder in eine Variable (Adresse) setzen mit diesem Code:

Delphi-Quellcode:

      if cb_RDCServer.Text <> '' then  // hier steht dann z.B: 8 darin
      begin
        for i := 0 to ComponentCount - 1 do
        begin
          if (Components[i] is TEdit) and (Components[i].Name = 'edt_SCS' + cb_RDCServer.Text + 'IPAdresse' ) then
          begin
            with (Components[i] as TEdit) do
            begin
              adresse := (Components[i] as Tedit).Text;
            end;
          end;
        end;

Ich erhalte bei der letzten Zeile immer folgenden Fehler:

Listenindex überschreitet das Maximum (1691).

Ich nehme an, dass ich bei meinem Code einen Überlegungsfehler befindet.

Danke für Eure Hilfe. :-)

Gruss Joki.

[DeddyH]

Ich verstehe Deinen Code nicht ganz, zumal adresse ja immer wieder überschrieben wird. Wäre FindComponent nicht zielführender?

[baumina]

Ich sehe an dem Code nicht warum es zu diesem Fehler kommen könnte.

[Jerry]

Danke für Deine schnelle Antwort.

Adresse soll genau 1 mal den entsprechenden Wert des gewählten edit-Feldes bekommen.
Ich gehe davon aus, dass die obige Abprüfung ja nur gerade einmal passt, und somit sollte meine Variable Adresse den richtigen Wert bekommen.

Mit diesem Componets[i] Codes kenne ich mich nicht so gut aus...

Danke!

[baumina]

Ich würde noch ein Break reinmachen, wenn du einen Treffer hattest, dann sparst dir den Rest der Schleife.

[Bummi]

Durch Dein With versuchst Du faktisch folgenden Zugriff

Delphi-Quellcode:

(Components[i] as TEdit).(Components[i] as Tedit).Text

greifst also auf Components von (Components[i] as TEdit) zu ....

[DeddyH]

Delphi-Quellcode:

const
  EDITNAME = 'edt_SCS%sIPAdresse';
var
  AComponent: TComponent;
...
  if cb_RDCServer.Text <> '' then // hier steht dann z.B: 8 darin
      begin
        AComponent := FindComponent(Format(EDITNAME, [cb_RDCServer.Text]));
        if Assigned(AComponent) then
          if AComponent is TEdit then
            adresse := TEdit(AComponent).Text;
      end;

[baumina]

Richtig Bummi, dieses with ist doch immer wieder gemein, ich weiß warum ich das nie benutze.

@DeddyH : Ein FindComponent schleift auch über ComponentCount, das ist grad egal.

[Uwe Raabe]

Zitat:

Zitat von Bummi (Beitrag 1244744)

Durch Dein With versuchst Du faktisch folgenden Zugriff

Delphi-Quellcode:

(Components[i] as TEdit).(Components[i] as Tedit).Text

greifst also auf Components von (Components[i] as TEdit) zu ....

Sehr schönes Beispiel für die Bösartigkeit von

Delphi-Quellcode:

with

:thumb:

[Jerry]

mmm dann soll also der ganze "with ... do" Code weg?

Und direkt adresse := (Components[i] as Tedit).Text;
geschrieben werden?

Wenn ja erscheint der selbe Fehler... :-(