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

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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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

Jokerjar79

Advanced Member

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

Maks150988, чтоб компилятор не ругался про несовместимость типов, объяви массив не Pchar'ов, а string'ов. А если нужен именно массив Pchar'ов, то инициализируй вручную

StrTxtBit[0] := Pchar(resstr0);
StrTxtBit[1] := Pchar(resstr1); ...

Всего записей: 710 | Зарегистр. 08-09-2007 | Отправлено: 11:42 15-04-2008

tishkir

Newbie

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

Добрый день.
Вопрос простейший, туплю третьи сутки.

Есть DBGrid с возможностью редактирования ячеек. Щёлкаем по ячейке. Она подсвечивается. Щелкаем еще раз. Она входит в режим редактирования и в ней появляется курсор. Как отследить это событие ?

Всего записей: 26 | Зарегистр. 13-10-2006 | Отправлено: 14:54 15-04-2008

Maks150988

Advanced Member

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

Jokerjar79
Спасибо. Пришлось немного подкорректировать далог с настройками из-за того что мне нужно было подсовывать для некоторых значений одну цифру, которую я потом через Format вставлял в строку. Код с инициализацией массива вставил в начало программы. И вот если всего лишь число для значения массива было с одной цифрой, то программа не запускалась. Я не знаю из-за чего это так...
И еще вот хотел узнать... Есть код:

Код:

type
TMenuItem = record
text : PChar;
bmp : HICON;
end;
var
MenuItems : array [1..19] of TMenuItem =
(
(text : PChar('Str'); bmp : 0),
(text : PChar('Str'); bmp : 0),
(text : 'Str'; bmp : 0)
=========================
);

Как в этом случае проинициализировать массив?

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 18:24 15-04-2008 | Исправлено: Maks150988, 18:39 15-04-2008

Frodo_Torbins Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору mazutka Если в пределах одного сегмента работаете, то можно и так. Хотя в таком случае сервер не обязателен.
	Всего записей: 2319 \| Зарегистр. 24-05-2007 \| Отправлено: 19:11 15-04-2008

mazutka Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Frodo_Torbins ну щас доделаю и тестану в полном размере))) пасиб за советы)
	Всего записей: 4 \| Зарегистр. 10-12-2006 \| Отправлено: 04:25 16-04-2008

Dimoniusis

Silver Member

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

mazutka да Мейл слоты работают броадкастом в текущем сегменте сети.

Насчет второго сервера - в том же ICQ можно запускать в инете кучу серверов - и они не отнимают клиентов друг от друга. Можно наоборот связать сервера в свою сеть - чтобы повысить надежность например

Если надо по TCP/IP - ну можно попорбовать в фоновом потоке устроить флуд UDP пакетиками мелкими по текущей подсетке, с данными что "мол тут новый сервер"... Правда если подумать, то любой человек-юзер запустивший на своей машине сервер тут же перенаправит всех клиентов на себя с нормального сервера (ну при боевом использовании). Можно опять же мейлслотом сообщить.

Всего записей: 4134 | Зарегистр. 18-10-2005 | Отправлено: 08:47 16-04-2008

mauar Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Как в TMemo загрузить таблцу или рисунок из MS Word?
	Всего записей: 134 \| Зарегистр. 31-07-2006 \| Отправлено: 10:40 16-04-2008

Czechoslovak

Junior Member

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

Цитата:

Как в TMemo загрузить таблцу или рисунок из MS Word?

С киких эт пор TMemo уже может отображать таблицы и рисунки ???

Всего записей: 175 | Зарегистр. 27-06-2007 | Отправлено: 11:19 16-04-2008

mauar

Junior Member

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

Цитата:

Цитата:Как в TMemo загрузить таблцу или рисунок из MS Word?

С киких эт пор TMemo уже может отображать таблицы и рисунки ???

А что можно сделать? Как вообще на форму поместить документ Word?

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 11:22 16-04-2008

lavren Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору mauar TRichEdit Добавлено: mauar http://delphiworld.narod.ru/base/delphi_and_wordbasic.html http://delphiworld.narod.ru/base/delphi_and_word_ole_automation.html http://delphiworld.narod.ru/base/ins_rtf_to_msword.html
	Всего записей: 545 \| Зарегистр. 29-05-2007 \| Отправлено: 11:59 16-04-2008

Czechoslovak Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Можно использовать сам Word через OLE
	Всего записей: 175 \| Зарегистр. 27-06-2007 \| Отправлено: 12:15 16-04-2008

mazutka

Newbie

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

Dimoniusis
Спасиб тебе большое) когда тема пойдет на диплом) обязательно об этом подумаю)
а пока сделаю через UPD) пусть рассылает всем свои настройки....
ещё раз благодарю)

Всего записей: 4 | Зарегистр. 10-12-2006 | Отправлено: 15:10 16-04-2008

ALPeresvet

Newbie

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

Здравствуйте. Не ругайте новичка, но я уже трое суток не могу решить проблему цикла с возвращением на метку. Дело в том, что в случае нудовлетворительного результата вычислений выдаётся сообщение с предложением исправить ошибки автоматически, но после каждого возвращения на вышестоящую метку и неудовлетворении условия при очередной итерации - опять выдаётся это сообщение:

Цитата:

if application.MessageBox('Попытаться исправить автоматически?',
'Ваша конфигурация не прошла проверку!',MB_YESNO+
MB_ICONQUESTION) = IDYES then
repeat
TFmu:= TFmu - 0.01;
Em.Text:= FloatToStr(TFmu);
goto LPodrez;
until TFOPodrez = True;

Как мне сделать, чтобы откат TFmu, например с 1.00 до 0.25 проходил в тихом режиме, и не выскакивало сообщение при каждом последующем TFmu:= TFmu - 0.01;

Очень нужна ваша помощь. Диплом стоит из за этого GoTo, а по-другому я что-то никак не соображу.

Вот полный код обработчика:
(извините, если громоздко получится...)

Подробнее...

Всего записей: 13 | Зарегистр. 29-11-2007 | Отправлено: 21:07 16-04-2008

frenjogle

Junior Member

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

Приветствую всех! У меня такая проблемка. Задали написать программку на делфи, которая подсчитывает, как часто встречаются буквы в тексте, то есть в итоге нужно получить список букв и указано в процентах количество повторений этого символа по отношению ко всему тексту.

Но проблемка в том, что я делфи вообще не знаю

Мне сказали, напиши на паскале сам алгоритм, мы тебе переделаем. Я написал, все работает, но вот в делфи перевести не смогли (какая-то ошибка появлялась).

Поэтому у меня вот какие вопросы.
1. есть ли в делфи функция, которая подсчитывает общее число символов в тексте?
2. есть ли в делфи функция, которая подсчитывает количество повторений определенного символа в тексте?

на всякий случай привожу код на паскале, если у кого найдется свободная минутка, скомпильте мне, пожалуйста, все это на делфи в любой варианте, самое главное чтобы работало))
Подробнее...

Всего записей: 90 | Зарегистр. 25-11-2007 | Отправлено: 21:42 16-04-2008

Frodo_Torbins

Silver Member

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

Странно, что не смогли, если в оригинале и правда работает (не проверял). Могу посоветовать следующее:
-сделать все тоже самое, но в виде процедуры;
-тип Text в делфи заменен на TextFile, Assign переименован AssignFile, а Close в CloseFile, все это надо поправить в вашем коде (кстати об этом хорошо написано в хелпе);
-если вам нужно оконное приложение, то выкинуть в конце "readln;".
После этого вашу процедуру можно будет смело копировать в модуль делфи, и вызывать в обработчике нажатия кнопки.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 00:17 17-04-2008 | Исправлено: Frodo_Torbins, 00:20 17-04-2008

ALPeresvet Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ymg2000 Спасибо за помощь. Объявил процедуру локальной и всё стало шоколадным )).
	Всего записей: 13 \| Зарегистр. 29-11-2007 \| Отправлено: 08:59 17-04-2008

Dimoniusis

Silver Member

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

frenjogle лови. Написал с нуля, ибо просто все, внутри каждая строчка прокомментирована.

Ошибки скорее всего были из-за Assign - в Delphi "AssignFile" всесто "Assign" а "file" заменить на "text". В любом случае у тебя получилось бы консолькое приложение, я тебе написал нормальное - с графическим интерфейсом

Всего записей: 4134 | Зарегистр. 18-10-2005 | Отправлено: 09:39 17-04-2008 | Исправлено: Dimoniusis, 09:50 17-04-2008

ymg2000 Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ALPeresvet Ну и славненько. Тебе нужно поработать над логикой и структурированностью своих программ. И никогда не используй оператор goto.
	Всего записей: 2391 \| Зарегистр. 24-08-2007 \| Отправлено: 09:45 17-04-2008

delover

Advanced Member

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

Как можно скроллировать содержание TTreeView? Дело в том, что когда я апдейтю дерево, то приходится делать Node.MakeVisible. А если название нода не влазит в экран треевиюхи, то всё дерево сдвигается. Все узлы перестают быть видимыми только для того чтобы я увидел последние две буковки в названии нода. Так мне этого не надо. Надо скроллировать обратно, на нулевую позицию. Следующий код работает криво:

J := GetScrollPos(tv.Handle, SB_HORZ);
tv.ScrollBy(J, 0);
//tv.Invalidate;

А как надо?

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 15:10 17-04-2008

frenjogle Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Dimoniusis, очень выручил!!! Спасибо огрррромнейшее тебе! Все работает именно так как и нужно!! Теперь, если что, я знаю, к кому обращаться
	Всего записей: 90 \| Зарегистр. 25-11-2007 \| Отправлено: 23:43 17-04-2008

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