Problem mit FindComponent

[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;