Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.306 RSS
←   Май 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
13.05.2009
03:18:18
17:37:58
14
15
16
16.05.2009
21:22:12
23:39:00
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.306 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Влaдимир
Статус: 9-й класс
Рейтинг: 176
∙ повысить рейтинг >> 		Тимошенко Дмитрий
Статус: Студент
Рейтинг: 137
∙ повысить рейтинг >> 		Victor Pyrlik
Статус: Профессионал
Рейтинг: 82
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1373
от 20.05.2009, 12:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 443, Экспертов: 52
В номере:Вопросов: 3, Ответов: 4
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 167283: Подскажите, как можно в Borland Delphi 7 сделать изменяемый масштаб формы (окна)? В основном нужно увеличение и уменьшение до обычного размера. С пропорциональными увеличением всех стандартных элементов на форме (вроде надписей, кнопок, полей ввода)....

Вопрос № 167307: Написать программу которая будет выводить числа, у квадратов которых на конце буква равная етому числу(пример. 6^2=36, 5^2=25 и тд.) Знаю ,что уже задавал етот вопрос , но мой препод не поверить , что я так решил, потому что мы в 10 кл. не ...
Вопрос № 167339: Здравствуйте уважаемые эксперты программирования нужна ваша помощь: Есть форма http://pic.ipicture.ru/uploads/090515/7RtxHlzgWx.gif Нужно ее реализовать в Делфи. После заполнения должна выводиться эта же форма (поля типа Сумма просчитываются а...

Вопрос № 167.283
Подскажите, как можно в Borland Delphi 7 сделать изменяемый масштаб формы (окна)? В основном нужно увеличение и уменьшение до обычного размера. С пропорциональными увеличением всех стандартных элементов на форме (вроде надписей, кнопок, полей ввода). Каким образом это можно сделать?
Отправлен: 14.05.2009, 14:14
Вопрос задал: Upgrader (статус: Студент)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Foxbox
Здравствуйте, Upgrader!
см. метод

TForm.ChangeScale(M, D: Integer)

В приложении приведены обработчики собственных сообщений на масштабирование формы

Приложение:

Ответ отправил: Foxbox (статус: 3-й класс)
Ответ отправлен: 14.05.2009, 14:29

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249170 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 167.307
    Написать программу которая будет выводить числа, у квадратов которых на конце буква равная етому числу(пример. 6^2=36,
    5^2=25 и тд.)

    Знаю ,что уже задавал етот вопрос , но мой препод не поверить , что я так решил, потому что мы в 10 кл. не проходили:

    size := trunc(log10(i))+1;
    и
    dec(size);
    Сделайте пожалуйста попроще. заранее спс
    Отправлен: 14.05.2009, 18:13
    Вопрос задал: Rainheart74 (статус: Посетитель)
    Всего ответов: 2
    Мини-форум вопроса >>> (сообщений: 7)
    Отвечает: hаcpaka
    Здравствуйте, Rainheart74!
    Вот Вам попроще (господа коллеги, простите за изврат )!
    Так как квадрат 1 = 1 то получается что единица подпадает. Если по условию не должна - заремарте где написано в комментариях.
    И поменяйте придел на нужный вам (в цикле). Где именно - написано в комментариях.
    И еще, уберите комментарии...
    С уважением, hacpaka

    Данный алгоритм будет работать только для чисел не больше 9. т.е. цикл в 100 и в 1 000 000 элементов даст один и тот же результат - 1, 25 , 36 и все. Что в корне не верно для поставленного вопроса.
    --------
    ∙ Отредактировал: Victor Pyrlik, Профессионал
    ∙ Дата редактирования: 17.05.2009, 19:51 (время московское)

    Приложение:

    Ответ отправил: hаcpaka (статус: 2-й класс)
    Ответ отправлен: 14.05.2009, 19:36

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249191 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 1

    Отвечает: Genia007
    Здравствуйте, Rainheart74!
    Предлагаю свой вариант решения Вашей задачи:
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      x, i: integer;
      y: string;
    begin
      x:= StrToInt(Edit1.Text);
      Memo1.Clear;
      for i := 1 to x do
        begin
          y:= IntToStr(sqr(i));
    
     If Length(y) <> 1 then
            delete(y, 1, Length(IntToStr(i)));
          If StrToInt(y) = i then
            Memo1.Lines.Add(IntToStr(i) + ' * ' + IntToStr(i)+ ' = ' + IntToStr(sqr(i)));
        end;
    end;
    в edit вводится конечное число для поиска.
    ---------
    Помогли тебе, помоги и ты.
    Ответ отправил: Genia007 (статус: Студент)
    Ответ отправлен: 16.05.2009, 17:32

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249281 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 167.339
    Здравствуйте уважаемые эксперты программирования нужна ваша помощь:
    Есть форма http://pic.ipicture.ru/uploads/090515/7RtxHlzgWx.gif Нужно ее реализовать в Делфи.
    После заполнения должна выводиться эта же форма (поля типа Сумма просчитываются автоматически).
    Отправлен: 15.05.2009, 01:16
    Вопрос задал: Savter (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 0)
    Отвечает: Genia007
    Здравствуйте, Savter!
    Предлагаю самый простой способ реализации. Все данные вводятся в поля ввода, расчёт в поле сумма происходит после нажатия клавиши "enter" в соответствующим поле "цена" при условии, что заполнено поле "принято". Вывод на печать при нажатии комбинации клавиш Ctrl-P.
    Код:
    procedure TForm1.Edit60KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit60.Text <> '') and(Edit51.Text <> '') then
        Edit69.Text:= FloatToStr(StrToFloat(Edit60.Text) * StrToFloat(Edit51.Text));
    end;

    procedure TForm1.Edit61KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit61.Text <> '') and(Edit52.Text <> '') th
 en
        Edit70.Text:= FloatToStr(StrToFloat(Edit61.Text) * StrToFloat(Edit52.Text));
    end;

    procedure TForm1.Edit62KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit62.Text <> '') and(Edit53.Text <> '') then
        Edit71.Text:= FloatToStr(StrToFloat(Edit62.Text) * StrToFloat(Edit53.Text));
    end;

    procedure TForm1.Edit63KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit63.Text <> '') and(Edit54.Text
<> '') then
        Edit72.Text:= FloatToStr(StrToFloat(Edit63.Text) * StrToFloat(Edit54.Text));
    end;

    procedure TForm1.Edit64KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit64.Text <> '') and(Edit56.Text <> '') then
        Edit74.Text:= FloatToStr(StrToFloat(Edit64.Text) * StrToFloat(Edit56.Text));
    end;

    procedure TForm1.Edit65KeyPress(Sender: TObject; var Key: Char);
    
 begin
      if (key = #13) and (Edit65.Text <> '') and(Edit57.Text <> '') then
        Edit75.Text:= FloatToStr(StrToFloat(Edit65.Text) * StrToFloat(Edit57.Text));
    end;

    procedure TForm1.Edit66KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit66.Text <> '') and(Edit55.Text <> '') then
        Edit73.Text:= FloatToStr(StrToFloat(Edit66.Text) * StrToFloat(Edit55.Text));
    end;

    procedure TForm1.Edit67KeyPress(Sender:
TObject; var Key: Char);
    begin
      if (key = #13) and (Edit67.Text <> '') and(Edit58.Text <> '') then
        Edit76.Text:= FloatToStr(StrToFloat(Edit67.Text) * StrToFloat(Edit58.Text));
    end;

    procedure TForm1.Edit68KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #13) and (Edit68.Text <> '') and(Edit59.Text <> '') then
        Edit77.Text:= FloatToStr(StrToFloat(Edit68.Text) * StrToF
 loat(Edit59.Text));
    end;

    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (ssCtrl in Shift) and (chr(Key) in ['P', 'p']) then
        Print;
    end;
    Весь проект здесь.
    ---------
    Помогли тебе, помоги и ты.
    Ответ отправил: Genia007 (статус: Студент)
    Ответ отправлен: 16.05.2009, 20:14

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249287 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    Спасибо за отличный ответ.

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное