| ← Сентябрь 2002 → | ||||||
|
2
|
4
|
5
|
6
|
7
|
||
|---|---|---|---|---|---|---|
|
9
|
11
|
13
|
14
|
15
|
||
|
17
|
19
|
20
|
22
|
|||
|
24
|
26
|
28
|
||||
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на Delphi
Выпуск № 073
от 16.09.2002, 02:20
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 184 Отправлено ответов: 290 Активность: 157.6 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Jadd Статус: Доверительный Общий рейтинг: 143.42 [Подробней >>] |
Ekaterina Статус: Начальный Общий рейтинг: 125 [Подробней >>] |
Артём Шегеда Статус: Профессиональный Общий рейтинг: 118.2 URL: Пристанище неодинокого программиста [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 173. Привет эксперты! Кто нибудь из вас имел дело с СУБД работающими с древовидными БД. Какие это СУБД по... (ответов: 1)
Вопрос № 175. Здравствуйте. есть компонент TMEDIAPLAYER.У меня такой вопрос:КАК СДЕЛАТЬ ТАК чтобы он воспроизводи... (ответов: 1)
Вопрос № 176. Я сделал программу, которая решает стандартные квадратные уравнения. Но если дискриминант меньше нул... (ответов: 2)
Вопрос № 177. Здравствуйте эксперты!!! У меня такая проблема - подскажите оценочную функцию для игры реверси (можн... (ответов: 1)
Вопросов: 4, ответов: 5
| Вопрос № 173 |
Привет эксперты!
Кто нибудь из вас имел дело с СУБД работающими с древовидными БД. Какие это СУБД подо что? Их приемущества/недостатки. Или хотя-бы линк полезный конкретно на эту тему.
Заранее благодарен.
--
Atma
Вопрос отправлен: 10.09.2002, 00:39
Отправитель: Atma Manas (atma_manas@mtu-net.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Jadd
Приветствую Вас, Atma Manas!
BTree - эта точно работает. Ищи доки. их полно в интернете, да и либы есть. В дельфях даже есть компоненты для этой БД.
Ответ отправлен: 10.09.2002, 13:54
Отправитель: Jadd
| Вопрос № 175 |
Здравствуйте.
есть компонент TMEDIAPLAYER.У меня такой вопрос:КАК СДЕЛАТЬ ТАК чтобы он воспроизводил музфайлы,останавливал ихЮ, делал паузу. там же есть нск кнопок на этом компоненте. но я нигде не могу найи кусок проги где работали все эти кнопки.
Заранее спасибо за ответ.
Вопрос отправлен: 11.09.2002, 21:58
Отправитель: rob_kruzo
[Следующий вопрос >>] [Список вопросов]
Отвечает Jadd
Здравствуйте, rob_kruzo!
Все очень просто, если присмотреться. В наборе свойств этого компонента есть свойство AutoOpen. Его надо в true поставить и все работает. А можно все по-своему сделать. Вообщем ищи в хелпе. Там полно инфы. Тебе никто не мешает, кпримеру, из списка воспроизводимых файлов по очереди вытаскивать файл и пишать его в свойство FileName. Затем MMP.Open и проигрывай на здоровье.
Ответ отправлен: 12.09.2002, 12:46
Отправитель: Jadd
| Вопрос № 176 |
Я сделал программу, которая решает стандартные квадратные уравнения. Но если дискриминант меньше нуля должен вылететь Message ‘Дискриминант меньше нуля’, но помимо этого ещё вылетает Message ‘Invalid Floating Point Operation’, можно ли как-нибудь от этого избавится?!
Заранее благодарю и огромное вам спасибо за вашу помошь!!!
Исходник:
unit super;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure Edit1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
Tag := 1;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
A,B,C,D,X1,X2 : real;
begin
Memo1.Lines.Add('_____________________________________');
if Tag <> 1 then
exit
else
begin
Try
A := StrToFloat(Trim(Edit1.Text))
except
ShowMessage('Неправильно введена переменная A');
end;
try
B := StrToFloat(Trim(Edit2.Text));
except
ShowMessage('Неправильно введена переменная B');
end;
Try
C := StrToFloat(Trim(Edit3.Text));
except
ShowMessage('Неправильно введена переменная C');
end;
D := ((B*B) - (4*A*C));
if D<0 then
ShowMessage('Дискриминант меньше нуля!!!')
else
X1 := (((-B) + sqrt(D))/(2*A));
X2 := (((-B) - sqrt(D))/(2*A));
Memo1.Lines.Add('D = ' + FloatToStr(D));
Memo1.lines.Add('X1 = ' + FLoatToStr(X1));
Memo1.Lines.Add('X2 = ' + FloatToStr(X2));
end;
end;
end.
Вопрос отправлен: 12.09.2002, 14:27
Отправитель: Elvis
[Следующий вопрос >>] [Список вопросов]
Отвечает Ekaterina
Приветствую Вас, Elvis!
Надо так:
...
if D<0 then
begin
ShowMessage('Дискриминант меньше нуля!!!');
exit
end
else
...
То есть, если димкриминант < 0, то надо выйти из процедуры. Ошибка возникает из-за того, что в вашем варианте программа идёт дальше и пытается вычислить корень из отрицательного числа (sqrt(D))
Ответ отправлен: 12.09.2002, 14:43
Отправитель: Ekaterina
Отвечает Артём Шегеда
Добрый день, Elvis!
После последнего else добавь begin - и, само собой, закрой его.
Ответ отправлен: 12.09.2002, 15:02
Отправитель: Артём Шегеда
| Вопрос № 177 |
Здравствуйте эксперты!!! У меня такая проблема - подскажите оценочную функцию для игры реверси (можно с кодом)...
Вопрос отправлен: 13.09.2002, 02:15
Отправитель: DeadShot
[Следующий вопрос >>] [Список вопросов]
Отвечает Jadd
Приветствую Вас, DeadShot!
ГЫ. А тут кто во что горазд.
Ответ отправлен: 13.09.2002, 12:36
Отправитель: Jadd
|
Форма отправки вопроса |
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
© 2002 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (42) C / C++ (28) Perl (10) Delphi (14) Pascal (24) Basic / VBA (12) Java / JavaScript (12) PHP (9) MySQL / MSSQL (11) |
Пользователю Windows 95/98/Me (39) Windows NT/2000/XP (30) "Железо" (37) Поиск информации (12) |
Администратору Windows NT/2000/XP (14) Linux / Unix (15) |
Юристу Гражданское право (10) Семейное право (6) Трудовое право (8) КоАП (5) |
Отправить вопрос всем экспертам выбранной рассылки.
| © 2002 Россия, Москва. Авторское право: RusFAQ.ru |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
