Editfelder in einer For-Schleife

[Luckner]

Hallo, ich habe bestimtt eine sehr triviale Frage, aber ich komm nicht auf die Lösung. Habe einige Editfelder mit den Namen EDIT1, EDIT2, EDIT3 usw. Würde gerne den Text der Felder hintereinander auslesen.
For i = 1 to Max do
Variable + IntToStr(i) := EDIT + IntToStr(i)
usw. funktioniert nicht.

Könnte mir Jemand auf die Sprünge helfen?
Danke.

[stahli]

Entweder Du fügst die Edits erst mal Stück für Stück in eine TList ein und kannst diese dann jederzeit durchlaufen oder Du benutzt FindComponent.

Ach so, und für Variable + IntToStr(i) bietet sich die Nutzung eines Arrays oder auch einer Liste an.

[Luckner]

würde das auch so funktionieren?
s1 : String;
var : integer
for i = 1 to max do
s1 := 'Edit'+ StrToInt(i);
Var := StrToInt(s1.text);
usw.

[bcvs]

Probiers halt aus.
Damit kannst du deine Frage schon selbst beantworten.

[TRomano]

Nein.
Was Stahli meinte war folgender Art:

Delphi-Quellcode:

var i     : integer;
    sText : string;
    oEdit : TEdit;
begin
  sText := '';
  for i:=1 to {Anzahl Edit´s} do begin
    oEdit := FindComponent('Edit' + IntToStr(i)) as TEdit;
    if (oEdit <> nil) then sText := sText + oEdit.Text;
  end;
end;

[TRomano]

Oder auch ...

Delphi-Quellcode:

type TArrayEdits : TArray<TEdit>;

var aEdits : TArrayEdits;
    oEdit  : TEdit;
    sText  : string;
begin
  // vielleicht auch im FormCreate-Event erzeugen
  aEdit := TArrayEdits.Create(EDIT1,EDIT2,EDIT3,EDIT4 {...});
  for oEdit in aEdits do sText := sText + oEdit.Text;
end;

[Luckner]

Danke TRomano,
habe jetzt verstanden.
Gruß, Luckner

[baumina]

Bei einer Kompilersprache wie Delphi kann man im Gegensatz zu einer Interpretersprache keine Variablennamen zur Laufzeit zusammenbasteln.

[frankyboy1974]

Hallo,

ob eine Programmiersprache kompiliert oder interpretiert wird, ist keine Eigenschaft der Programmiersprache.

mfg

frank

[Luckner]

Hallo TRomano,

angelehnt an Deinem Beispiel 1, jetzt mein Versuche. Leider gibts einen Fehler.

Delphi-Quellcode:

var oEdit: TEdit; i : Integer;

     for i := 1 to StrToInt(ComboHaftstanzenAnzahl.Text) do
       begin         
         oEdit := FindComponent('EditStanzeKategorie' + IntToStr(i)) as TEdit;
         DataArtikelStanzen.IBDataSetArtikelStanzenKATEGORIE.AsString := oEdit.Text;
       end;

Der Compiler bring keinen Fehler, jedoch im Programm gibt es 'ungültige Typumwandlung'. Und zwar in der 1.-ten Zeile nach 'begin'. Diese Editfeld heißt 'EditStanzeKategorie1, EditStanzeKategorie2 usw.
Danke.