Problem mit FindComponent

[Blackpit]

Hallo,
kann mir jemand sagen, warum das nicht geht?

Delphi-Quellcode:

      While not mtdata.Eof do
       Begin
         with TVCheckListBox(FindComponent('lst_ausstattung' + IntToStr(CAT_ID -2))) do
           begin
            //  showmessage(mtData.FieldByName('Bezeichnung').asstring); // funktioniert
             Items.Add := mtData.FieldByName('Bezeichnung').AsString;  //  <= "Ungenügende Parameter" ??
           end;
         mtdata.Next;
        end;

Bin Ratlos?

[EWeiss]

Items.Add(mtData.FieldByName('Bezeichnung').AsString); ?

gruss

[DieDolly]

Versuch mal
Items.Add(mtData.FieldByName('Bezeichnung').AsString);

Als Tipp noch, schmeiß dieses verpöhnte with raus!

[EWeiss]

Zitat von DieDolly:

Versuch mal
Items.Add(mtData.FieldByName('Bezeichnung').AsString);

Als Tipp noch, schmeiß dieses verpöhnte with raus!

Doppelt gemoppelt hält besser

gruss

[Blackpit]

DANKE!
Man sollte doch mal schluss machen
Wie sollte es ohne with gehen?

[EWeiss]

Zitat:

Funktioniert, gibt es eine Erklärung dafür?

Items.Add(.. erwartet einen Parameter

Zitat von Blackpit:

gleicher Fehler
Wie sollte es ohne with gehen?

TVCheckListBox(FindComponent('lst_ausstattung' + IntToStr(CAT_ID -2))).Items.Add(mtData.FieldByName('Bezeichnung').AsString);

gruss

[Blackpit]

Danke, konsequente OO