Editfelder in einer For-Schleife

[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.

[mkinzler]

Sind das auch TEdit oder davon abgeleitete Komponenten?