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

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



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
 
А как сделать так чтобы в строке  
d: array [1..11] of string=('1,2' , '2,5' , '3,4' , '4' , '5', '6', '7', '8', '9', '10', '11');  
программа сама считала сколько элементов в массиве?  
//это я про число 11 в строке array [1..11]
 
вопррос был конкретный. ещё раз привёл
строка Low(d) to High(d) do это красиво н мне нужно решение по числу элементом массива при его описании

Всего записей: 483 | Зарегистр. 07-06-2004 | Отправлено: 17:46 09-08-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
dmit000
Length(d) ???

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

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 19:55 09-08-2006
SERGE_BLIZNUK

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

Цитата:
программа сама считала сколько элементов в массиве?  

ой, странного вы хотите ;-)))
так не получится.
 
Но можно перейти на такой подход:

Код:
 
в описании
const
  {обратите внимание точка-запятая - разделитель}
  DArray = ('1; 2.3; 2.5;  17.045 ; 134,45');  
...
код добавления в комбобокс на OnCreate
var sAll, sItem : string;
begin
  sAll := Trim( DArray + ';' );
  while Length( sAll ) > 0 do begin
    sItem := Copy( sAll, 1, Pos(';', sAll)-1);
    Delete( sAll, 1, Pos(';', sAll));
    ComboBox1.Items.Add( Trim(sItem) );
    if Pos(';', sAll) = 0 then sAll := '';
  end;
end;
 

 
надеюсь, угадал, что именно вы хотели ;-))
Удачи.

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 20:05 09-08-2006
unfreqient



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите решить проблему: натянул скин на форму и нашёл такой недочёт: при минимизации главной формы - она сворачивается в левый нижний угол, попробавал ShowWindow(Handle, SW_HIDE) - не знаю как её восстановить. Может кто знает как обработать событие нажатия на кнопку приложения на таскбаре, чтобы восстановить.
 
Добавлено:
Нашёл решение, кому интерестно: добавил компонент TApplicationEvent и всё получилось:
 
procedure TFrmMain.ApplicationEvents1Activate(Sender: TObject);
begin
  ShowWindow(Handle, SW_SHOW);
end;

Всего записей: 104 | Зарегистр. 20-07-2006 | Отправлено: 09:38 10-08-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unfreqient
кажись так : ShowWindow(Handle,SW_SHOW);  
или showwindow(Handle, sw_restore);

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 10:55 10-08-2006
YuRRiX

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Как по IP получить MAC?

Всего записей: 31 | Зарегистр. 07-02-2006 | Отправлено: 15:58 10-08-2006
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuRRiX
Цитата:
Как по IP получить MAC?
сам не пробовал, поиск по имени  
нашел в JclSysInfo.pas ( JEDI Code Library (JCL)) вот это:
function GetMacAddresses(const Machine: string; const Addresses: TStrings): Integer;
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 06:29 11-08-2006
KDPoid



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

Цитата:
А как сделать так чтобы в строке  
d: array [1..11] of string=('1,2' , '2,5' , '3,4' , '4' , '5', '6', '7', '8', '9', '10', '11');  
программа сама считала сколько элементов в массиве?  
//это я про число 11 в строке array [1..11]  

 
Не понял.
Count:=High(d)-Low(d)+1;
 
Не оно ?

Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 08:27 11-08-2006
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите, плиз.
Есть форма (например, Form1), которая создается программно (не MDI) из родительской формы. Устанавливаю нужные мне свойства Form1 (разные, в зависимости от режима работы). Делаю Form1.ShowModal.

Код:
 
if Form1.ShowModal = mrOk then
begin
    // мои действия
end;
 

 
В событии OnShow для формы Form1 пишу нужный мне код.
 
Подробнее...
 
В обработке except вывожу сообщение (в моей функции вызывается Application.MessageBox) и хочу закрыть модальную форму, но никак не выходит.
Пробовал устанавливать ModalResult, вызывать процедру нажатия кнопки "Закрыть", Close, Hide, Visible:=false ,- не помогает.
 
Как можно таки закрыть эту модальную форму (не отображать)?
 
ЗЫ
Форма Form1 мне и дальше нужна в родительской форме.
Свойства Form1:
BorderStyle = bsDialog
DefaultMonitor = dmMainForm
Position = poMainFormcenter

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 15:40 12-08-2006
SERGE_BLIZNUK

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

Цитата:
В событии OnShow для формы Form1 пишу нужный мне код.  

проверил, действительно close в onShow игнорируется... ;-((
 
нашел тут Королевство Дельфи такой ответ:
в событии onShow...

Код:
 
  PostMessage (Handle, wm_Close, 0, 0);
 


Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:22 13-08-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
afiget
В качестве варианта можно сделать у формы функцию, в которую перенести код из OnShow
Подробнее...

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 10:39 13-08-2006 | Исправлено: RomanTim, 10:41 13-08-2006
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
RomanTim
Спасибо, буду пробовать.

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 13:02 13-08-2006
pavel chistyakov



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста как мне на bds 2006 в .NET  
при помощи DirectoryServices добавить пользователя в доменную группу.
 
Нужно именно через DirectoryServices. Желателен кусок работающего кода.
В MSDN не посылать.

Всего записей: 37 | Зарегистр. 14-12-2005 | Отправлено: 12:10 15-08-2006
dmit000



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
спасибо за ответы
----------------------
 
Есть ли в природе редактор (по типу экселя) в котором очень даже просто можно формировать таблицу StringGrid, а на выходе получать код который можно вставить в код дельфи?

Всего записей: 483 | Зарегистр. 07-06-2004 | Отправлено: 14:51 15-08-2006
SERGE_BLIZNUK

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

Цитата:
Есть ли в природе редактор (по типу экселя) в котором очень даже просто можно формировать таблицу StringGrid, а на выходе получать код  

я лично ничего не понял ;-(((
потрудитесь сформулировать задачу точнее... какой редактор? что вы в нем хотите внести - буквы, цифры, формулы? и что за код вы хотите получить на выходе?
код на Дельфи, который нарисует StringGrid и заполнит его вашими значениями??
исходная задача какая?

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 20:32 15-08-2006
nuker2015



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пишу прозрачный компонент, наследник от TCustomControl.
Для прозрачности необходимо скопировать регион под контролом на канву контрола,
но CopyParentImage() копирует только изображения наследников TGraphicControl.
Что подскажете коллеги?

Всего записей: 132 | Зарегистр. 26-10-2005 | Отправлено: 00:28 16-08-2006
dmit000



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
 
в общем прога должно делать следующее:
 
чтобы мне в ручную в коде программы не писать заполнение ячеек стрингрида нужна прога которая имеет интерфейс по типу экселя в которой я смогу просто в ячейки (как в эксели) вписывать то что мне нужно (цивры и буквы). При этом должна иметься возможность сохранять значение в файл и последующие считывание из файла), после заполнения таблицы при нажатии на кнопарь прога генерирует код заполненных ячеек который я просто вставляю в код своего файла PAS
 
пример кода:

Всего записей: 483 | Зарегистр. 07-06-2004 | Отправлено: 06:22 16-08-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dmit000
А что мешает самому написать?
Берешь стринггрид, кнопку.
Заполняешь значения в ячейках, по нажатию на кнопку -  
цикл по строкам, в нем цикл по столбцам. на каждое значение собираешь строку кода типа 'твой_стринггрид.cell[' + №строки + ', ' + №столбца + '] := ' + значение_из_текущей_ячейки + ';'
И лей строки скрипта куда тебе нужно.
Сохранение в файл и заполнение - по тому дже принципу + AssignFile + Rewrite + WriteLn.

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 07:37 16-08-2006
dmit000



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sunduk4
 
опыта не хватает пока написать, но задачу я себе такую уже поставил. просто может уже есть у кого такая прога. вот и задал вопрос.
 
и к ттомуже прога должна иметь возможность вставлять (добавлять строки) и столбцы. в общем пробовал компанент F1Book он меня на 100% устраивает за исключением малого факта прога с использованием F1Book на чистых (без дельфи) компах не работает.

Всего записей: 483 | Зарегистр. 07-06-2004 | Отправлено: 08:05 16-08-2006 | Исправлено: dmit000, 08:08 16-08-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dmit000
F1Book - ActiveX компонент. Вместе с твоей программой нужно тянуть файлик vcf132.ocx и регистрировать его в системе - regsvr32 vcf132.ocx.
Плюс нужно тянуть еще 2-3 длл библиотеки. Навскидку сейчас не вспомню, но опытным путем установить не долго.

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 08:27 16-08-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