Запись в ini файл

@ByAdD · Регистрация: 08.05.2011

Студворк — интернет-сервис помощи студентам

на форме расположен Edit (туда записываетя вопрос)
Форма Checklistbox и баттен который записывает информацию о выделенных и невыделенных Items в ини файл.
Вопрос как надо подправить чтобы он считывал Текст(вопрос) с Edit и записывал тоже в ini файл.

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button2Click(Sender: TObject); 
 begin
 ini := TIniFile.Create('C:\Documents and Settings\vopros.ini');
 try
 for i := 0 to Checklistbox1.Items.Count - 1 do
 ini.WriteBool('items',Checklistbox1.Items[i], Checklistbox1.Checked[i]);
 finally
 ini.Free;
 end;

В начале структура ini выглядет так
[items]
1=0
2=1
3=0
1=1
2=0
3=0
а надо что бы выглядела так
[items]
Вопрос 1-ый
1=0
2=1
3=0
Вопрос 2-ый
1=1
2=0
3=0

@ByAdD · 09.05.2011, 00:21 **[ТС]**

хахаха не боись =)

Добавлено через 29 минут
Всё таки у меня не получается сделать так чтоб значение присваивал пользователь....

Delphi
1
2
3
4
5
6
7
8
9
10
begin
   ini := TIniFile.Create('C:\Documents and Settings\AdDa\Рабочий стол\Пз\курсач\checklistbox.ini');
   try
     ini.ReadSection('items2', Checklistbox2.Items);
     for i := 0 to Checklistbox2.Items.Count - 1 do
       CheckListbox2.Checked[i] := ini.ReadBool('items2', Checklistbox2.Items[i], False);
   finally
     ini.Free;
   end;
 end;

items2 это 2-ая ачейка .... надо чтобы было как то так 'items'+(S)
где S это номер ячейки вводимый пользователем в edit3, но по моему методу не работает

@Arcor · 09.05.2011, 00:26

а что в результате получаете?

А по моему алгоритму чтоли работает?

И вообще существует ли items2 ?

и вообще 'items'+IntToStr(s); ???

@ByAdD · 09.05.2011, 00:29 **[ТС]**

в результате он вообще не читает
по вашему работает
у меня есть items1 - это первый вопрос и Items2 -второй вопрос
'items'+IntToStr(s); тоже не считывает

@Arcor · 09.05.2011, 00:43

Сообщение от ByAdD

'items'+IntToStr(s); тоже не считывает

а s чему равна изначально? может в ней хранится черт знает какое значение?

сделать может так ?

Delphi
1
2
3
4
5
var s: Integer;
begin
  s := 0;
  s := StrToInt(Edit1.Text);
end;

Добавлено через 8 минут

Сообщение от ByAdD

у меня есть items1 - это первый вопрос и Items2 -второй вопрос

и вот тут еще items1 и Items2, по разному записаны, либо вы ошибку допустили когда сюда писали, либо заполнили руками файл, тут регистр имеет значение при считывании i и I

@ByAdD · 09.05.2011, 13:59 **[ТС]**

Егей опять получилось всё...
я писал всё как вы сказали ток без s := 0; спасиб за помощь

Добавлено через 1 минуту
шас ещё доделаю чуток мелочи и завтра после гулянок продолжим.... мб споткнусь ещё где нибудь=)

Добавлено через 12 часов 49 минут
А как можно сделать так чтобы ещё и сам вопрос записывался?
я сделал по аналогии но не работает

Delphi
1
2
3
4
5
6
7
8
9
10
d:= 0;
  d := strtoint(Edit1.Text);
k:=k+1;
 ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'test.ini');
 try
 for i := 0 to Checklistbox1.Items.Count - 1 do
 ini.WriteBool (IntToStr(d)+'items'+IntToStr(k),Checklistbox1.Items[i], Checklistbox1.Checked[i]) ;
 finally
 ini.Free;
 end;

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	09.05.2011, 00:26
	а что в результате получаете? А по моему алгоритму чтоли работает? И вообще существует ли items2 ? и вообще 'items'+IntToStr(s); ??? 0

@ByAdD 20 / 3 / 3 Регистрация: 08.05.2011 Сообщений: 195
	09.05.2011, 00:29 [ТС]
	в результате он вообще не читает по вашему работает у меня есть items1 - это первый вопрос и Items2 -второй вопрос 'items'+IntToStr(s); тоже не считывает 0

Опции темы