Привет comp.soft.prog.prog-list@subscribe.ru,

Нужна на С+ программка которая выводила бы все перестановки
пятисимвольной строки

Рад приветствовать, Pavel!

Довелось мне Wednesday, December 17, 2003 читать, следующее:

Pac> Надеюсь ты не будешь утверждать, что конечные продукты, сделанные с
Pac> помощью Дельфи очень качественные? Это же просто смешно. Что такое

То есть качество программы (а не вид чистого кода на выходе)
определяется тем как компилер перевёл в опкоды/операнды, твой
высокоуровневый код? Что-то вроде: пишем полную лабуду, работает она
кое-как, не стабильно, алгоритм чудовищно тормозной, а компилятор за
тебя из этого делает конфетку и сам правит баги. Скорее, корреляцию
тут надо иным образом интерпретировать: дельфи проще в освоении и за
него садятся многие только начинающие, "радующие" мир своими
поделками, переработанных из книг примеров.

Pac> оптимизация компилятор наверное совсем понятия не имеет. А пробовал ты

А ты слышал, сколько багов в с++ было и будет благодаря оптимизации?
При этом я ничуть не умоляю достоинств этого компилятора и считаю его
одним из лучших на сегодняшний день. Честно скажу, глубоко по
дельфовому коду не лазал, только посмотрел, что в стандартных либах
всё сменили на двойные слова и параметры процедурам он старается в регистры
пихать, это меня порадовало после Pascal 7.0 ;) .

Pac> когда-нибудь в программу на Дельфи встраивать ассемблерный код? Вот тут
Pac> вообще все начинает страшно глючить. Хотя код на 100% правильный. Я

Если есть что небольшое - кинь, интересно просто.

Pac> как-то помучался, да плюнул на это дело. Бесспорно Дельфи есть хороший
Pac> инструмент для быстрой разработки второсортных приложений и не более
Pac> того. Качественный продукт с помощью Дельфи не сделать. Если кого-то
Pac> обидел, прошу прощения, просто наболело.

А как же профессиональные базы данных, полуофисные приложения (очень
была толковая книженция - "Философия программирования Windows 95/NT"
- там автор немало распинался на сей счёт) ещё игрища какая-то (типа
"Age of Wonders") была.

ЗЫ Вообще не хочется в очередной раз развязывать все эти бесконечные
священные войны. Лично я тоже связался с дельфой только ради
одной задумки, а так "ЗА" цпп, но топтать в грязь дельфу слишком
уж бесцеремонно.

Alles Gutes!

CU @ http://smuta.boom.ru
...In Code We Trust...
При желании, mailto:deniskravtso***@m*****.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

-----Original MessageFrom: Сергей [mailto:fandm20***@m*****.ru]
Sent: Thursday, December 18, 2003 8:03 AM
To: comp.soft.prog.prog (3175891)
Subject: Clipper

Приветствую!

Здесь есть специалисты по Clipper'у? Меня интересует возможность
физического добавления и вставки столбцов в базе данных, при этом не
используя метод создания новой и переброски данных из старой.
Необходима при этом поддержка работы в сетевом режиме с несколькими
пользователями.
И вообще, может есть специализированые сайты на эту тему?

Здравствуйте,
Скажите, можно ли с помощью дельфи создать объект типа WinRAR и
работать с ним? Типа что то CreateOleObject('WinRar'); ???

-----Original MessageFrom: Черсунова Людмила [mailto:chersuno***@S*****.KZ]
Sent: Thursday, December 18, 2003 8:55 AM
To: comp.soft.prog.prog (3175891)
Subject: вызов справки

Добрый день!
Создала с помощью HTML Help Workshop откомпилированный файл справки
kad.chm.
В программе на VFP-8 за одним из пунктов меню закреплен вызов справки
kad.chm.
На моем компьютере все работает. Когда я переношу exe-модуль на
компьютер
пользователя, справка не вызывается, нажатие на пункт меню Справка ни к
чему
не приводит, никаких сообщений не выдается.
Отдельно файл kad.chm запускается, а вот из меню не хочет. В чем дело,
не
пойму.
Помогите, пожалуйста!

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

>Как сделать, чтоб можно было только читать узлы и то что они выводят. Тоесть
нельзя ничего менять.

Самый простой способ - это в настройке memo в object inspector поле enable выставить
равным true

Best regards, Eugene.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

> >> G> Люди, помогите плиз понять TTreeView.
> >> G> Немогу заставить, при клике на узел, загрузить текстовый файл.
> >> G> Желательно посмотреть на код.
> >> G> Заранее всем спасибо.
> >>
> >> Проблема, как я понял в том, чтобы узнать, на какой узел кликнул?
> >> Для TreeView событие OnClick создать.
> >> В событии можно определить ветку которая выделена:
> >> Node:=MyTree.Selected;
> >> if Node <> nil then
> >> begin
> >> //Ваши действия по работе с файлами
> >> end else
> >> application.messagebox('Нет выделенной ветки!','Warning',0);
>
> G> Нет, не совсем так.
> G> Немогу заставить, при клике на какой нибудь узел, загрузить и вывести
файл
> в
> G> какое нибудь поле, скажем Memo1.
>
> Вот пример обработчика при клике на дерево!!
>
> procedure TForm1.TreeView1Click(Sender: TObject);
> begin
> if TreeView1.Selected<>nil then
> begin
> memo1.Clear;
> memo1.Lines.LoadFromFile('d:\install.log');
> end;
>
> end;

Это я понял. Спасибо.
А как привязать к определенному узлу определенный файл? Чтоб например
кликнул на узел 1 у тебя открылся файл 1.txt, кликунл на узел 2 у тебя
открылся файл 2.txt, и т. д.
Как это можно оптимизировать?
Как сделать, чтоб можно было только читать узлы и то что они выводят. Тоесть
нельзя ничего менять.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Всем привет!!

---------------------------Такой пример:

var
Form1: TForm1;
AcadApplication: IAcadApplication;

implementation

{$R *.dfm}

procedure TForm1.b_FACADClick(Sender: TObject);
begin
Try
// Пытаемся найти активный AutoCAD
AcadApplication := GetActiveOleObject('AutoCAD.Application') as IAcadApplication;
except
// Если работающий AutoCAD не найден
statusBar1.Panels[0].Text:='Ошибка соединения с AutoCAD';
end;
if AcadApplication <> nil then
begin
// делать, что надо
statusBar1.Panels[0].Text:='Ура!! Мы нашли работающий AutoCAD!';
statusBar1.Panels[0].Text:=statusBar1.Panels[0].Text+
' Файл = ' + AcadApplication.ActiveDocument.Name;
//Послылаем макрос в командную строку, добавляя нажатие Enter
//AcadApplication.ActiveDocument.SendCommand('(alert "Привет от Delphi")'
+ #13);
end;
end;

procedure TForm1.b_AlertClick(Sender: TObject);
begin
if AcadApplication = nil then
begin
application.MessageBox('Есть, ГАД!!','Warning',0);
AcadApplication.ActiveDocument.Activate;
//Послылаем макрос в командную строку, добавляя нажатие Enter
AcadApplication.ActiveDocument.SendCommand('(alert "Привет от Delphi")' +
'#13');
end else
statusbar1.Panels[0].Text:='Уже нету !!';
end;

procedure TForm1.FormClick(Sender: TObject);
begin
if AcadApplication = nil then
AcadApplication :=nil;
end;
---------------------------конец примера
Вопрос, Почему после TForm1.b_FACADClick, объект AcadApplication =
nil? Переменная AcadApplication описана глобально, значит и объект
должон существовать!!

Здравствуйте, Gift,

Saturday, December 20, 2003, 1:17:52 PM, вы писали:

>> G> Люди, помогите плиз понять TTreeView.
>> G> Немогу заставить, при клике на узел, загрузить текстовый файл.
>> G> Желательно посмотреть на код.
>> G> Заранее всем спасибо.
>>
>> Проблема, как я понял в том, чтобы узнать, на какой узел кликнул?
>> Для TreeView событие OnClick создать.
>> В событии можно определить ветку которая выделена:
>> Node:=MyTree.Selected;
>> if Node <> nil then
>> begin
>> //Ваши действия по работе с файлами
>> end else
>> application.messagebox('Нет выделенной ветки!','Warning',0);

G> Нет, не совсем так.
G> Немогу заставить, при клике на какой нибудь узел, загрузить и вывести файл
в
G> какое нибудь поле, скажем Memo1.

Вот пример обработчика при клике на дерево!!

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected<>nil then
begin
memo1.Clear;
memo1.Lines.LoadFromFile('d:\install.log');
end;

end;

Здравствуйте, leonid.

Вы писали 19 декабря 2003 г., 18:08:16:
mid:20031219180756.385***@c*****.subscribe

l> Есть ли вероятность того, что Win-строка имеется, но не выводится
l> на экран/не сохраняется?

Я делаю так:
OemToChar strString, strString
Debug.Print strString
И в окне Immediate наблюдаю, что strString как была в DOS-кодировке,
так и осталась!
А если использую две строки:
OemToChar strString1, strString2
Debug.Print strString2
То strString2 вообще пустая.
Причем, что интересно, в MSDN написано, что функция OemToChar ВСЕГДА
возвращает ненулевое значение, а у меня она возвращает ноль!

> G> Люди, помогите плиз понять TTreeView.
> G> Немогу заставить, при клике на узел, загрузить текстовый файл.
> G> Желательно посмотреть на код.
> G> Заранее всем спасибо.
>
> Проблема, как я понял в том, чтобы узнать, на какой узел кликнул?
> Для TreeView событие OnClick создать.
> В событии можно определить ветку которая выделена:
> Node:=MyTree.Selected;
> if Node <> nil then
> begin
> //Ваши действия по работе с файлами
> end else
> application.messagebox('Нет выделенной ветки!','Warning',0);

Нет, не совсем так.
Немогу заставить, при клике на какой нибудь узел, загрузить и вывести файл в
какое нибудь поле, скажем Memo1.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

А это неслучаем VB или С, если да то можно код для делфи.
А то меня что то смутили ::, *, ->

> Например:
>
> void __fastcall TForm1::TreeView1Click(TObject *Sender)
> {
>
> TTreeNode* node_ = TreeView1->Selected;
> //далее идентифицируем либо по номеру, либо по названию
> //например
> MessageBox(NULL,(node_->Text).c_str(),"",MB_OK);
> //если то, что нужно, то выполняем необходимые действия
> //например
> TStringList* StrList_ = new TStringList();
> StrList_->LoadFromFile("Your file name");
> }

> Люди, помогите плиз понять TTreeView.
> Немогу заставить, при клике на узел, загрузить текстовый файл.
> Желательно посмотреть на код.
> Заранее всем спасибо.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Например:

void __fastcall TForm1::TreeView1Click(TObject *Sender)
{

TTreeNode* node_ = TreeView1->Selected;
//далее идентифицируем либо по номеру, либо по названию
//например
MessageBox(NULL,(node_->Text).c_str(),"",MB_OK);
//если то, что нужно, то выполняем необходимые действия
//например
TStringList* StrList_ = new TStringList();
StrList_->LoadFromFile("Your file name");
}
Original Message From: "Gift" <Gi***@u*****.ru>
To: "comp.soft.prog.prog (3585363)" <mark***@a*****.ru>
Sent: Friday, December 19, 2003 7:53 PM
Subject: TTreeView

Люди, помогите плиз понять TTreeView.
Немогу заставить, при клике на узел, загрузить текстовый файл.
Желательно посмотреть на код.
Заранее всем спасибо.

http://subscribe.ru/ mailto:ask@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Не подскажете, где или откуда можно скачать наиболее полное РУКОВОДСТВО по
языку программирования CLIPPER. Желательно русскоязычное. Буду очень признателен,
если откликнетесь.

Заранее благодарен,
подписчик ФОРУМ-программирования -- Н.К.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru