| ← Сентябрь 2003 → | ||||||
|
2
|
3
|
6
|
||||
|---|---|---|---|---|---|---|
|
8
|
10
|
12
|
14
|
|||
|
15
|
16
|
17
|
19
|
21
|
||
|
23
|
25
|
27
|
||||
|
29
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Автор
Статистика
3.308 подписчиков
0 за неделю
0 за неделю
RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 218
от 20.09.2003, 12:00
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 944 Отправлено ответов: 1771 Активность: 187.6 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| THE_PRO Статус: Начальный Общий рейтинг: 139.28 [Подробней >>] |
Cybernetic Creature Статус: Опытный Общий рейтинг: 124.42 [Подробней >>] |
ART_43 Статус: Опытный Общий рейтинг: 121.89 URL: ART_43 Home Site [Подробней >>] |
| Bob Johnson Статус: Профессиональный Общий рейтинг: 152.09 URL: Программирование [Подробней >>] |
Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.78 URL: Пристанище неодинокого программиста [Подробней >>] |
URiS Статус: Профессиональный Общий рейтинг: 127.92 URL: Бесплатный любительский софт, игры [Подробней >>] |
| _vt Статус: Профессиональный Общий рейтинг: 122.55 [Подробней >>] |
Marouder Статус: Профессиональный Общий рейтинг: 121.78 URL: Первый Хабаровский Форум Телефон: (4212) 21-93-65 [Подробней >>] |
Vdr Статус: Опытный Общий рейтинг: 110.42 [Подробней >>] |
| sir henry Статус: Начальный Общий рейтинг: 143.75 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 921. Hi, Experts! Мне бы побольше инфы от том, как встроить прогу в оболочку винды( типа как у ВинРар, пр... (ответов: 3)
Вопрос № 922. Здарово эксперты! Как в Windows NT открыть пароль, спрятанный за звёздочками в элементе Edit, если я... (ответов: 2)
Вопрос № 923. Pomogite rebyata, kak ustanovit QuickReport na komp zakazchika, kakiye nujni fayli i nujno li delat ... (ответов: 1)
Вопрос № 924. Есть текстовый файл: FIND THE LARGEST MATCHING IN BIPARTITE GRAPH WITH MATRIX: Line 1 : 1 1 0 0... (ответов: 1)
Вопрос № 925. Подскажите, как сделать так, чтобы при нажатии на Button ЛЕВОЙ кнопкой мышки, выскакивало PopUp Menu... (ответов: 6)
Вопрос № 927. А как подключить к проге API функцию?... (ответов: 7)
Вопрос № 928. Problema: Ne moqu datь na pechat danniye v QuickReport. QRDBText pokazivayet tolko pervoye znacheniy... (ответов: 2)
Вопросов: 7, ответов: 22
| Вопрос № 921 |
Hi, Experts!
Мне бы побольше инфы от том, как встроить прогу в оболочку винды( типа как у ВинРар, правой кнопкой на файл-> добавить в архив ...).
Буду рад исходникам, линкам, докам и тд
Вопрос отправлен: 15.09.2003, 15:33
Отправитель: Byter
[Следующий вопрос >>] [Список вопросов]
Отвечает THE_PRO
Здравствуйте, Byter!
Obyasnyat neznayushemu dolqo, tak chto ishi v delphiworld.narod.ru
Ответ отправлен: 15.09.2003, 16:20
Отправитель: THE_PRO
Отвечает Cybernetic Creature
Доброе время суток, Byter!
Нужно вписать прогу в регистр. Надеюсь вы умеете обращатся реестром винды под Делфи.
Пишится всё в HKEY_CLASSES_ROOT*shellexContextMenuHandlers
Надеюсь разберетесь. Если нет так научитесь пользоватся Реестром. В инете полнл документации.
Ответ отправлен: 15.09.2003, 20:10
Отправитель: Cybernetic Creature
Отвечает ART_43
Здравствуйте, Byter!
Если по простому то:
В реестре в
'HKEY_CLASSES_ROOT'+твое расширение или '*' если для всех +'shell'+ имя раздела по желанию +'command' в значение по умолчанию пишешь путь к программе в '"', дальше пробел и '"%1"'
Что-то типа этого.
Но Rar вроде все это делает через com-технологию, а в этом я пока не разобрался.
Ответ отправлен: 16.09.2003, 14:46
Отправитель: ART_43
| Вопрос № 922 |
Здарово эксперты!
Как в Windows NT открыть пароль, спрятанный за звёздочками в элементе Edit, если я знаю его Handle?
GetWindowText и GetDlgItem не работают.
Как это сделать в 9x - я знаю, но в NT это не работает.
Спасибо.
Вопрос отправлен: 15.09.2003, 16:10
Отправитель: URiS (urisff@inbox.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает THE_PRO
Приветствую Вас, URiS!
Yesli chestno u menya taje problema.
Proshu prosheniya no ya ne smoqu otvetit na etot vopros, proshuu zametit eto moy perviy prokol!
Ответ отправлен: 15.09.2003, 17:39
Отправитель: THE_PRO
Отвечает Bob Johnson
Доброе время суток, URiS!
Это в НТ не работает. Там нет пароля (в НТ его нельзя редактировать - можно только ввести заново).
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 15.09.2003, 22:26
Отправитель: Bob Johnson
| Вопрос № 923 |
Pomogite rebyata, kak ustanovit QuickReport na komp zakazchika, kakiye nujni fayli i nujno li delat che libo v
reyestre...
Zaraniye spasibo.
Приложение:
Вопрос отправлен: 15.09.2003, 16:44
Отправитель: Orkhan Gasimov (orkhan_g@hotmail.com)
[Следующий вопрос >>] [Список вопросов]
Отвечает Cybernetic Creature
Здравствуйте, Orkhan Gasimov!
A ti qovorish shto u tebya Delphi7. a zachem? zachem tebe Delphi7 camaat na Delphi777 rabotayet.
shutka shutkoy amma noolsun ki indi sen programmistsen ve marcoda ishdiyirsen? Hech daxli vaaaaaaaaaar?
Burdakilarin mazqisini gic-gic sohbetlernen meshgul etme.
k s tati HapBir 18_09_85
Opurem BRATISHKA
Ответ отправлен: 16.09.2003, 21:45
Отправитель: Cybernetic Creature
| Вопрос № 924 |
Есть текстовый файл:
FIND THE LARGEST MATCHING IN BIPARTITE GRAPH WITH MATRIX:
Line 1 :
1 1 0 0 0 1 0 1 0 1 1 1 1 1 0 1 1
Line 2 :
0 0 0 1 0 1 0 1 1 0 0 0 1 0 0 1 1
Line 3 :
1 1 1 0 0 1 0 1 0 0 0 0 0 1 1 0 1
Line 4 :
1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0
Line 5 :
0 0 0 0 0 1 1 0 1 1 1 0 1 1 1 1 1
Line 6 :
1 0 0 1 0 0 1 1 1 0 1 1 0 0 0 0 0
Line 7 :
1 1 0 1 1 1 1 1 1 0 1 1 1 1 0 1 1
Line 8 :
0 0 1 1 1 0 0 0 1 1 0 0 0 1 1 1 0
Line 9 :
0 1 1 0 0 0 0 1 0 1 1 0 0 1 1 0 0
Line 10 :
1 0 1 1 1 0 1 1 1 1 1 0 0 0 1 0 1
Line 11 :
0 0 1 1 0 1 1 1 1 0 0 0 0 0 0 0 0
Line 12 :
0 0 1 0 1 1 1 1 1 1 0 0 0 0 0 1 1
Line 13 :
0 0 0 1 0 0 1 1 0 1 0 0 0 0 1 0 0
Line 14 :
0 0 0 1 1 0 1 0 0 1 1 1 1 1 1 0 0
Line 15 :
1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 0
Line 16 :
1 1 0 1 1 1 0 1 1 1 1 1 1 0 1 0 1
Line 17 :
0 1 1 1 0 0 1 0 0 1 0 1 1 1 0 1 1
Line 18 :
1 0 1 1 0 1 1 0 0 1 0 1 1 0 0 1 1
Line 19 :
1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 1
Line 20 :
0 1 0 0 0 1 0 1 0 0 1 1 0 0 0 1 1
мне надо нормально считать эту матрицу
вот что я уже написала:
...
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
private
{ Private declarations }
Matrix : Array of Array of Record
I,J : Integer;
A : Integer;
VStl,DStr : TIntMAtrix;// высота столбца, длина строки
RazmMatr : Record //размер матрицы
W,H : Byte;
public
{ Public declarations }
procedure Init(FileName: String);
procedure Decision(FileName: String);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Init(FileName: String);
var
zfile : TextFile;
i,j : Byte;
//
Symb : String;
{++++++++++++++++++++++++++++++++++++++}
function Number(Var Symb: String) : Integer;
var
i: Byte;
begin {Number}
if Symb<>"
then begin
i:=2;
While Symb[i]<>' ' do
inc(i);
Result:=StrToInt(Copy(Symb,1,i-1));
Delete(Symb,1,i);
end
else Result:=0;
end;{Number}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
Function LastNum(Var Symb: String) : Integer;
var
i: Byte;
begin{LasNum}
if Symb<>''
then begin
i := Length(Symb)-2;
While Symb[i]<>' ' do dec(i);
Result := StrToInt(Copy(Symb,i+1,Length(Symb)-i-1));
Delete(Symb,i,Length(Symb)-i+1);
end
else Result:=0;
end; {Chislo}
{===============================================}
procedure Propusk;
begin
repeat
ReadLn(zfile,Symb);
until Symb='FIND THE LARGEST MATCHING IN BIPARTITE GRAPH WITH MATRIX:';
end;
{===============================================}
begin {I N I T}
assignfile(zfile,filename);
reset(zfile);
Propusk;
i := 0;
NR := 0;
repeat
inc(i);
readln(zfile);
readln(zfile, Symb);
NR := NR+LastNum(Symb);
until EoF(zfile);
SizeMatrix.H := i-1;
Дальше торможу, как их нормально в массив и читать именно через строчку
Вопрос отправлен: 16.09.2003, 08:16
Отправитель: Эланор (cymoril@mail.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Cybernetic Creature
Приветствую Вас, Эланор!
мне не понятны несколько вещей.
1)- что за тип TintMatrix и где recordов end;
2)- можно ли ваш файл задать так
01101000110
10100110001
00110101100
10010101010
т.е. только матрицу
3)- по сушеству могу сказать следуюшее.
можно было использовать переменную NR как массив.
вы можете послать свои исходники и я попробую доделать ваш материал. в вашем отчете не хватает типов и переменных которые вы используете.
проблему я не до конца понял.
но что то сделать смогу.
лучше опишите ситуацию поподробней
Ответ отправлен: 16.09.2003, 21:45
Отправитель: Cybernetic Creature
| Вопрос № 925 |
Подскажите, как сделать так, чтобы при нажатии на Button ЛЕВОЙ кнопкой мышки, выскакивало PopUp Menu?
А то изменение св-ва TrackButton почему-то не помогает...
Сторонних компонент просьба не предлагать.
Заранее спасибо!
Приложение:
Вопрос отправлен: 16.09.2003, 09:03
Отправитель: Ybr
[Следующий вопрос >>] [Список вопросов]
Отвечает ART_43
Доброе время суток, Ybr!
PopupMenu1.Popup(Button1.ClientOrigin.X,Button1.ClientOrigin.Y+Button1.Height);
Ответ отправлен: 16.09.2003, 13:55
Отправитель: ART_43
Отвечает THE_PRO
Приветствую Вас, Ybr!
U TButton yest svoystvo PopupMenu (krasnoqo tsveta), yesli u tebya net, to sovetuyu kupit Delphi7.
A skoro voobshe viydet Delphi8!
Приложение:
Ответ отправлен: 16.09.2003, 09:38
Отправитель: THE_PRO
Отвечает Артём Шегеда
Добрый день, Ybr!
Правильный ответ тебе дали, я только подскажу, что существует глобальная переменная Mouse:TMouse, для определения координат курсора обратись к Mouse.CursorPos
Ответ отправлен: 16.09.2003, 18:16
Отправитель: Артём Шегеда
Отвечает Cybernetic Creature
Добрый день, Ybr!
Я шокирован.
до сих пор я думал что знаю это.
попробовал другой компонент не помогло.
ни один компонент не берет левый клик. я с нетерпением буду ждать вместе с вами.
а может вы разясните ситуейшн может чем помогу а?
Ответ отправлен: 16.09.2003, 21:45
Отправитель: Cybernetic Creature
Отвечает Bob Johnson
Здравствуйте, Ybr!
Можно самому вызывать функцию TrackPopupMenu в событии onClick этой button. Нет, в дельфи, оказывается, у popup menu есть метод popup, который делает все сам. Координаты курсора можно узнать с помощью GetCursorPos.
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 16.09.2003, 23:31
Отправитель: Bob Johnson
Отвечает URiS
Доброе время суток, Ybr!
Где OnMouseDown пишешь:
If button=mb_left then ...
Expert: URiS
Ответ отправлен: 19.09.2003, 06:34
Отправитель: URiS
| Вопрос № 927 |
А как подключить к проге API функцию?
Вопрос отправлен: 16.09.2003, 16:24
Отправитель: Кирилл
[Следующий вопрос >>] [Список вопросов]
Отвечает ART_43
Добрый день, Кирилл!
Uses Windows;
Ответ отправлен: 16.09.2003, 17:35
Отправитель: ART_43
Отвечает Артём Шегеда
Приветствую Вас, Кирилл!
Хм... "Подключить API функцию"...
К любой программе подключается, как минимум, одна DLL - KERNEL32.DLL. Кроме неё часто (или почти всегда) используется ещё USER32.DLL, GDI32.DLL, SHELL32.DLL, COMCTL32.DLL.
А вот чтобы воспользоваться в своей программе функциями этих библиотек в начале проги подключи модуль Windows. Может быть, тебе понадобится определение внешних функций, не объявленных в Windows.pas (таких как IsDebuggerPresent, RegisterServiceProcess...) В справке Delphi найди ключевое слово "External declarations" - там есть раздел "Importing functions from DLLs"
Ответ отправлен: 16.09.2003, 18:26
Отправитель: Артём Шегеда
Отвечает Cybernetic Creature
Доброе время суток, Кирилл!
uses ShellAPI;
...............
ShellExecute(......;
Ответ отправлен: 16.09.2003, 21:45
Отправитель: Cybernetic Creature
Отвечает _vt
Доброе время суток, Кирилл!
Для билдера: #include <windows.h>
Для дельфи: uses windows
*** E-Man 1.5( edition 04) - life is just a game***
Ответ отправлен: 16.09.2003, 22:38
Отправитель: _vt
Отвечает Bob Johnson
Добрый день, Кирилл!
Вызвать ее :)
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 16.09.2003, 23:33
Отправитель: Bob Johnson
Отвечает Marouder
Добрый день, Кирилл!
В каком смысле? Если она объявлена в модуле Windows.dcu, то просто добавить его в раздел Uses. Если нет, то объявить примерно так:
function OpenThread(dwDesiredAccess:DWORD;bInheritHandle:LongBool;dwThreadId:DWORD):THandle;stdcall;external 'kernel32.dll';
Или можно с помощью GetProcAddress.
Ответ отправлен: 17.09.2003, 11:18
Отправитель: Marouder
Отвечает URiS
Добрый день, Кирилл!
Никак. Просто используешь её. Если она не прописана в модулях, то можно самому вызывать из DLL.
Expert: URiS
Ответ отправлен: 19.09.2003, 06:34
Отправитель: URiS
| Вопрос № 928 |
Problema: Ne moqu datь na pechat danniye v QuickReport.
QRDBText pokazivayet tolko pervoye znacheniye v baze,
a nujni vse...
Proshuh ne predloqatь pereidti na RAVE
Приложение:
Вопрос отправлен: 17.09.2003, 10:31
Отправитель: Tromb
[Следующий вопрос >>] [Список вопросов]
Отвечает Vdr
Доброе время суток, Tromb!
Причины могут быть разные: вот несколько вариантов:
1. для отображения строк из таблицы нужнл использовать band details.
2. в QuickRep нужно указать DataSet из которого берутся строки.
Ответ отправлен: 17.09.2003, 13:28
Отправитель: Vdr
Отвечает sir henry
Приветствую Вас, Tromb!
Скорее всего, ты не на той полосе положил QRDBText.
Ответ отправлен: 17.09.2003, 11:05
Отправитель: sir henry
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (31) C / C++ (27) Perl (6) Builder / Delphi (21) Pascal (22) Basic / VBA (10) Java / JavaScript (12) PHP (11) Криптография (9) WinAPI (15) |
Пользователю Windows 95/98/Me (48) Windows NT/2000/XP (60) "Железо" (39) Поиск информации (21) |
Администратору Windows NT/2000/XP (28) Linux / Unix (11) |
Юристу Гражданское право (10) Семейное право (7) Трудовое право (8) КоАП (6) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
