Hallo, ich schreibe hier mal kurz ein Bespiel auf, was nicht funktioniert aber möglicherweise meine Absicht besser erklärt.

markieren

Delphi-Quellcode:

       for i := 1 to StrToInt(ComboBoxNumerierungAnzahl.Text) do
         begin
           oEdit := FindComponent('ComboBoxNummerierung' + IntToStr(i)) as TJvValidateEdit;
           oEdit.Text := DataModuleArtikel.ArtikelreferenzNUMMERIERUNG(i).AsString;
           i := i +1;
         end;

DataModuleArtikel.ArtikelreferenzNUMMERIERUNG(i) funktioniert nicht, aber wie könnte man das Lösen. Würde mir menge Programmzeilen ersparren.

Danke, Luckner

Datasets durchläuft man so:

markieren

Delphi-Quellcode:

while not Dataset.Eof do
begin
  Daten := Dataset.FieldByName('FELD').AsString;
  Dataset.Next;
end;

Du kannst nicht direkt per Index auf die Records zugreifen.
Achja: Bei for-schleifen verändert man die Schleifenvariable nicht selbst!
Das geht automatisch!

In deinem Fall also:

markieren

Delphi-Quellcode:

i := 1;
while not DataModuleArtikel.Eof do
begin
  oEdit := FindComponent('ComboBoxNummerierung' + IntToStr(i)) as TJvValidateEdit;
  oEdit.Text := DataModuleArtikel.ArtikelreferenzNUMMERIERUNG.AsString;
  inc(i);
  DataModuleArtikel.Next;
end;

Mit einem class helper könnte man das schon realisieren. Die Frage nach Sinn oder Unsinn sei mal nicht berücksichtigt

Hallo Neutral General,
in dieser Tabelle gibts es die Spalten: NUMMERIERUNG1, NUMMERIERUNG2 ...., NUMMERIERUNG6. Also nicht die Anzahl der Datensätze, sondern Sprung von Spalte zur Spalte.

Zitat von Luckner:

Hallo Neutral General,
in dieser Tabelle gibts es die Spalten: NUMMERIERUNG1, NUMMERIERUNG2 ...., NUMMERIERUNG6. Also nicht die Anzahl der Datensätze, sondern Sprung von Spalte zur Spalte.

Ich glaube das sind Komponenten ... jetzt sollte es klingeln

Hallo Sir Rufo, es klingelt nicht. Meine Klingel scheint defekt zu sein. Bitte einen Tip.

Luckner

Zitat von Luckner:

Hallo Sir Rufo, es klingelt nicht. Meine Klingel scheint defekt zu sein. Bitte einen Tip.

Luckner

Wie findest du denn die TEdit -Komponenten?
Wie findet man dann wohl die TField -Komponenten?

Jetzt besser?

Zitat von Luckner:

Hallo Neutral General,
in dieser Tabelle gibts es die Spalten: NUMMERIERUNG1, NUMMERIERUNG2 ...., NUMMERIERUNG6. Also nicht die Anzahl der Datensätze, sondern Sprung von Spalte zur Spalte.

markieren

Delphi-Quellcode:

for i := 1 to StrToInt(ComboBoxNumerierungAnzahl.Text) do
begin
  oEdit := FindComponent('ComboBoxNummerierung' + IntToStr(i)) as TJvValidateEdit;
  oEdit.Text := DataModuleArtikel.FieldByName('NUMMERIERUNG' + IntToStr(i)).AsString;
  i := i +1;
end;

SirRufo: Ist bei Feldern eines Datasets gar nicht nötig. Dafür gibts ja schon FieldByName

Jaaa, danke. Meine Klingel hat Kontaktprobleme. Kleine Wartung wäre nötig. Oder mal Pause und Mittag.

Danke, Luckner

Zitat von Neutral General:

SirRufo: Ist bei Feldern eines Datasets gar nicht nötig. Dafür gibts ja schon FieldByName

Der TE hat nach den Feld-Komponenten gefragt und ich fand es sehr witzig, dass er weiß, wie man eine Edit-Komponente über den Namen findet aber nicht, wie man eine Feld-Komponente über den Namen findet.

Somit war meine Antwort darauf gerichtet, die Transferleistung ein wenig zu kitzeln. Es ging nicht um Sinn oder Unsinn oder einen anderen Weg