Joker0701
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[more] Добрый день. Есть вот такой код:
function NextButtonClick(pg: Integer): Boolean;
var
Page: TInputQueryWizardPage;
UserName, UserCompany: String;
begin
result:=true;
if pg=wpSelectComponents then
begin
Page := CreateInputQueryPage(wpSelectComponents,
'Личная информация', 'Кто вы?',
'Пожалуйста, укажите ваше имя и компанию, в которой вы работаете, а затем нажмите Далее.');
Page.Add('Name:', False);
Page.Add('Company:', False);
Page.Values[0] := ExpandConstant('{sysuserinfoname}');
Page.Values[1] := ExpandConstant('{sysuserinfoorg}');
UserName := Page.Values[0];
UserCompany := Page.Values[1];
SaveStringToFile(ExpandConstant('{src}')+'\filename.txt',UserName+#13#10, True);
SaveStringToFile(ExpandConstant('{src}')+'\filename.txt',UserCompany+#13#10, True);
end;
end;
В моем понимании он должен брать введенные строки и записывать их в некий файл. Однако, прописывает только те которые ставятся по умолчанию. Если писать свои данные, в файл ставится только символ перевода каретки. Вообще есть ощущение, что в этом случае в переменные ничего не пишется.
Покажите где я затупил. И поправьте. |
Всего записей: 1 | Зарегистр. 21-01-2014 | Отправлено: 08:03 21-01-2014 | Исправлено: Joker0701, 10:52 21-01-2014 |
|
