Lana4ka
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще один вопрос возник:
В инсталляторе нужно создать дополнительную страницу с текстовым полем. В это поле будет вводится цифорка (0-1000)...И вот эту цифорку нужно тоже записать в файл .ini.
Код, который я написала, не выводит цифры...то есть стирает то, что было изначально записано в файле .ini, но то, что прочитал из поля, не пишет...Где я не права?
Код:
[Code]
var
Page: TInputQueryWizardPage;
DirectorNumber: String;
procedure InitializeWizard();
begin
Page:=CreateInputQueryPage(5,'', '', 'Введите рег.номер и нажмите кнопку Далее');
Page.Add('Регистрационный номер:', False);
DirectorNumber:=Page.Values[0];
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
s, p, num: string;
begin
s:= ExpandConstant('{app}');
p:= ExpandConstant('{app}\Data');
StringChange(s, '\', '/');
StringChange(p, '\', '/');
If CurStep = ssDone then
begin
SetIniString('mysqld', 'basedir', AddQuotes(s), ExpandConstant('{app}\my.ini'));
SetIniString('mysqld', 'datadir', AddQuotes(p), ExpandConstant('{app}\my.ini'));
SetIniString('mysqld', 'server-id', DirectorNumber, ExpandConstant('{app}\my.ini'));
SetIniString('mysqld', 'auto_increment_offset', DirectorNumber, ExpandConstant('{app}\my.ini'));
end;
end;
|
|
Всего записей: 16 | Зарегистр. 13-04-2009 | Отправлено: 05:45 15-04-2009 | Исправлено: Lana4ka, 05:47 15-04-2009 |
|
