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

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

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

ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 101

   

V1s1ter



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
adli82
dr1v3
Ну раз такая пьянка, то вот думаю для парсера пригодится:
Подробнее...




читаем про тег more

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 17:13 22-04-2009 | Исправлено: ShIvADeSt, 02:10 23-04-2009
dr1v3



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я ошибся при копипасте, у меня просто другие названия переменных, должно было быть

Код:
for i:=1 to length(a) do if a[i]<#32 then delete(a,i,1);

 
За этот код спасибо, всё заработало. Возьму алгоритм на заметку. Учусь, учусь

Код:
 
I:=1;
If Length(A)<>0 Then
  Repeat
    If A[ I ]<#32 Then Delete(A,I,1) Else Inc(I)
  Until I>Length(A)
 

Всего записей: 13 | Зарегистр. 29-04-2008 | Отправлено: 17:16 22-04-2009
Postscriptum



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, подскажите, плиз - у меня в Delphi 2007 при создании нового проекта стала вдруг вместо unit1/Form1 создаваться unit2/Form2. Где это можно поправить?

Всего записей: 464 | Зарегистр. 31-01-2004 | Отправлено: 17:45 22-04-2009
adli82



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Postscriptum
Просто в папке куда Delpi сохраняет файлы по умолчанию уже есь файл
Цитата:
unit1/Form1  
если ето не удобно то убери ети файлы с папки куда Delphi сохраняєт по умолчанию в любое другое место (точного пути не помню но вроди в "Мои документы\RAD...\Projects")

Всего записей: 5 | Зарегистр. 22-04-2009 | Отправлено: 17:52 22-04-2009
xXxVov4ikxXx



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
У меня есть масив TImage, в зависимости от кое-какого значения, картинка должна менятся в некоторых из них. Я в Imagelist залил 3 картинки. Дальше пишу:
 
 for i:=1 to n_ku4ki do //зміна картинок
 begin
  if StrToInt(Label_mas[i].Caption) > ((3*Options.UpDown_do.Position) div 4)
  then Main.main_imglist.GetBitmap(2, Image_mas[i].Picture.Bitmap)
  else if StrToInt(Label_mas[i].Caption) > 0
       then Main.main_imglist.GetBitmap(1, Image_mas[i].Picture.Bitmap)
       else Main.main_imglist.GetBitmap(0, Image_mas[i].Picture.Bitmap);
 end;
 
При первом показе картики норм, тоесть соответствуют реальности, а вот когда они должны менятся, вот тогда беда: все остается таким как есть(( Кто может - помогите. Буду очень благодарен.

Всего записей: 64 | Зарегистр. 26-01-2009 | Отправлено: 19:23 22-04-2009 | Исправлено: xXxVov4ikxXx, 19:27 22-04-2009
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xXxVov4ikxXx
Попробуй перед GetBitmap делать
>Image_mas[i].Picture.Bitmap := nil;
>Main.main_imglist.GetBitmap(1, Image_mas[i].Picture.Bitmap)

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 16:50 23-04-2009
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xXxVov4ikxXx
Может, перерисовать?
Image_mas[i].Update;
или  
Image_mas[i].Invalidate;


----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 17:08 23-04-2009
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MrZeRo
А пофиг, переменная i будет фсегда одинакого.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 21:20 23-04-2009
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Самое оптимальное - поставить брейкпойнты и посмотреть отрабатывают события или нет.

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

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:12 24-04-2009 | Исправлено: ShIvADeSt, 04:46 24-04-2009
xXxVov4ikxXx



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Image_mas[i].Picture.Bitmap := nil; - помогло, но иногда не правильно работает. (остается пустая картинка)
 
 
Image_mas[i].Invalidate; - вот это помогло - можешь сказать, что делает эта команда?

Всего записей: 64 | Зарегистр. 26-01-2009 | Отправлено: 19:11 24-04-2009
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xXxVov4ikxXx
Заставляется перерисовать указанный объект.

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 20:12 24-04-2009
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xXxVov4ikxXx
Это лучше спросить у MrZeRo или у mr.Ironwin

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 20:26 24-04-2009
eNIKmatic



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужна помощь...
Как можно отследить нажатия клавиш в системе?
И где можно найти Chart таблицу всех клавиш?

Всего записей: 3 | Зарегистр. 12-04-2008 | Отправлено: 12:43 25-04-2009
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
eNIKmatic
Вам сюда: Hooks - аспекты реализации.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 13:14 25-04-2009
Aleksandr_N

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, никогда раньше подобного не приходилось делать.
Нужно в файле dpr проекта написать
STimer.OnTimer := STimerTimer;
Но если прописать
procedure STimerTimer(Sender: TObject);
то ошибка на STimer.OnTimer := STimerTimer;
Incompatible types: 'method pointer and regular procedure'
 
Подскажите как правильно.

Всего записей: 1665 | Зарегистр. 25-02-2008 | Отправлено: 22:44 25-04-2009 | Исправлено: Aleksandr_N, 22:45 25-04-2009
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aleksandr_N
Ну вот например: http://delphikingdom.com/asp/answer.asp?IDAnswer=68885 Или еще лучше: Жизнь и смерть в режиме run-time.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 23:27 25-04-2009
Aleksandr_N

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Frodo_Torbins
Это немножко не то. Это хорошо когда есть форма. А в консольных приложениях?

Всего записей: 1665 | Зарегистр. 25-02-2008 | Отправлено: 00:13 26-04-2009
V1s1ter



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aleksandr_N
Писал подробно, а експлоер отказал...
Повторять неохота, поэтому к ратце так: Создаеш некий слас от TObjec в котором есть таймер и три процедуры Create, Destroy, TimerTimer.  
В Create Создаеш экземплят таймера и пристваеваеш событие.
Долее где тебе надо создаеш экземпляр этого клосса. И пользуеш таймер через этот класс.

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 00:53 26-04-2009
Aleksandr_N

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вышел из положения другим способом: встроил таймер в модуль.

Всего записей: 1665 | Зарегистр. 25-02-2008 | Отправлено: 02:48 26-04-2009
V1s1ter



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

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 05:32 26-04-2009
   

Страницы: 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 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru