Как в CheckListBox сохранить только отмеченые элементы

← →
Bobic (2004-07-26 14:44) [0]

Помогите плийз.

← →
Ega23 © (2004-07-26 14:47) [1]

for i:=0 to CheckListBox1.Items.Count-1 do if CheckListBox1.Checked[i] then СохраняемЭлемент(CheckListBox1.Items[i])

← →
Bobic (2004-07-26 14:48) [2]

Не понял, а можно по полнее ответ?

← →
Кириешки © (2004-07-26 14:50) [3]

Попробуй вот так :

procedure TMyForm.CoxpaHeHueCnuckaClick(Sender: TObject);
var
SL : TStringList;
i : integer;
begin
SL := TStringList.Create;
sl.Clear;

for i := 0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
sl.Add(CheckListBox1.Items.Strings[i]);
end;

sl.SaveToFile("c:\Filename.ext");
sl.Free;
end;

procedure TMuForm.3arpy3kaCnuckaClick(Sender: TObject);
var
SL : TStringList;
i,iindex : integer;
begin
SL := TStringList.Create;
sl.Clear;
sl.LoadFromFile("c:\Filename.ext");

for i := 0 to SL.Count-1 do
begin
if CheckListBox1.Items.IndexOf(sl.Strings[i])<>-1 then
begin
iindex := CheckListBox1.Items.IndexOf(sl.Strings[i]);
CheckListBox1.Checked[iindex] := true;
end;
end;

sl.Free;
end;

Не уверен на счет работоспособности - код прямо сдесь придумывал, а Delphi запускать неохото.
В принципе должно работать ...

← →
Ega23 © (2004-07-26 14:50) [4]

Не понял, а можно по полнее ответ?

Это ещё что, я вот вопрос не понял!

← →
Фагот (2004-07-26 14:52) [5]

Способов скидывать в файл много - проще всего либо через ини-файл, либо через TStringList

← →
Bobic (2004-07-26 14:52) [6]

для Кириешки
" Не уверен на счет работоспособности "

Неработает!!! Мне компилятор говорит :
" Form1.pas(369): ";" expected but "." found "
и показывает на эту строку :
" procedure TMyForm.CoxpaHeHueCnuckaClick(Sender: TObject); "

← →
Ega23 © (2004-07-26 14:54) [7]

2 Кириешки © (26.07.04 14:50) [3]
SL := TStringList.Create; sl.Clear; sl.LoadFromFile("c:\Filename.ext"); for i := 0 to SL.Count-1 do begin if CheckListBox1.Items.IndexOf(sl.Strings[i])<>-1 then begin iindex := CheckListBox1.Items.IndexOf(sl.Strings[i]); CheckListBox1.Checked[iindex] := true; end; end;

Вместо цикла делаем так:
CheckListBox1.Items.Assign(sl);

И всё.

← →
Кириешки © (2004-07-26 14:54) [8]

:0 ???

Круто!!!

Замени TMyForm на TForm1

← →
Ega23 © (2004-07-26 14:55) [9]

" Form1.pas(369): ";" expected but "." found "

Да, приятель, это серьёзная проблема...

← →
ssk © (2004-07-26 14:56) [10]

...если не сказать больше.

← →
Bobic (2004-07-26 14:58) [12]

для Кириешки

>> Замени TMyForm на TForm1 <<

Все равно не работает. Теперь он говорит :

" Form1.pas(369): Undeclared identifier : "CoxpaHeHueCnuckaClick" "

и снова на ту же строку показывает.

СНОВА ТЫ?

Программу пишешь?
Сколько уже написал ?

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

Или больше?

А может ты шпиён? и у тебя тут явка назначена для того чтобы никто не просек, а паролем было :
"Как в CheckListBox сохранить только отмеченые элементы ?????", а? :)

Как уже выразился один из Мастеров, в ветке на тему "Как написать текст прямо на экране" (или что-то вроде этого) :
"... брать книжку по Delphi и начинать писать Hello World ..." ;)

Asta la vista baby. I will not back.

Bobic (26.07.04 14:58) [12]

Ты не волнуйся, походу у тебя ещё долго что-то писать будет.

Либо ты ее, либо она тебя

Как в CheckListBox сохранить только отмеченые элементы Найти похожие ветки