Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Bobic © (2004-07-26 14:44:00)
Помогите плийз.

Anatoly Podgoretsky (2004-07-26 16:22:00) [1]
Либо ты ее, либо она тебя

Кириешки (2004-07-26 15:01:00) [2]
СНОВА ТЫ?

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

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

Или больше?

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

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

Asta la vista baby. I will not back.

Ega23 (2004-07-26 15:01:00) [3]
Bobic (26.07.04 14:58) [12]

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

Bobic (2004-07-26 14:58:00) [4]
для Кириешки

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

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

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

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

Кириешки (2004-07-26 14:57:00) [5]
Это я не вам Ega23 © (26.07.04 14:54) [7]
Это я на вопрос Bobic (26.07.04 14:52) [6] отвечал

ssk (2004-07-26 14:56:00) [6]
...если не сказать больше.

Ega23 (2004-07-26 14:55:00) [7]
" Form1.pas(369): ';' expected but '.' found "

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

Ega23 (2004-07-26 14:54:00) [8]
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:00) [9]
:0 ???

Круто!!!

Замени TMyForm на TForm1

Фагот (2004-07-26 14:52:00) [10]
Способов скидывать в файл много - проще всего либо через ини-файл, либо через TStringList

Bobic (2004-07-26 14:52:00) [11]
для Кириешки
" Не уверен на счет работоспособности "

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

Кириешки (2004-07-26 14:50:00) [12]
Попробуй вот так :

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:00) [13]
Не понял, а можно по полнее ответ?

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

Bobic (2004-07-26 14:48:00) [14]
Не понял, а можно по полнее ответ?

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »