checklistbox
lazarus / 10-Designer

----------------------------------------------------------------------
cazzajay · 2009-08-05 11:09

another simple problem i am having trouble with (learning curve and
all)

i am trying to write to an INI file, in the following format, a list
of items that are checked in a checklistbox

the output should be, in a checklistbox with 7 items, of which 3 items
are checked (the first, the second and the sixth):

[checks]
count=3
1=item1text
2=item2text
3=item6text

and i am using this code:

var
myini: tmeminifile;
count1: integer;
count: integer;

begin
myini := tmeminifile.create('myini.ini');
count1 := 1;
count := checklistbox1.Items.Count;
      repeat begin
      if checklistbox1.Checked[count1] = true then
         begin
         myini.writestring('checks', inttostr(count1),
checklistbox1.Items.Strings[count1]);
         myini.writeinteger('checks', 'count', count1);
         end;
      count1 := count1 + 1;
      end until count1 > count;
end;

sorry to keep bothering everyone, but i am still learning the lingo
and i have made a lot of progress over the past month!

I should say when I run this code i get error SIGSEGV

----------------------------------------------------------------------
cazzajay · 2009-08-05 11:52

i've solved it myself (yay) - learning!

it was the end until bit - should be

end until count1 = count

not

end until count1 > count

as it was trying to find data in a line in the checklistbox that
didn't exist.

hope this might help someone else

----------------------------------------------------------------------
Vincent Snijders · 2009-08-06 08:36

The index goes from 0 to count-1 .