[erledigt] Unbekanntes Problem : E2008 Inkompatible Typen

[xZise]

Ich habe folgende Procedure

Delphi-Quellcode:

procedure TFIni.MIDelSectionClick(Sender: TObject);
var i : Integer;
begin
  if LBSections.ItemIndex > 0 then
    if MessageDlg('Wollen sie wirklich die Section ' + LBSections.Items[LBSections.ItemIndex] + ' löschen?', mtConfirmation, [mbYes] + [mbNo], 0) = 6 then begin
      for i := LBSections.ItemIndex to High(LBSections.Items) - 1 do begin  // Zeile 347
        Section[i] := Section[i + 1];
        LBSections.Items[i] := LBSections.Items[i + 1];
      end;
      LBSections.Items.delete(High(LBSections.Items));  // Zeile 351
    end;
end;

nun sagt er zu mir:

Zitat:

[Fehler] UIni.pas(347): E2008 Inkompatible Typen
[Fehler] UIni.pas(351): E2008 Inkompatible Typen

Und LBSections ist eine ListBox

[Dax]

Nimm statt High(LBSections.Items) lieber LBSections.Items.Count. :)

[xZise]

Ah ja ^^ Hät ich auch so drauf kommen können ;) Danke!

- erledigt -

[Thorben77]

Zitat:

Zitat von Dax

Nimm statt High(LBSections.Items) lieber LBSections.Items.Count. :)

Und noch besser LBSections.Items.Count - 1, die Indizes fangen ja bei 0 an.