Datenbankfelder über String ansprechen

[sebastian1979]

Hallo,

ich habe folgendes Problem. Ich möchte ganz gerne Eigenschaftswerte bestimmter Tabellen ändern.

Vom Prinzip her ja kein Problem:

Datenbank.TabelleSpalte.DisplayLabel := 'Test'; Da ich aber ca. 300 Spalten in der Tabelle habe,
welche alle den gleichen Namen + "Zähler" habe (EDIT1,EDIT2...EDIT300)
würde ich das ganze gerne über eine "for to do" Schleife lösen.

Delphi-Quellcode:

for i:=1 to 300 do
begin
 DB.findcomponent('EDIT' + inttostr(i)).DisplayLabel := 'Test';
end;

Das Problem ist, dass das leider nicht funktioniert,
Delphi sagt mir "Undefinierter Bezeichner DisplayLabel"

Ich habe findcomponent bereits bei Edit Komponente benutzt dabei hat man von ein "as TEdit" hinter den string gesetzt.

Habe das ganze dann mal so ausprobiert:

Delphi-Quellcode:

...
DB.findcomponent(('EDIT' + inttostr(i)) as TIBTable).DisplayLabel
... und so...
DB.findcomponent(('EDIT' + inttostr(i)) as TIBStringfield).DisplayLabel
...

funktioniert auch nicht wieder "Undefinierter Bezeichner" nur für das hinter dem "as".

Ich hoffe mir kann jemand weiter helfen, vielen Dank schon mal für Eure Hilfe.

Gruß
Sebastian

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[mkinzler]

Du musst noch in den richtigen typ casten:

(DB.findcomponent('EDIT' + inttostr(i)) as TField).DisplayLabel := 'Test';

[sebastian1979]

Hallo Markus,

hatte erst Probleme ... wieder undefinierter Bezeichner.
Aber die Delphi Hilfe kannte TField und zeigte mir die Unit DB an.
Habe diese geladen und jetzt funzt es.

Vielen Dank und einen schönen Abend noch.