Консультации Портала - Консультация #21731

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 21731

03.06.2005, 20:12

0.00 руб.

0 2 2

Компьютеры Программирование

Всем добрый вечер.
Подскажите каким образом можно добавить в ini, только секцию
Я пробую так:
procedure TForm1.Button2Click(Sender: TObject);
var Ini:TIniFile;
e:string;
begin
Ini := TIniFile.Create(GetAppPath+‘options.ini‘);
e:=Edit1.Text;
Form1.TreeView1.Items.Add(Nil,e);
if (e=‘‘) then ShowMessage(‘одно из полей пустое‘) else
Ini.Writestring(e,‘‘,‘‘);
INI.Free;
end;
Подскажите как правильно нужно делать.
И правлильно ли я добавляю коревую ветку:
Form1.TreeView1.Items.Add(Nil,e);

Обсуждение

Неизвестный

03.06.2005, 20:57

общий

это ответ

Здравствуйте, Алексей!
ответ на Ваш вопрос в приложенном коде

Приложение:
...function GetAppPath: String;...implementationuses Inifiles;...function GetAppPath: String;begin Result:= ExtractFilePath(ParamStr(0));end;...procedure TForm1.Button2Click(Sender: TObject);var Ini: TIniFile; e: string; IniFile: TextFile; IniName: string;begin IniName:= GetAppPath + ‘options.ini‘; if not FileExists(IniName) then begin AssignFile(IniFile, IniName); Rewrite(IniFile); CloseFile(IniFile); end; Ini:= TIniFile.Create(IniName); try e:= Edit1.Text; Form1.TreeView1.Items.Add(Nil,e); if (e = ‘‘) then MessageBox(Handle, ‘одно из полей пустое‘, ‘Заполните поле‘, 0) else //Ini.Writestring(e,‘‘,‘‘); begin if not (Ini.SectionExists(e)) then begin AssignFile(IniFile, IniName); Append(IniFile); Writeln(IniFile, ‘[‘ + e + ‘]‘); CloseFile(IniFile); end; end; finally FreeAndNil(INI); end;end;...

давно

Вадим Исаев ака sir Henry

Мастер-Эксперт
425
4118

04.06.2005, 12:05

общий

это ответ

Здравствуйте, Алексей!
1. Только секцию в ini-файл добавить, увы, нельзя. Можно записать пустую строчку или вообще какое-либо значение. При этом, если секция не существует, то она автоматически создается.
Встречный вопрос - зачем создавать секцию, если в ней ничего нет? :)
2. Правильно.

Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.