Онлайн на сайте: 15 (53) Онлайн в IRC: 3(17) Последние новости: 25 февраля 2010 Последний вопрос: 11 марта 2010, 02:09 Последний ответ: 10 марта 2010, 11:09
Первый раз на портале? Начните с регистрации »
Если Вы уже зарегистрированы, введите логин и пароль вверху страницы для авторизации.
Если у Вас возникли вопросы по работе сайта, Вы можете задать их с помощью формы обратной связи.
После регистрации авторизируйтесь, чтобы начать работу.
В раздел статистики добавлена новая страница - Географический портрет. На ней приведена разбивка зарегистрированных пользователей по странам. Перейти »
3 февраля 2010 г.
Уважаемые пользователи! На нашем сайте появился форум, в котором Вы можете обсуждать интересующие темы, в т.ч. и касающиеся нашего сайта. Основной акцент планируется делать на темы о программировании и об информационных технологиях, но это не запрещает вести дискуссии и на сторонние темы. Одно лишь замечание: форум НЕ призван отвлечь внимание от экспертной системы - она вполне сформирована и удовлетворяет потребности пользователей. Поэтому, все конкретные вопросы следует как и ранее задавать в D... Прочитать полностью » Перейти »
2 февраля 2010 г.
Подведены итоги конкурса «Лучший вопрос месяца» и «Лучший ответ месяца» (январь-2010).
Впервые за историю этого конкурса победу одержал один и тот же вопрос - вопрос об алфавитной сортировке списка полей.
Итак, лучшим вопросом признан вопрос #3698, заданный участником Андрей. Лучшим ответом признан ответ эксперта Вадим К на этот же вопрос.
Поздравляем победителей! И помните - Вы сами сделали такой выбор.
Последние вопросы:
Вопрос № 3 867 (раздел: Pascal»Программирование на Pascal; автор: kollen666; задан: 11 марта 2010, 02:09)
Вопрос № 3 866 (раздел: Delphi»Программирование баз данных (БД); автор: senyor; задан: 10 марта 2010, 10:44)
Здравствуйте, эксперты! ADO
У меня три поля Card_fam, Card_imy, Card_otch (фамилия Имя Отчеств)
На EdtFam у меня включена фильтрация по Фамилии, хочу cделать Поиск по трем полям не получается, Помогите пожалуйста! Вот код:
DM.FindCard.Filtered := False;
if (EdtFam.Text = '') and (EdtName.Text = '') and (EdtOtch.Text = '')then
begin
...
Вопрос № 3 865 (раздел: Delphi»Взаимодействие с Windows; автор: AlexMPEI; задан: 9 марта 2010, 16:22)
Доброго времени суток, уважаемые эксперты!
хочу узнать есть ли диск в приводе. использую функцию
Result := GetDiskFreeSpace(path,
SectorsPerCluster,
BytesPerSector,
NumberOfFreeClusters,
TotalNumberOfClusters);
в случае от...
Вопрос № 3 864 (раздел: Delphi»Программирование баз данных (БД); автор: Раджаб; задан: 9 марта 2010, 15:41)
Здравствуйте, эксперты!
Допустим надо создать базу данных . Она состоит из районов . в каждом районе есть человек с ФИО,телефон,и т.д....у каждого человека есть диагноз. Как связать все эти данные воедино?? через Access или дельфи?? и еще-как осуществляестя поиск в связанных таблицах? отказывается работать Look up
КТО ЧЕМ СМОЖЕТ ПОМОГИТЕ ЛЮДИ ДО...
Вопрос № 3 863 (раздел: Delphi»Программирование баз данных (БД); автор: JEKA; задан: 9 марта 2010, 14:19)
Здравствуйте, эксперты!
Набор ClientDataSet (cds). Справочники и данные.
Интерфейс: Пересылаем из справочников в данные.
Как привязать к интерфейсу cds?
Вопрос № 3 862 (раздел: Delphi»Мультимедийные приложения; автор: bizon_all; задан: 8 марта 2010, 14:51)
Здравствуйте, уважаемые эксперты!
Хочу создать для одного видеокурса интерфейс... В этом интерфейсе мне нужен видеоплейер, проигрывающий wmv. Дельфи знаю на начальном уровне, но все равно кое в чем разбираюсь. Поэтому прошу посоветовать, каким компонентом пользоваться (с TMedia Player не получается).
Вопрос № 3 861 (раздел: Delphi»Работа с компонентами и библиотеками; автор: SOA; задан: 8 марта 2010, 13:54)
Всем привет!
Снова вопрос по присоединению OBJ файла, скомпилированного в TASM к проекту delphi.
Никто не вкурсе почему не работает команда ROL, в то время как команда ROR работает превосходно, при том что если набирать во встроенном асме то ROL работает.
Если кто знает как можно исправить, или где можно скачать нормальный TASM (WWW.WASM.ru уже ...
Здравствуйте, senyor!
лучше сделать по простому.
Ставим на форму TADOQuery. Одним концом привязываем к нашей базе, другим к таблице (он фактически подменяет собой TADOTable).
для обработчика пишем что то в стиле.
if (EdtFam.Text = '') and (EdtName.Text = '') and (EdtOtch.Text = '')then
begin
MessageDlg('Не заданы условия поиска!!', mtInform...
Здравствуйте, AlexMPEI!
function DiskPresent(Drive:Byte):Boolean;
//Drive 0 = Current, 1 = A, 2 = B, ...
var
OldMode:Word;
begin
Result:=False;
OldMode:=SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(Drive)-1 then Result:=True;
finally
SetErrorMode(OldMode);
end
end;
procedure TForm1.Button1Click(Sender:...
Здравствуйте, kollen666!
Поздравляю с 8 марта :)
Вот, в подарок :)
program WordCounter;
var
s : string;
i, count : integer;
i_begin : integer;
begin
{ запросим строку:}
writeln('Vvedite stroku');
readln(s);
writeln;
{добавим пробелы в начало и конец строки:}
s:=' ' + s + ' ';
{количество слов пока равно ну...
Здравствуйте, SOA!
Вот правила использования регистров в DelphiЖ
Выражения asm должны сохранять регистры EDI, ESI, ESP, EBP и EBX, но могут свободно изменять регистры EAX, ECX и EDX.
Вы меняете регистр BX, что приводит к ошибке. Если Вам нужно использовать этот регистр, то сначала сохраните его в стеке: push ebx, а перед выходом из процедуры...
Ладно, уговорил.
Вот тебе кусок модуля одного из моих проектов. Это несколько функций для работы с реестром. См. приложение.
Я использую их в конструкторе главной формы вот так:
const
// Расширения, иконки, реестр
ProjectFileExt = '.seproj';
ProjectDefaultExt = 'seproj';
ProjectExtDesc = 'seproject';
ProjectFile...
То есть, осмелюсь предположить, пользоваться отладчиком ты принципиально не желаешь и считаешь, что проще писать программы, а затем выкладывать их исх...
senyor: вот честно говоря, в адо есть какой-то глюк, связанный с фильтром. в своё время я от фильтра отказался и стал использовать как раз ADOQuery. х...
Не люблю помогать людям, которые пишут диплом и ждут, что им исходники для диплома дадут. А если такой человек доктор? как он будет лечить потом, тоже...
Я на твои способности уже насмотрелся шума много толку НЕТ!
То есть, осмелюсь предположить, пользоваться отладчиком ты принципиально не желаешь и сч...
потому что видети ли "ыксперт" этого языка то наверно и в глаза то не видел
Айяйяй, как нехоршо...
Про других не скажу, однако, я, например, в своё ...
Я то реально помощь по решению вполне определенного вопроса хотел получить и реально получил, но не от вас двоих "Ыкспертов" о которых сложилось стой...
ну так расскажи что там да как если знаешь как юзать на данном примере.
А чего тут рассказывать. Тебе было бы достаточно один раз пройтись дизассемб...
