1. Всем пользователям необходимо проверить работоспособность своего электронного почтового адреса. Для этого на, указанный в вашем профиле электронный адрес, в период с 14 по 18 июня, отправлено письмо. Вам необходимо проверить свою почту, возможно папку "спам". Если там есть письмо от нас, то можете не беспокоиться, в противном случае необходимо либо изменить адрес электронной почты в настройках профиля , либо если у вас электронная почта от компании "Интерсвязь" (@is74.ru) вы им долго не пользовались и хотите им пользоваться, позвоните в СТП по телефону 247-9-555 для активации вашего адреса электронной почты.
    Скрыть объявление

Обсуждение Программирование на Delphi/Pascal

Тема в разделе "Мастерская", создана пользователем Ender, 13 июн 2006.

  1. Ender

    Ender

    Репутация:
    30.191.713
    Ender, 13 июн 2006
    Эта тема предназначена для обсуждения и решения любых проблем, связанных с программированием на языке Delphi/Pascal, обмена секретами, опытом и помощи в программирование другим пользователям.

    В программировании в полной мере действует правило: "Каков вопрос, таков ответ". Если вы действительно озабочены получением ответа на ваш вопрос, вам рекомендуется прочесть документ под названием "Как правильно задавать вопросы".
    Приятного чтения.
    Господа, прежде чем начать хотел бы заострить ваше внимание на необходимости знания
    . Повторю ещё раз, технический английский это латынь в мире информационных технологий и особенно в программировании. Значительная часть полной и актуальной информации, необходимой для успешного решения задач на ниве программирования, доступна только на английском языке. Русскоязычные (как и любые не англоязычные, бедные японцы :) ) источники как правило являются переводами и грешат наличием неточностей, неполным изложением материала и устаревшими сведениями. К русскоязычной литературе приведённой здесь это относится в полной мере.

    Основы языка



    Руководства по работе со средой, базами данных, построению графического интерфейса и т.п.



    Не стоит забывать что Delphi это обычная среда разработки под Windows (ныне уже и MacOS) и поэтому масса вопросов, которая будет у вас возникать, будет относиться не собственно к Delphi, а к программированию вообще (алгоритмы, методы и приёмы разработки ПО) и к написанию программ именно для Windows.

    Windows



    Книги для усиленной ежедневной медитации. Это книги по программированию вообще, а не по программированию на Delphi или под Windows.

    Искусство программирования


    • DRKB (Delphi Russian Knowledge Base) — это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым. DRKB является одним из самых известных и полных Delphi FAQ на русском языке.

     
    #1
  2. Klick

    Klick Ословед

    Репутация:
    74
    Klick, 1 янв 2007
    HELP :idontno: нужна помощь!

    Мне надо чтобы при нажатии на кнопку(Button) запускалось совсем другое приложение из каталога.
    Например файл проекта называется Project1.exe и находится по адресу .../Новая папка/Project1.exe, а приложение, которое должно запускаться при нажатии на кнопку, называется player.exe и находится по адресу .../Новая папка/player/player.exe

    Я так и не понял, как это сделать. Помогите кто знает плиз..
     
  3. byterus

    byterus Ословед

    Репутация:
    21.002.150
    byterus, 1 янв 2007
    ShellExecute(Application.Handle, 'open', 'player/player.exe', nil, nil, SW_SHOWNORMAL);
     
  4. Chall - [cLmT]

    Chall - [cLmT] Ословед

    Репутация:
    0
    Chall - [cLmT], 3 янв 2007
    Delphi + FireBird

    Посоветуйте какой-нить компонент/конструктор отчетов для Делфи который понимает GDB базы.
     
  5. Alexandr172

    Alexandr172 Ословед

    Репутация:
    -2.663.907
    Alexandr172, 3 янв 2007
    А чем стандартный не устраивает? Или нужен который напрямую разбирается в файлах Interbase без установленного сервера?
     
  6. pyJIoH

    pyJIoH Ословед

    Репутация:
    2.299
    pyJIoH, 3 янв 2007
    Смотри утилиту IBExpert в осле или http://www.ibexpert.com/
     
  7. Chall - [cLmT]

    Chall - [cLmT] Ословед

    Репутация:
    0
    Chall - [cLmT], 3 янв 2007
    Стандартный - это какой? И для какой из версий Делфи?

    В 2005 я не смог натравить "стандартный" на gdb базу.
     
  8. Chall - [cLmT]

    Chall - [cLmT] Ословед

    Репутация:
    0
    Chall - [cLmT], 3 янв 2007
    Не знал что в IBExpert'е можно отчеты делать... Лана гляну, спасибо за помощь.
     
  9. Neo_S

    Neo_S Ословед

    Репутация:
    1.659
    Neo_S, 4 янв 2007
    Попробуй Quick Report, только его предварительно нужно установить (Component -> Install Packages -> Add -> в папке Bin выделяешь файл dclqrt70.bpl, и открываешь)
    ЗЫ Это все для 7ой дельфи
     
  10. Пистон

    Пистон Ословед

    Репутация:
    1
    Пистон, 5 янв 2007
    Люди помогите написать программу-тест на паскале с использованием мыши, суть такая появляется вопрос ниже три конопки с вариантами ответа , выбираешь ответ , появляется следуший вопрос и так далее напишите хоть коротинький пример, очень надо плз, заранеее спс!
     
  11. byterus

    byterus Ословед

    Репутация:
    21.002.150
    byterus, 6 янв 2007
    В чем конкретно проблема?
     
  12. Пистон

    Пистон Ословед

    Репутация:
    1
    Пистон, 8 янв 2007
    я незнаю как подключать мышь и незнаю как делать кнопки(
     
  13. Alexandr172

    Alexandr172 Ословед

    Репутация:
    -2.663.907
    Alexandr172, 8 янв 2007
    С мышью можно работать используя модуль Views или Drivers - вместе Паскалем идут, только хелп почитать надо.
    А кнопки наверное самому рисовать надо, ну или можно использовать Turbo Vision.
    Конкретнее сказатьне могу надо хелп читать.
     
  14. Shreder

    Shreder Ословед

    Репутация:
    234
    Shreder, 11 янв 2007
    Вобщем есть таблица полученая ADOQuery... Нужно или создать форму для печати с этой таблицой.. или еще лудше отправить в Exel файл... вобщем вот.. кто-нибудь может с этим помоч?
     
  15. Alexandr172

    Alexandr172 Ословед

    Репутация:
    -2.663.907
    Alexandr172, 11 янв 2007
    Для печати используй компонент QReport
    Package Office2K там есть компоненты для связи с Exel.
     
  16. denisio

    denisio Guest

    Репутация:
    0
    denisio, 12 янв 2007

    Поищи бесплатный компонент Ehlib, он помимо таблицы на форме может также эту таблицу и на печать посылать. Очень хороший компонент и бесплатный к тому же.
     
  17. denisio

    denisio Guest

    Репутация:
    0
    denisio, 12 янв 2007
    FastReport - мегарепортер, стоит смешных $19.
     
  18. Igjule

    Igjule Ословед

    Репутация:
    1.216
    Igjule, 14 янв 2007
    Что-то вроде этого...
    Код:
    [FONT="Courier New"]procedure TForm3.Button2Click(Sender: TObject);
    var
      Excel,Workbook,WorksheetTek,Worksheet1 : OLEVariant;     
      shf: TSHFileOpStruct;//вроде ShellApi надо подключить...
      s1, s2, nameFile: string;
    begin
      FillChar (shf, SizeOf (shf), #0);
    //надо сделать шаблон - обычный excel файл
    //копируем содержимое шаблона в новый файл (Path.xls) и заполняем его значениями...
      s1:= 'shablon.xls' + #0#0;
      s2:= 'Path.xls' + #0#0;
      nameFile:=s2;
      shf.Wnd:=     0;
      shf.wFunc:=  FO_COPY;
      shf.pFrom:=  PCHAR (s1);
      shf.pTo:=    PCHAR (s2);
      shf.fFlags:= FOF_ALLOWUNDO + FOF_NOCONFIRMATION;
      SHFileOperation (shf);
    
      Excel := CreateOleObject('Excel.Application');
      if not VarIsEmpty(Excel) then //проверка на существование
        begin
          Excel.Visible := true;
          Excel.ScreenUpdating := true;
        end;
    
      Workbook := Excel.WorkBooks.Open(s2);//книга
      Worksheet1:=Workbook.Worksheets[1];
      Worksheet1.Copy(NULL,Worksheet1);//новый лист
      WorksheetTek:=Workbook.ActiveSheet;//лист, с которым будем работать...
      WorksheetTek.Name:=...;
    
      AdoQuery.Open;
      AdoQuery.First;
      while not AdoQuery.Eof do
        begin
    //далее идет работа с ячейками на языке VBA
    //можно прямо в Excel записать макрос на отдельные действия
    //например, на запись в ячейку,
    //и просмотреть его в редакторе VBA
    
    //запись в ячейку:
          WorksheetTek.Range['A1'].Value:=...;
    //и т.д.
    
          AdoQuery.Next;
        end;
    
      Excel.DisplayAlerts:= False;
      Worksheet1.Delete;
      Excel.DisplayAlerts:= true;
    
      WorksheetTek:=NULL;
      Excel:=NULL;
    
      AdoQuery.Close;
    end;
    [/FONT]
    
     
  19. Воеводин Андрей

    Воеводин Андрей Ословед

    Репутация:
    671
    Воеводин Андрей, 14 янв 2007
    Народ подскажите как сделать так что при вводе чего либо в Edit'е (номера) строка с этим номером удалялась...
     
  20. De[M]oN

    De[M]oN Guest

    Репутация:
    0
    De[M]oN, 14 янв 2007
    Строка обкуда? Догадываюсь что из TMemo, тогда
    Memo1.Lines.Delete(StrToIntDef(Edit1.Text,0));
    Сторки в TMemo начинаются с 0, если в Edit ввести не число то удалится первоя строка
     
  21. Kenji-no Sorata

    Kenji-no Sorata Guest

    Репутация:
    0
    Kenji-no Sorata, 15 янв 2007
    Уффф... срочно треба помощь!

    Есть задача, с легкостью решаемая посредством рекурсии. Однако, в каждом шаге рекурсии нужно делать паузу. В Pascal был оператор Delay, в ранних Дельфях его аналогом служило Wait. Сейчас есть только долбанный таймер, не применимый, кажется, в моем случае, совершенно.
     
Загрузка...