FixInsight Warnung eliminieren

[Sherlock]

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

[Der schöne Günther]

Delphi-Quellcode:

repeat
   DeviceTab.Add(nil);
until (DeviceTab.Count = numDevs);

[Sherlock]

<Homer>D'oh!</Homer>

Sherlock

[Uwe Raabe]

Wenn du eine while-Schleife nimmst, sparst du dir sogar noch die if-Abfrage.

Delphi-Quellcode:

while (DeviceTab.Count < numDevs) do
  DeviceTab.Add(nil);

[Sherlock]

Betriebsblindheit ist immer noch eine akzeptable Entschuldigung, oder? Ich würde sogar noch eine Prise Urlaubsreife hinzugeben.

Sherlock

[himitsu]

Ein blindes if i=0 then ; hilft immer und der Compiler opimiert sowas auch nie weg.

[Sherlock]

Das wär mir dann doch zu billig gewesen

Sherlock

[himitsu]

Sowas ist manchmal zum Debuggen ganz nett, da wo der Debugger meint die Variable sei entfernt, weil der die nur kurz in den Registern hatte und sie nicht auf dem Stack liegen.


Und das IF war doch auch so schon überflüssig,
denn for i := 2 to i do mit i < 2 macht ja nichts, außer bei downto.

[Sherlock]

...und da ist die dritte Variante, um meine Schande komplett zu machen.

Wenn sich das jetzt noch über mehrere Seiten ausdehnt, werde ich in Betracht ziehen, eine Weile keine Fragen mehr zu stellen.

Sherlock

[himitsu]

Das 5 Leerzeichen in Zeile 438 war auch überflüssig.
Tschuldschung, aber wünsch dennoch einen schönen Tag.

Aber noch sind wir ja noch auf Seite 1.