Ich hab da ein kleines Codestück, das mir FixInsight bemängelt und ich steh grad aufm Schlauch, wie ich das Lösen soll. Ich hab ein TTabControl mit einem TTabItem, dem ich zur Laufzeit eventuell noch weitere TTabItems hinzufügen muss. Das erledigt folgendes Blöcklein:
Delphi-Quellcode:
if numDevs > 1 then
begin
for i := 2 to numDevs do // Ein Tab haben wir bereits...wir fügen nur die zusätzlichen hinzu
begin
DeviceTab.Add(nil);
end;
end;
Jetzt bemerkt FixInsight ganz richtig, daß der Wert von i nicht verwendet wird...aber wie soll ich das sonst machen?
Da muss es etwas einfaches geben, aber ich komm grad nicht drauf.
Sherlock