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.