For-Schleife in Tabelle

[Luckner]

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

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

[Neutral General]

Datasets durchläuft man so:

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:

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;

[Sir Rufo]

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

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

[Sir Rufo]

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

[Luckner]

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

Luckner

[Sir Rufo]

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?

[Neutral General]

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.

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

[Luckner]

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

Danke, Luckner

[Sir Rufo]

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