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

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

Рейтинг.ru