Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
ckotick

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Но при завершении приложения вылетает run-time ошибка.
Был побежден ShareMem - не там подключался в проекте. Да и вообще перешел на FastShareMem.

Всего записей: 153 | Зарегистр. 01-08-2005 | Отправлено: 11:06 26-06-2006 | Исправлено: ckotick, 11:29 26-06-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ckotick

Цитата:
Это все ShareMem, зараза.. Но к сожалению, приложение с библиотекой обмениваются строками (не короткими). Переход на FastShareMem не помог - новые ошибки...

Сделай передачу строк через PChar - как это в C делается, тогда и ShareMem не нужен и универсальнее получается (до кучи и способ вызова можно сделать stdcall).

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 11:31 26-06-2006 | Исправлено: RomanTim, 11:32 26-06-2006
ckotick

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RomanTim
Цитата:
Сделай передачу строк через PChar - как это в C делается
Попробовал - че-то не так получилось. Хотя, наверное, переделаю в конце-концов. А вообще, после правильного подключения модуля все заработало корректно. Ну и FastShareMem тоже гораздо более универсален, чем ShareMem+borlndmm.dll
 

Всего записей: 153 | Зарегистр. 01-08-2005 | Отправлено: 11:46 26-06-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
люди выручайте никогда неработал с генератором случайных чисел....
Как осуществить проверку с соответствием т.е.
чтбы генератор RND генерировал числа в промежутке от 1 до 5 и в дальнейшем выпонял различный условия в зависимости от сгенерированного числа..
т.е. если 1 ,значит условия .....
если 2 , значит условие 2...
если 5, значие условия 5...
 
Как это сделать помогите ведь для Вас -это 5 секунд я уверен

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 09:51 27-06-2006
Nightcrawler

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a := Random (5)+1 //кажется так, Дельфи нет под рукой чтобы проверить
case a of
1: begin code1 end;
2: begin code2 end;
3: begin code3 end;
4: begin code4 end;
5: begin code5 end;
end;
кажется так

Всего записей: 98 | Зарегистр. 11-05-2004 | Отправлено: 10:02 27-06-2006
OrlangurStep



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как программы заменяющие стандартный диспетчер задач заставляют винду запускать их? Можно реализовать это на Delphi 7. Конкретно для NT|2000|XP.

Всего записей: 1392 | Зарегистр. 08-04-2006 | Отправлено: 10:20 27-06-2006
ckotick

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
И еще перед кодом от Nightcrawler нужно добавить
Randomize;

Всего записей: 153 | Зарегистр. 01-08-2005 | Отправлено: 11:51 27-06-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OrlangurStep
Можно просто заменить старый taskmgr.exe своим, новым
Правда старый лучше сохранить и в dllCache тоже посмотреть

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 12:14 27-06-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nightcrawler
ckotick
 
 
 
Всё работает
 

Код:
 
procedure TForm1.FormCreate(Sender: TObject);
var
 
 r,s :Byte;
begin
 Randomize;
 
r := Random(5)+1;
 case r of
1: begin ShowMessage('1') end;
2: begin ShowMessage('2') end;
3: begin ShowMessage('3') end;
4: begin ShowMessage('4') end;
5: begin ShowMessage('5') end;
end;
 
end;
 
end.
 

 
 
 
Спасибо , а если сделать так, если сделать через массив :
 
 

Код:
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
     a :array [1..5] of Byte;
     r,i :Byte;
     b :set of Byte;
begin
b := [];
      i := 1;
     repeat
            r := Random(5)+1;
            if not (r in b) then
            begin
                  Include(b, r);
                  a[i] := r;
                  Inc(i);
            end;
      until i = 6;
 
end;
 
 

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 13:22 27-06-2006 | Исправлено: OOD, 13:30 27-06-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
первый код : делает что ты просил.
второй: только набивает массив неповторяющимися числами 1-5
Что конкретно тебе надо ?

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 14:48 27-06-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc
Всё спасибо с а массивом перепудрил и так отлично работает

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 15:23 27-06-2006
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
идея с массивом вообще дело непонятно!!!!

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 20:00 27-06-2006
ErgoB

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Попробовал использовать source formater'ы типа DelForExp, Jedi Code Format но оказалось, что у всех на редкость одинаковые функции. Кто нибудь знает эксперты такого типа, чтобы на лету код форматировался, как например в VB.NET ? И  какими вообще экспертами такого типа кто пользуется ?
Заранее спасибо.

Всего записей: 5 | Зарегистр. 25-05-2006 | Отправлено: 11:44 28-06-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
проблема такая существует приложение внутри него WebBrowser Со страничьками.
Как передать WebBrowseru нажатие клавиш?
пробовал так:
Подробнее...
 
не получается
 
пробовал так:
 

Код:
 
WebBrowser1.Perform(WM_CHAR, Ord('3'), 0);
 

или  

Код:
SendMessage(WebBrowser1.Handle, WM_CHAR, Ord('A'), 0);
 

аднако если сделать так :
SendMessage(memo1.Handle, WM_CHAR, Ord('A'), 0);
то всё получаетя мемо принимает клавиши а вот браузер нет? почему?




для кода используем тег [more]
не ставь много переводов строк, а то слишком большой пост получается

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 16:04 28-06-2006 | Исправлено: ShIvADeSt, 01:57 30-06-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
попробуй вот это
Подробнее...

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 16:35 29-06-2006 | Исправлено: greenpc, 17:34 29-06-2006
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:59 30-06-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто разбирался с исходниками DBLookup, подскажите, пожалуйста, каким образом он реагирует на открытие и закрытие связанных с ним датасетов. Где копать?
 
Добавлено:
Вопрос снят, разобрался.

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 14:12 30-06-2006
dyr farot

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
класс TDataLink
+ тут:
http://www.rsdn.ru/article/?420
почитай

Всего записей: 697 | Зарегистр. 03-08-2004 | Отправлено: 14:38 30-06-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
удалено

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 14:48 30-06-2006 | Исправлено: greenpc, 14:49 30-06-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dyr farot
 
Спасибо! Хорошая статья.

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 15:35 30-06-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru