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]

Delphi-Quellcode:

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

?

gruss

[DieDolly]

Versuch mal

Delphi-Quellcode:

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

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

[EWeiss]

Zitat:

Zitat von DieDolly (Beitrag 1436688)

Versuch mal

Delphi-Quellcode:

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:

Zitat von Blackpit (Beitrag 1436690)

gleicher Fehler
Wie sollte es ohne with gehen?

Delphi-Quellcode:

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

gruss

[Blackpit]

Danke, konsequente OO;)

[EWeiss]

Zitat:

Zitat von Blackpit (Beitrag 1436694)

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;