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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.306 RSS
←   Февраль 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
21.02.2006
10:44:51
15:43:48
22
23
24
25
26
27
28


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


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

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

Статистика

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

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


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 374
от 03.02.2006, 04:12

Администратор:Калашников О.А.
В рассылке:Подписчиков: 250, Экспертов: 57
В номере:Вопросов: 4, Ответов: 11

Вопрос № 34279: Подскажите кто-нибудь, как запустить свою программу до окончательной загрузки системы (как это делает Aston Desktop, например)....
Вопрос № 34293: Здравствуйте,такой вопрос:Как через циклы можно в Memo1 напечатать таблицу умножения 1*1=1 1*2=2....до 9*9=81?...
Вопрос № 34319: Здравствуйте уважаемые эксперты. Я пишу программу наподобие E-TypeDialer как можно прочитать пароль сохраненый в Windows. Заранее спасибо....
Вопрос № 34320: Надо сделать так, чтобы таблица - StringGrid - Заполнялась только 0 и 1 и длина каждой ячейки равна 1. Сделал, но работает как-то коряво....

Вопрос № 34.279
Подскажите кто-нибудь, как запустить свою программу до окончательной загрузки системы (как это делает Aston Desktop, например).
Отправлен: 28.01.2006, 12:22
Вопрос задал: Feanar (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: romodos
Здравствуйте, Feanar!
Программа Aston Desktop не загружается до загрузки Windows. Просто она являет собой замену стандартной шелл-оболочки Windows - explorer. Она определяется в реестре. Параметр
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell
---------
FAQ me off!
Ответ отправил: romodos (статус: Практикант)
Отправлен: 28.01.2006, 14:14

Вопрос № 34.293
Здравствуйте,такой вопрос:Как через циклы можно в Memo1 напечатать таблицу умножения 1*1=1 1*2=2....до 9*9=81?
Отправлен: 28.01.2006, 17:22
Вопрос задал: Sassoft (статус: Посетитель)
Всего ответов: 6
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: REFERI
Здравствуйте, Sassoft!
procedure TForm1.Button1Click(Sender: TObject);
var i: word;
begin
for i:=1 to 9 do
memo1.Lines.Add(IntToStr(i)+'*'+IntToStr(i)+'='+IntToStr(i*i));
end;
Удачи в кодинге!
---------
Не судите, да не судимы будете...
Ответ отправил: REFERI (статус: Студент)
Отправлен: 28.01.2006, 17:29
Отвечает: Ерёмин Андрей
Здравствуйте, Sassoft!
Элементарно!

procedure TForm1.Button1Click(Sender: TObject);
var I,J: Integer;
begin
Memo1.Clear;
for I:=1 to 9 do
for J:=1 to 9 do
Memo1.Lines.Add(IntToStr(I)+' * '+IntToStr(J)+' = '+IntToStr(I*J));
end;


---------
Работа - не волк, а произведение силы на расстояние!
Ответ отправил: Ерёмин Андрей (статус: Профессионал)
Отправлен: 28.01.2006, 17:44
Отвечает: sir henry
Здравствуйте, Sassoft!
Можно использовать что-то типа этого:
var
i, j, s: integer;
st: string;
Begin
For i:=1 To 9 Do
Begin
st:='';
For j:=1 To 9 Do
Begin
s:=i*j;
st:=st+Format('%3d', [s]);
End;
Memo1.LinesAdd(st);
End;
End;
Ответ отправил: sir henry (статус: Академик)
Отправлен: 28.01.2006, 19:40
Отвечает: Меркулов Алексей
Здравствуйте, Sassoft!
примерно так

var
s:string;
s:='';
For i:=1 to 9 do begin
For j:=1 to 9 do s:=s+IntToStr(i)+'*'+IntToStr(j)+'='+IntToStr(i*j)+' ';
Memo1.Lines.Add(s);
s:='';
end;
Ответ отправил: Меркулов Алексей (статус: 3-ий класс)
Отправлен: 28.01.2006, 22:45
Отвечает: Diman_A
Здравствуйте, Sassoft!
В примере показано, как напечатать таблицу в memo так:
1*1=1 1*2=2
2*1=2
И так далее, то есть в форме квадрата.

Приложение:

Ответ отправил: Diman_A (статус: 4-ый класс)
Отправлен: 29.01.2006, 06:35
Отвечает: Schmak
Здравствуйте, Sassoft!
Напрмер вот так:
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
memo1.clear;
for i:=1 to 9 do
for j:=1 to 9 do
memo1.lines.add(inttostr(i)+'*'+inttostr(j)+'='+inttostr(i*j));
end;
---------
Не всё то Windows, что висит!
Ответ отправил: Schmak (статус: Практикант)
Отправлен: 29.01.2006, 11:08

Вопрос № 34.319
Здравствуйте уважаемые эксперты. Я пишу программу наподобие
E-TypeDialer как можно прочитать пароль сохраненый в Windows.
Заранее спасибо.
Отправлен: 28.01.2006, 22:52
Вопрос задал: Меркулов Алексей (статус: 3-ий класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Dushin Igor
Здравствуйте, Меркулов Алексей!
QIP - бесплатный клиент, работающий по протоколу ICQ:
http://www.overclockers.ru/softnews/19801.shtml
---------
Глюк без причины - признак вирусины!
Ответ отправил: Dushin Igor (статус: 3-ий класс)
Отправлен: 29.01.2006, 13:04
Отвечает: Green
Здравствуйте, Меркулов Алексей!
Вот ссылка на компонент для этого (RASReader) _http://www.cobans.net/ras.php
А это статья к нему _http://mashp.h10.ru/article/ras3.htm
---------
Не бывает безвыходных ситуаций. Бывают ситуации, выход из которых тебя не устраивает.
Ответ отправил: Green (статус: 1-ый класс)
Отправлен: 31.01.2006, 22:12

Вопрос № 34.320
Надо сделать так, чтобы таблица - StringGrid - Заполнялась только 0 и 1 и длина каждой ячейки равна 1. Сделал, но работает как-то коряво.

Приложение:

Отправлен: 28.01.2006, 22:55
Вопрос задал: Shadow (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Green
Здравствуйте, Shadow!
Пишешь это вместо того, что ты написал.
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0', '1' :
if StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] <> '' then
key := #0;
#8: ;
else key := #0;
end;
end;

Вообще надо писать так Cells[Col,Row], а не так Cells[Row,Col]
Из-за этого и работало как-то коряво.
---------
Не бывает безвыходных ситуаций. Бывают ситуации, выход из которых тебя не устраивает.
Ответ отправил: Green (статус: 1-ый класс)
Отправлен: 30.01.2006, 18:51
Отвечает: Татьяна
Здравствуйте, Shadow!
Не понимаю, к чему такие сложности, просто ставите в свойствах TStringGridа
в options goEditing = true
Затем обрабатываете событие onSetEditText, например, так, как написано в приложении

Приложение:

---------
Нет ничего невозможного!!!

Ответ отправила: Татьяна (статус: Студент)
Отправлен: 30.01.2006, 20:14

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

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

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

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


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

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное