Вопрос № 101369: Здаравствуйте, создаю службу:
Delphi 2006 > New > Other > Service Application
Как мне сделать, чтобы она регистрировалась и загружалась как служба?...Вопрос № 101439: Здравствуйте, Уважаемые!!!:-) Подскажите мне, пожалуйста. Я ввожу массив в поле Memo с вещественными числами, нужно вычислить сумму элементов массива и разделить ее на 7. Что я не так делаю? Спасибо!:-)...Вопрос № 101459: помогите найти directX для Delphi...
Вопрос № 101.369
Здаравствуйте, создаю службу:
Delphi 2006 > New > Other > Service Application
Как мне сделать, чтобы она регистрировалась и загружалась как служба?
Отвечает: Уваров Андрей Александрович
Здравствуйте, Зощенко Алексей!
в параметре передайте своей программе /install или /uninstall для удаления соответсвенно. Так же запуск - /start, остановка - /stop
--------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: AvePassion@GMail.Com
Ответ отправил: Уваров Андрей Александрович (статус: Студент)
Ответ отправлен: 09.09.2007, 12:21 Оценка за ответ: 4
Вопрос № 101.439
Здравствуйте, Уважаемые!!!:-) Подскажите мне, пожалуйста. Я ввожу массив в поле Memo с вещественными числами, нужно вычислить сумму элементов массива и разделить ее на 7. Что я не так делаю? Спасибо!:-)
Приложение:
Отправлен: 09.09.2007, 22:41
Вопрос задала: Алена (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Verena
Здравствуйте, Алена!
Ошибка у Вас в отсутствии begin-end в цикле - Вы, получается, семь раз обнуляете sum. Правильно будет так:
procedure TForm1.Button1Click(Sender: TObject);
Var
i:integer;
sum: real;
sredn:real;
begin
Memo1.Lines[0]:='';
sum:=0; {перемещаем из цикла}
For i:=1 to 7 do begin {добавляем операторные скобки}
t[i]:=StrToFloat(Memo1.Lines[i-1]);
sum:= sum+ t[i]; end;
sredn:=sum/7;
Label1.Caption:=FloatToStr(sum);
end;
Удачи! :)
--------- Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: Студент)
Ответ отправлен: 09.09.2007, 22:55 Оценка за ответ: 5
Отвечает: Omickron
Здравствуйте, Алена!
В Вашем коде не пойму, зачем нужна эта строка:
Memo1.Lines[0]:=''; ?
Далее, почему в Вашем массиве всего 7 элементов? В условии об этом ничего не говорится.
Отсчёт строк в компоненте Memo начинается с 0 и заканчивается Count-1.
Далее, в цикле вы с каждым шагом сбрасываете значение суммы в 0:
sum:=0;
Больше в цикле ничего не делается, т.к. если после for ... do отсутствует блок begin ... end, в цикле выполняется одна (следующая) строка.
Так что проще показать, как правильно, чем разбираться, что ещё неправильно в этом коде.
Для реализации массив не нужен.
Нужны 2 переменные: целая (счётчик) и с плавающей точкой (для суммы и результата)
var
i:integer;
r:real;
begin
r:=0;
for i:=0 to Memo1.Lines.Count-1 do
begin
r:=r+StrToFloat(Memo1.Lines[i]);
end;
r:=r/7;
Label1.Caption:=FloatToStr(r);
end;
Если это оформить в виде функции, то можно обойтись без переменной r:real, используя вместо неё Result:real (стандартная переменная, в которую передаётся результат выполнения функции). Код приводить не буду, он идентичен.
Удачи
Ответ отправил: Omickron (статус: 3-ий класс)
Ответ отправлен: 09.09.2007, 23:02 Оценка за ответ: 5 Комментарий оценки: Спасибо!:-) И Вам удачи!;-)
Отвечает: Дмитрий С.
Здравствуйте, Алена!
вот, подправил немножко.. должно работать.
Приложение:
--------- Наши программисты самые программистые программисты!..
Ответ отправил: Дмитрий С. (статус: 4-ый класс)
Ответ отправлен: 11.09.2007, 13:32 Оценка за ответ: 5
Отвечает: sir henry
Здравствуйте, Хохлов Д.А.!
Например здесь:
http://clootie.ru/delphi/index.html
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 10.09.2007, 05:02
Отвечает: PGM
Здравствуйте, Хохлов Д.А.!
http://www.delphi-jedi.org - универсальный сайт для всех Win32 API и много другого
Ответ отправил: PGM (статус: 9-ый класс)
Ответ отправлен: 10.09.2007, 22:36
Отвечает: LEXASOFT
Здравствуйте, Хохлов Д.А.!
http://lexasoft.mylivepage.ru/files/delphix.rar
--------- >>>Этот текст уменьшается, значит от Вас уносят монитор<<<
Ответ отправил: LEXASOFT (статус: 7-ой класс)
Ответ отправлен: 10.09.2007, 23:30
Отправить вопрос экспертам этой рассылки
Приложение (если необходимо):
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.