|
|
| Другие темы раздела | |
|
Delphi Запрос на сохранение данных при выходе из программы
https://www.cyberforum.ru/ delphi-beginners/ thread435091.html Доброго времени суток! В программе мне надо, чтобы бы в случае наличия изменений и не сохраненных данных, при выходе появлялось сообщение с предложением сохранить изменения. Я добавила событие OnCloseQuery.Там написала : procedure TGlavn.FormCloseQuery(Sender: TObject; var CanClose: Boolean); Var F:TextFile; i, j, n, cb,m:integer; |
Delphi Вопрос по объединению чисел по признаку Здравствуйте! недавно столкнулся с первого взгляда простой проблемой. Своей смекалки не хватило потому надеюсь на вашу. Есть два массива: первый - числа, второй - имена Необходимо из первого массива выбирать числа таким образом, чтобы сумма чисел была в некотором промежутке и присваивать данным числам одно имя из массива 2. Например: пусть необходимый нам промежуток равен 1500- 1700... |
|
Delphi Delphi String i PChar
https://www.cyberforum.ru/ delphi-beginners/ thread435035.html Вобщем суть в том что нужно из одно приложения в другое передать строку с помощью создания подгрузки файла в память, FileMapping. Саму прогу написал, но строку не передает, точней передает иероглифы, в чем ошибка ? Вот листинг: Клиент: unit cliUnit; interface uses |
Delphi Ошибка в коде, скорее всего из за типов
https://www.cyberforum.ru/ delphi-beginners/ thread435031.html Здравствуйте, на моем окне 1 edt, botton и memo. Вот код который преобразовывает код из edt в memo: procedure TForm1.btn1Click(Sender: TObject); var q,w,e,r,t:integer; a,s,d,f,g:string; begin form1.Height:=361; for q:=1 to Length(edt1.text) do begin mmo1.lines.text:=(mmo1.lines.text+inttostr(ord(Copy(edt1.Text,q,1)))+'|'); end; |
|
Прогресс песни через Image Delphi Пытаюсь реализовать фишку: Вместо TrackBar использовать Image для отображение прогресса песни, перепробовал различные коды (включая похожие на те что использовались в TrackBar), подключить Left и Width. Но ничего не получалось. Может кто-нибудь знает как это реализовать? |
Delphi Что написать на delphi?
https://www.cyberforum.ru/ delphi-beginners/ thread434975.html Я начинающий программист и для обучения мне нужна практика, но проблема в том что не всегда получается придумать программу которую мне интересно писать и получается так что я бросаю на половине процесса. Интересны программы которые в процессе работы связаны с интернет-ресурсами. Если есть какие идеи посоветуйте пожалуйста. |
|
Delphi Поиск в тексте
https://www.cyberforum.ru/ delphi-beginners/ thread434973.html Есть код программы, надо его переделать так, чтобы шаг поиска в тексте был равен именно тому количеству символов, которые введены в edit1, то есть если в окно для обработки введено шесть одинаковых символов, а для поиска - три, то шаг был равен трем, а если в поиск два символа, то автоматически шаг сравнивался двум. Надеюсь, понятно объяснила.. unit Unit1; interface uses Windows,... |
Delphi текст из документа word в мемо возникли некоторые проблемы, а именно вместе с текстом передаются символы переноса, табуляция, которые мне нахер не упёрлись в мемо, может есть способы их как то исключить и получить только текст? пробовал передавать в опен wdOpenFormatText и прочее, но нет спасения от этих символов((( набросал вариант с реплейсом, но тоже как то не то, мне по сути нужно считывать именно абзацами и между ними... |
| Delphi COM-объекты Помогите пожалуйста привязать хоть пару пунктов к одной из программ 1. Качество построения системы в виде библиотеки COM-объектов, которые используются контроллером автоматизации. 2. Разработка внутреннего сервера автоматизации, использование Plugin’ов. 3. Разработка внешнего сервера автоматизации. 4. Применение в разрабатываемой системе Нотификационных сообщений для обмена данными между... https://www.cyberforum.ru/ delphi-beginners/ thread434948.html | Delphi В чём ошибка то? Ребята сижу на зачёте и никак понять не могу в чём ошибка var x,n: integer; Function Fact(n:integer):extended; begin if n=1 then Fact:=1 else Fact:=n*Fact(n-1); end; begin https://www.cyberforum.ru/ delphi-beginners/ thread434780.html |
|
Delphi работа с Treeview Доброй ночи! есть вот такой код procedure GoToFirstTreeview(MyTreeView:TTreeView); begin MyTreeView.selected := MyTreeView.items; MyTreeView.setfocus; end; procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode; |
Delphi Запись сообщений Subversion вызываемой через ShellExecute Доброго времени суток. Стоит задача перехватывать сообщения выдаваемые Subversion в лог файл. казалось бы, чего проще? Добавить в конец команды >>имя лог файла и все путем. Однако, я запускаю Subversion через ShellExecuteEx (не желаю, чтобы пользователь вообще знал, как происходит процесс выгрузки на сервер, к тому же так проще, чем запускать отдельный bat-файл "руками" или вводить svn команды с... https://www.cyberforum.ru/ delphi-beginners/ thread434718.html |
| 0 | |
Как сделать такую процедуру - Delphi - Ответ 242640025.01.2012, 18:29. Показов 575. Ответов 3
Метки (Все метки)
Вернуться к обсуждению: Как сделать такую процедуру Delphi
0
|
|
| 25.01.2012, 18:29 | |
|
Готовые ответы и решения:
3
Как написать такую программу через процедуру/функцию Как сделать такую программу на Delphi? Как сделать такую таблицу (скрин) |
| 25.01.2012, 18:29 | |
| 25.01.2012, 18:29 | |
|
Помогаю со студенческими работами здесь
0
Как сделать в Delphi такую кнопку чтобы при наведении на неё курсором она меняло своё изображение Как сделать одну и ту же процедуру обработчиком совершенно разных событий Можно ли сделать такую программу? |
Наверх