Checklistbox: Unselektierte Items löschen

[DeddyH]

Oder nur "If-Schleifen"?

[Larsi]

Ich mache halt sonst andere Sachen in Delphi. Anstatt Schleifen benutze ich halt Repeat Until.

[DCC Fehler] Unit8.pas(42): E2003 Undefinierter Bezeichner: 'Item'


Dieser Fehler kommt wenn ch deinen Code verwenden will. Was muss ich da machen?


@Deddyh: If Schleifen natürlich schon.

[haentschman]

zu IF Schleife...

versuch mal: CheckListBox.Item.Selected(i)

[DeddyH]

Zitat von DeddyH:

Pseudo-Code:

Du musst schon die richtige Syntax verwenden.

[edit]

Zitat von Larsi:

Anstatt Schleifen benutze ich halt Repeat Until.

[/edit]

[Die Muhkuh]

Du kannst auch Repeat-Until nutzen, anstatt eine For-Schleife.

[DeddyH]

Damit wäre ich vorsichtig. Dann besser while nehmen.

[Larsi]

Delphi-Quellcode:

for i := CheckListBox1.Items.Count - 1 downto 0 do
  if not CheckListBox1.Item.Selected(i) then
    Items.Delete(i);

So kommen immernoch Fehler:
[DCC Fehler] Unit8.pas(42): E2003 Undefinierter Bezeichner: 'Selected'
[DCC Fehler] Unit8.pas(43): E2003 Undefinierter Bezeichner: 'Items'
[DCC Fehler] Unit8.pas(43): E2008 Inkompatible Typen
[DCC Fehler] Unit8.pas(46): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'TCheckListBox' gefunden

[mkinzler]

[klugscheiß]
Repeat..Until ist ja auch eine Schleife und auch While
[/klugscheiß]
Es müsste CheckBox1.Selected heißen.
Imho könnte ein Blick in die Hilfe/Klassenvervollständigung diesen Thread hier abkürzen

[Die Muhkuh]

Du kannst mit der Repeat-Until Schleife auch rückwärts iterieren. Ob Du jetzt:

Delphi-Quellcode:

i := Items.Count - 1;

while (i >= 0) do
begin
  // Mach was
  Dec(I);
end;

hast, oder

Delphi-Quellcode:

i := Items.Count - 1;

repeat
  // Mach was
  Dec(I);
until i <= 0;

hast, kommt mehr oder weniger aufs Gleiche raus.

Ok, das einzige Problem ist, dass die Repeat auf jedenfall einmal durchlaufen wird.

Larsi, Du programmierst ja nicht seit gestern. Streng Dein Köpfchen ein bisschen an und werfe einen Blick in die Hilfe

[extrem]

Zitat von Larsi:

Delphi-Quellcode:

for i := CheckListBox1.Items.Count - 1 downto 0 do
  if not CheckListBox1.Item.Selected(i) then
    Items.Delete(i);

So kommen immernoch Fehler:
[DCC Fehler] Unit8.pas(42): E2003 Undefinierter Bezeichner: 'Selected'
[DCC Fehler] Unit8.pas(43): E2003 Undefinierter Bezeichner: 'Items'
[DCC Fehler] Unit8.pas(43): E2008 Inkompatible Typen
[DCC Fehler] Unit8.pas(46): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'TCheckListBox' gefunden

Hi,

so geht es aber bei mir:

Delphi-Quellcode:

  for i := CheckListBox1.Items.Count - 1 downto 0 do
    if not CheckListBox1.Selected[i] then
      CheckListBox1.Items.Delete(i);