ok...soweit geht es...nur mir der zeile
TLabel(FindComponent('label' + strtoint((i + 29)))).Caption := FieldValues[i].Value;
hat er noch seine probleme...
er sagt dann immer
[Fehler] versuch2.pas(229): Inkompatible Typen: 'String' und 'Integer'
und
Delphi-Quellcode:
With adoquery1 Do
Begin
Add('BEHANDLUNG');
Add('VERSUCHSFL_NR_WW');
Add('ANLAGEJAHR');
Add('FLAECHENGROESSE');
Add('FLAECHENFORM');
Add('FOWUGEB');
Add('FOWUBEZ');
Add('MAKROKLIMA');
Add('KLIMASTUFE');
Add('BOART');
Add('LOBOFORM');
Add('HUFORM');
Add('BOTYP');
Add('NKS');
Add('HOEHE_NN');
Add('HANG_N');
Add('HANG_R');
Add('BA_M');
Add('HERKUNFT');
End;
With CompNames Do
Begin
Add('TB_BEHANDLUNG');
Add('TB_VFL_NR_WW');
Add('TB_JAHR');
Add('TB_GROESSE');
Add('TB_FORM');
Add('TB_FOW1');
Add('TB_FOW2');
Add('TB_MAKRO');
Add('TB_KLIMA');
Add('TB_BO');
Add('TB_LOBO');
Add('TB_HU');
Add('TB_BOTYP');
Add('TB_NKS');
Add('TB_HOEHE');
Add('TB_HANG_N');
Add('TB_HANG_R');
Add('TB_BA');
Add('TB_HERKUNFT');
End;
dort sagt er
[Fehler] versuch2.pas(120): Undefinierter Bezeichner: 'Add'
also entweder ich bin zu bl.. oder einfach noch nicht wach...
Und das leben geht weiter.....