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

[EWeiss]

Zitat von Blackpit:

Danke, konsequente OO

Das Problem bei With es schleichen sich sehr schnell Fehler ein zudem kann man ohne besser debuggen..

gruss

[jaenicke]

So hintereinander gehängt ist es nicht mehr so gut lesbar. So sieht es so ähnlich aus wie mit with, nur besser lesbar (ab Delphi 10.3, davor muss die Variable vorher deklariert werden):

Delphi-Quellcode:

       while not mtdata.Eof do
       begin
         var CurrentListBox := TVCheckListBox(FindComponent('lst_ausstattung' + IntToStr(CAT_ID -2)));
         CurrentListBox.Items.Add(mtData.FieldByName('Bezeichnung').AsString);
         mtdata.Next;
       end;