Вопросы по Delphi (все версии) - часть 3 - [9] :: Прикладное программирование :: Компьютерный форум Ru.Board
Перейти из форума на сайт.

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

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

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

   

OOD

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста как вырезать значения в строках memo с определенного символа и по определенный символ
например есть запись :
>>>ТЕСТ <<<
 
нужно вырезать Всё, что после >>> и всё, что до <<< т.е. чтобы просто было слово ТЕСТ
 
 
Вроде сделал так:
 
j : integer;
buf: string;
s: string;
ses: string;
 
 
if Pos('>>>>', memo1.Text)>0 then
   begin
      buf :=memo1.Text;
      J := Pos( '>>>>', Buf );
      If J > 0 then begin
      S := '>>>>';
      J := Pos( S, Buf )+Length(S);
      ses := Copy( Buf, J, PosEx( '<<<<', Buf, J ) - J );
      memo2.text:=ses;
    end;
end;
Всего записей: 3394 | Зарегистр. 20-05-2006 | Отправлено: 13:32 27-04-2007 | Исправлено: OOD, 13:41 27-04-2007
Dunkel1

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

Цитата:
А можно узнать зачем? может вы задачу не стой стороны решаете?

 
Мне нужно будет использовать размеры объекта для расчета. То есть, например есть квадрат 20*20 пикселей. Пользователь задает размеры в миллиметрах, то есть для него это должно быть 20*20 мм.
Я использую компоненты FlexGraphics для работы с векторной графикой. Там есть масштабный коэффициент PixelScaleFactor. По умолчанию для него задано значение 1000. Это означает, что 1 пиксел на экране при масштабе 100% будет равен 1000 логическим единицам. То есть, для того, чтобы отобразить квадрат в 10 пикселов, размеры его сторон должны равняться 10*1000=10000 единицам. Так вот, минимальное значение PixelScaleFactor может быть 1 (так как целое). То есть получается, 1 пиксел = 1 мм. Но это не годится, так как получается что, например, линия длиной в 80 пикселов(то есть для пользователя тогда 80 мм) на экране выглядит в четверо меньше(на одном мониторе, а на другом, например, больше в 4 раза). То есть, придется самому вручную пересчитывать пиксели в миллиметры.
 
 
 
 
Всего записей: 25 | Зарегистр. 15-11-2005 | Отправлено: 14:11 27-04-2007
George_Lucky



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, подскажите, какую опцию выключить в D7, чтоб перестала работать подсказка при наведении мыши на объект?
Всего записей: 413 | Зарегистр. 12-09-2002 | Отправлено: 07:53 28-04-2007
PowerChute



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
George_Lucky
Environment Options --> Designer --> Show designer hints

----------
Хочешь всего и сразу, а получаешь ничего и постепенно.
Всего записей: 520 | Зарегистр. 13-10-2004 | Отправлено: 08:38 28-04-2007
George_Lucky



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
PowerChute
ok
thanks
Всего записей: 413 | Зарегистр. 12-09-2002 | Отправлено: 10:14 28-04-2007
vipettut



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Посоветуйте, пожалуйста, хорошую (=безглючную, нетормознутую) библиотеку/набор классов, реализующую контейнеры (Hash, Map и т.п.)
 
 
 
Добавлено:
 
DeCAL/SDL - это можно использовать? как там с багами?
 
(Живет тут: http://sourceforge.net/projects/decal/)
 
 
Всего записей: 680 | Зарегистр. 17-03-2006 | Отправлено: 10:28 28-04-2007
vipettut



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

А также какое мнение насчет DIContainers?
 
http://www.yunqa.de/delphi/containers/

----------
Если сегодня нет настоящего, то и завтра не будет настоящего.
Когда процесс роста идет, это осознается позже, не во время работы. /В. Полунин/
Всего записей: 680 | Зарегистр. 17-03-2006 | Отправлено: 12:33 28-04-2007
acue

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможно ли вызвать из метода объекта наследника, не inherited метод родителя, а inherited метод предродителя?
Всего записей: 188 | Зарегистр. 02-12-2002 | Отправлено: 13:27 28-04-2007
OdesitVadim



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
acue
Наврядли можно зделать официальными методами. Но если порыться в виртуальной таблице (VTM), то невозможного нет.
Но если возникает такая необходимось - кривость дизайна. Решается обычно перестройкой дерева наследников

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.
Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 15:14 28-04-2007
vserd

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dunkel1
Никогда не занимался в этой области,  но думаю что без собственной логической единицы не обойтись. Через PixelPerInch можно вычислить число точек на мм, только число там будет не целым, а дробным.... для уменьшения погрешности.
Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 15:38 28-04-2007
scharhan

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем! Помогите решить проблему.  
Я программирую на Delphi 7. При компиляции программы(только этой) мне воводится сообщение  
---------  
[Предупреждение] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform  
----------  
И в итоге прога идет только на моем компе!  
Что сделать Помогите!
Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 17:47 28-04-2007
MrZeRo



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
acue
Была хорошая книжка Рэя Лишнера, называлась что-то вроде Delphi In A Nutshell, там у него описаны всякие фокусы с VMT. Посмотри ее.

----------
... не это главное ...
Всего записей: 832 | Зарегистр. 30-01-2002 | Отправлено: 18:47 28-04-2007 | Исправлено: MrZeRo, 18:48 28-04-2007
OOD

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У кого нибуть есть исходник любого ICQ клиента , или линка поделитесь плыз
Всего записей: 3394 | Зарегистр. 20-05-2006 | Отправлено: 20:16 28-04-2007
M1chA



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди!Помогите решить проблему.
Нужно сменить надпись(на форме) в программе написаной на Delphi.  
Программа естественно,уже скомпилирована.  
Пробовал использовать ResourceHacker,не помогло.  
Подскажите,как это сделать?Какую программу использовать?
Всего записей: 283 | Зарегистр. 11-10-2006 | Отправлено: 09:15 29-04-2007
vipettut



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
M1chA,
 
Если никакие навороты типа защит не используются, попробуй просто любой hex-редактор. Ищи по строке, которая пишется в TLabel.

----------
Если сегодня нет настоящего, то и завтра не будет настоящего.
Когда процесс роста идет, это осознается позже, не во время работы. /В. Полунин/
Всего записей: 680 | Зарегистр. 17-03-2006 | Отправлено: 09:18 29-04-2007
M1chA



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2vipettut  
Спасибо,сейчас попробую.
 
Добавлено:
2vipettut
Спасибо,получилось )))))))
Всего записей: 283 | Зарегистр. 11-10-2006 | Отправлено: 09:24 29-04-2007
RomanTim

Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
scharhan
Предупреждение говорит о том, что юнит FileCtrl не кроссплатформенный - в киликсе не поддерживается. Если у тебя программа не кроссплатформенная, не обращай на это внимание (можно вообще выключить в свойствах проекта)
А то, что не запускается на другом компе... ты хоть напиши как не запускается - повисает, выдает ошибку, еще как-то
Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 12:34 29-04-2007
scharhan

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Исходник аськи можно глянють здесь
http://sources.ru/delphi/index.html
 
Добавлено:
Прога не повисает! Когда её открываешь винда просто выдеёт отчет об ошибке! Мнебы как нибудь удалить этот FileCtrl.
Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 15:16 29-04-2007
deks



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
scharhan
 
Ради хохмы глянул на ссылку
Цитата:
Исходник аськи можно глянють здесь
http://sources.ru/delphi/index.html
 

 
и где же сабж? ))
Всего записей: 857 | Зарегистр. 09-10-2003 | Отправлено: 20:30 29-04-2007
afiget



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
http://www.sources.ru/vb/vb_simple_icq_client.shtml
 
Добавлено:
Протоколы:
http://www.icqv7.cjb.net/
http://www.algonet.se/~henisak/icq/
Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 21:13 29-04-2007
   

Страницы: 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 (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru