Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 657
от 21.11.2006, 18:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 411, Экспертов: 65
В номере:Вопросов: 7, Ответов: 11


Вопрос № 62795: Доброго времени суток!! У меня маленький вопрос в DBEdit и т.п. после подключения к базе и ввода данных постоянно отображаются последние записи из базы Это можно какнибудь отключить т.е. чтобы при запуске программы DBEdit и т.п....
Вопрос № 62810: Здравствуйте уважаемые эксперты. Хочу написать простенькую программу. Допустим у меня есть папочка "Вход"(она пуста).Как только я закидываю в эту папку файл,он автоматически переносится в другую папку(например "Выход").И нужно...
Вопрос № 62823: Здравствуйте. Я что-то не нашёл в Help'e помощь, как e-mail (имя адреса) из Label например, скопировать в буфер обмена (1) или передать в программу электронной почты (2)? Вот собственно и два вопроса. Я изменяю курсор "мыши"...
Вопрос № 62828: Здравствуйте. У меня несложный вопрос по Делфи 7. Каким образом можно сделать так, чтобы Watches сохранялись в дельфяшном проекте. Т.е. когда я открываю проект, должны открываться и определенные мною ранее watches, а не приходилось бы их вводить зан...
Вопрос № 62830: Здравствуйте! Подскажите как вывести значение переменной типа double в компонент ListBox, чтобы после запятой было 2 знака...:)...
Вопрос № 62890: Можно ли с программы уменщить или увеличить громкость мызуки воспроизводяшейся на MediaPlayer или Winamp а музыка твоей программы была слышна....
Вопрос № 62895: Всем доброго дня. Скажите, пожалуйста, в чем смысл (или миссия интерфейсов) в Delphi. Где они могут использоваться и какая от них польза? ...

< table width=100% cellpadding=4 class=A>

Вопрос № 62.795
Доброго времени суток!!
У меня маленький вопрос
в DBEdit и т.п. после подключения к базе и ввода данных
постоянно отображаются последние записи из базы
Это можно какнибудь отключить
т.е. чтобы при запуске программы DBEdit и т.п. были пустыми?
если можна по подробнее об этом.
заранее спасибо за ответ
Отправлен: 15.11.2006, 20:26
Вопрос задал: Fins (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: LanK
Здравствуйте, Fins!

sir henry прав но не совсем ;), но поподробнее:

Всё просто. У Вас DBEdit связан с TTable или TQuery соответсвенно через DataSet. Значит в DesignTime просто у соответсвующего Query или Table поставьте свойство Active = False. А при нажатии на кнопку (например Первая):

Table1.Active := True;
Table1.First;

А можно и как говорит sir henry вообще отключить соединение с базой и подключаться только когда пользователю потребуется... это кстати весьма правильно частая ошибка начинающих что при проектировании база подключена - запускаешь, а проетк "валится" со странными ошибками... хотя просто нет соединения с базой.
---------
Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!
Ответ отправил: LanK (статус: Студент)
Ответ отправлен: 16.11.2006, 09:59

Вопрос № 62.810
Здравствуйте уважаемые эксперты.
Хочу написать простенькую программу. Допустим у меня есть папочка "Вход"(она пуста).Как только я закидываю в эту папку файл,он автоматически переносится в другую папку(например "Выход").И нужно чтобы программа запускалась вместе с windows. Подскажите пожалуйста как примерно это можно осуществить.
Отправлен: 15.11.2006, 22:17
Вопрос задал: Respect (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Respect!
Проверять регулярно по таймеру наличие файлов в папке, а форму при старте спрятать (Application.ShowMainForm := False;) Для запуска с Windows - добавить в автозагрузку (Есть такая группа меню в "Пуск"-е)
Как быть с файлами:
1) Для начала посмотрите пример исполдьзование FindFirst/FindNext в справке.
Вам надо будет вызвать вот так: FindFirst('Z:Вход*', faAnyFile, sr);
2) Для копирование используйте
MoveFileEx(PChar('Z:Вход'+sr.Name), PChar('Z:Выход'+sr.Name), MOVEFILE_REPLACE_EXISTING);
То же самое можно сделать с помощью других функций. В частности, MoveFile. Как их использовать почитайте в MSDN. В качестве домашнего задания =)
---------
Не узнаешь - не попробуешь.
Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант)
Ответ отправлен: 16.11.2006, 01:15

Отвечает: PaVeL_Ekt
Здравствуйте, Respect!

Можно еще в реестр добавить автозагрузку !!!
HKEY_LOCAL_MACHINESoftWareMicrosoftWindowsCurrentVersionRun

там создать строковый параметр где значение параметра путь к вашему файлу, вместе с названием !!!

с помощью Делфы через Registry
USES Registry;
Var Reg:TRegistry;

...
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('softwaremicrosoftwindowscurrentversion un',False);
if not reg.ValueExists('MyProg') then
reg.WriteString('MyProg','PathFileName');
---------
Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 3-ий класс)
Ответ отправлен: 16.11.2006, 07:24

Отвечает: Monah
Здравствуйте, Respect!
Поправлю PaVeL_Ekt
reg.WriteString('MyProg','PathFileName');
Замените на
reg.WriteString('MyProg',Application.exename);

И еще, не знаю как работает movafileex, но некоторые функции этоо ряда позволяют перемещать файлы только внутри раздела. Я использую такой метод:
var
m:TmemoryStream;

m:=TmemoryStream.Create;
m.LoadFromFile("Входной файл");
m.SaveToFile("Куда сохраняем");
DeleteFile(Удаляем источник);
m.free;
---------
festina lente
Ответ отправил: Monah (статус: 10-ый класс)
Ответ отправлен: 16.11.2006, 18:29


Вопрос № 62.823
Здравствуйте.

Я что-то не нашёл в Help'e помощь, как e-mail (имя адреса) из Label например, скопировать в буфер обмена (1) или передать в программу электронной почты (2)?
Вот собственно и два вопроса.
Я изменяю курсор "мыши" при наведении на e-mail (Label) и "кликаю" должно быть либо копирование адреса, либо передать в программу электронной почты сразу. Всё остальное я уже сделал.

Заранее всем...
Алекс
Отправлен: 16.11.2006, 00:21
Вопрос задал: AlexD (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Маренич Владимир
Здравствуйте, AlexD!
1)
uses ..., Clipbrd;
....
Clipboard.AsText:=Label1.Caption;
....

2)
uses ..., ShellAPI;
...
ShellExecute(Application.Handle, nil,PChar('mailto:'+Label1.Caption), nil, nil, SW_SHOWNORMAL);
...
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 16.11.2006, 00:44


Вопрос № 62.828
Здравствуйте. У меня несложный вопрос по Делфи 7. Каким образом можно сделать так, чтобы Watches сохранялись в дельфяшном проекте. Т.е. когда я открываю проект, должны открываться и определенные мною ранее watches, а не приходилось бы их вводить заново.
Отправлен: 16.11.2006, 02:18
Вопрос задал: Kilgor (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Rusland
Здравствуйте, Kilgor!
Tools | Enviroment Options вкладка Preferences - нужно поставить в Autosave options галкe на Project desktop.
---------
Если партия скажет есть контакт, будем есть контакт.
Ответ отправил: Rusland (статус: Специалист)
Ответ отправлен: 16.11.2006, 10:59
Оценка за ответ: 5
Комментарий оценки:
Спасибо


Вопрос № 62.830
Здравствуйте! Подскажите как вывести значение переменной типа double в компонент ListBox, чтобы после запятой было 2 знака...:)
Отправлен: 16.11.2006, 03:13
Вопрос задала: Артемова Марина (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry
Здравствуйте, Артемова Марина!
Для этого надо использовать функцию форматирования:
ListBox1.Items.Add(FloatToStrF(Ваше_число, ffFixed, общее_кол-во_цифр, кол-во_цифр_после_запятой));
Ответ отправил: sir henry (статус: Академик)
Россия, Красноярск
----
Ответ отправлен: 16.11.2006, 03:47

Отвечает: Маренич Владимир
Здравствуйте, Артемова Марина!
Я обычно пользуюсь функцией FormatFloat(
В Вашем случае получится так:
ListBox1.Items.Add(FormatFloat('0.00', x));
Будет добавлена строка с двумя знаками после запятой.
Если задать формат '0.##', то после запятой не будут выводиться концевые нули. Т.е. при x=10.000 получим "10", при x=3.4567 получим "3,46", при x=11.10001 получим "11,1".
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 16.11.2006, 10:39

Отвечает: Sattar
Здравствуйте, Артемова Марина!
var
d:double=35.4653778458;
s:string;
begin
s:=FloatToStr(d);
s:=copy(s,1,pos(',',s)+2);
ListBox1.Items.Add(s);
end;

Приложение:

Ответ отправил: Sattar (статус: 3-ий класс)
Ответ отправлен: 19.11.2006, 10:17


Вопрос № 62.890
Можно ли с программы уменщить или увеличить громкость мызуки воспроизводяшейся на MediaPlayer или Winamp а музыка твоей программы была слышна.
Отправлен: 16.11.2006, 15:43
Вопрос задал: Aslanov Ceyhun Yusif (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Monah
Здравствуйте, Aslanov Ceyhun Yusif!
Смотрите в приложении. Пример взят с сайта Delphiword.

Приложение:

---------
festina lente

Ответ отправил: Monah (статус: 10-ый класс)
Ответ отправлен: 16.11.2006, 18:48


Вопрос № 62.895
Всем доброго дня. Скажите, пожалуйста, в чем смысл (или миссия интерфейсов) в Delphi. Где они могут использоваться и какая от них польза?
Отправлен: 16.11.2006, 16:30
Вопрос задал: Solodov Evgeniy Vladimirovich (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry
Здравствуйте, Solodov Evgeniy Vladimirovich!
А какие интерфейсы Вы имеете в виду? Интерфейсы пользователя (кнокпи, меню и т.д.? Шутка. :)
Наверное те, которые обзываются IUnknown и основанные на нем. Их функция очень важная. Они обеспечивают обмен сложносоставными данными в системе, вне зависимости от того, на каком языке пишуться программы. На интерфейсах основаны большое количество компонентов в Дельфи, например ADO или компоненты с закладки Servers. Что еще? Зайдите в каталог Source и задайте поиск по критерию вхождения слова IUnknown в файлы исходников. Получите большой список файлов.
Думаю, что пользу обмена данными Вам пояснять не нужно. :)
Ответ отправил: sir henry (статус: Академик)
Россия, Красноярск
----
Ответ отправлен: 16.11.2006, 17:18
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.37 от 04.10.2006
Яндекс Rambler's Top100

В избранное