Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.77/22: Рейтинг темы: голосов - 22, средняя оценка - 4.77
ByAdD
20 / 3 / 3
Регистрация: 08.05.2011
Сообщений: 195
1

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

08.05.2011, 21:09. Просмотров 3972. Ответов 24
Метки нет (Все метки)

на форме расположен 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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.05.2011, 21:09
Ответы с готовыми решениями:

Запись Содержимого, Combobox в ini файл
Здравствуйте ув. программисты. Столкнулся с проблемой. как записать содержимое...

Запись в INI файл значение Radiobutton и чтение значения
Доброго времени суток. У меня имеется программа с 7 формами, хочу сделать,...

Запись ID INI секции
Добрый день форумчане! Вот появился один вопросик как сделать запись ID секции...

CheckBox запись состояния в ini
Как записать состояние CheckBox в ini чтобы при повторном запуске программы они...

Тест (брать с ini случайную запись)
Помогите реализовать маленькую но мне нужную программку для подготовки к...

24
ByAdD
20 / 3 / 3
Регистрация: 08.05.2011
Сообщений: 195
09.05.2011, 00:21  [ТС] 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, но по моему методу не работает
0
Arcor
4899 / 1846 / 387
Регистрация: 20.11.2009
Сообщений: 5,956
Записей в блоге: 1
09.05.2011, 00:26 22
а что в результате получаете?

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

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

и вообще 'items'+IntToStr(s); ???
0
ByAdD
20 / 3 / 3
Регистрация: 08.05.2011
Сообщений: 195
09.05.2011, 00:29  [ТС] 23
в результате он вообще не читает
по вашему работает
у меня есть items1 - это первый вопрос и Items2 -второй вопрос
'items'+IntToStr(s); тоже не считывает
0
Arcor
4899 / 1846 / 387
Регистрация: 20.11.2009
Сообщений: 5,956
Записей в блоге: 1
09.05.2011, 00:43 24
Цитата Сообщение от 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
0
ByAdD
20 / 3 / 3
Регистрация: 08.05.2011
Сообщений: 195
09.05.2011, 13:59  [ТС] 25
Егей опять получилось всё...
я писал всё как вы сказали ток без 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;
0
09.05.2011, 13:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2011, 13:59

Картинки в ini-file. Не верные чтение или запись?
При чтении предварительно записанных изображений из ini-файла в TImage картинка...

ini файл
ребят как создать ini файл для вопросов и ответов тестирования? ...

Ini файл
Не исключено что в коде есть лишние строки, но они являются не помехой для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru