Удаление всех отмеченных записей из CheckListBox

[Марк Охман]

Привет)) такой вопрос... на форме CheckListBox, в который при создании формы, загружается список имен из текстового файла. Так вот. Как сделать так, чтобы с нажатием кнопки все отмеченные записи удалялись, причем не только из CheckListBoxа но и из текстового файла?

[Скандербег]

procedure TForm1.Button3Click(Sender: TObject);
var
  I : Integer;
begin
  I := 0;
  while I < CheckListBox1.Items.Count do begin
    if CheckListBox1.Checked[I] then
      CheckListBox1.Items.Delete(I)
    else
      Inc(I);
  end;
  CheckListBox1.Items.SaveToFile(<file>);
end;

[Марк Охман]

а что должно быть вместо <fail>? я имею ввиду как правильно там прописать?

[Скандербег]

Из какого файла "загружается список имен", в тот и записывать то что осталось после удаления.

[Stilet]

<fail>

Epic fail )))))))))

загружается список имен из текстового файла

вот именно путь к этому файлу и его имя ты и должен там писать

 CheckListBox1.Items.SaveToFile('c:\temp\МойФайл.txt');

[Марк Охман]

прописал путь к файлу вот так :

sCheckListBox1.Items.SaveToFile('pupilslist.db');

- так можно?
когда так сделал стала выскакивать ошибка:

Source filenot found: sCheckListBox.pas

(s потому что я юзаю alpha компоненты) ???

[Скандербег]

Вот у "alpha controls" и надо спрашивать в чем ошибка. При использовании штатного компонента TCheckListBox ошибки нет.
AlphaSkins, наверое, без исходников?

[Марк Охман]

Все,все,все))) получилось)
причем с Альфа компонентом) просто я сначала сделал вот так:

sCheckListBox1.Items.Delete(i);

(добавил это в цикл обработки записей) с таким кодом выскакивала вышепреведенная ошибка, а потом взял ваш код, а старую строчку, дурень, забыл убрать.... не зря мне папа говорил: "Дурная голова рукам покоя не дает"))) Спасибо огромное за помощь))))