Форум программистов и сисадминов КиберфорумКиберФорум - форум программистов и системных администраторов. Бесплатная помощь в решении задач по программированию, математике, физике и другим наукам, решение проблем с компьютером, операционными системами. |
|
Темы раздела Delphi для начинающих
В Caption "(не отвечает), Progress Bar не перерисовывается. Как исправить?
Старое однопоточное приложение, Delphi 7, исходник есть.
В нём Progress Bar, показывающий процент выполнения вывода по USB. Процесс занимает секунд 20-40.
Примерно 50 на 50, примерно посередине...
Где найти информацию про old-style объекты?
Добрый день.
Подскажите, где искать документацию, help, гайд, руководство .. про old-style объекты в Delphi?
А может где-нибудь есть source-исходники в Delphi?
Спасибо.
----------
Увы, но...
Передать многомерный массив в функцию
Доброго времени!
Как в функцию передать ссылку не на нулевую строку, а на первую? Сейчас мне приходится
добираться до значения так: ArrayFields, а хотелось бы сразу так: ArrayFields.
Пока решил...
TStreamReader: строка перед последней строкой
Привет мне нужно прочитать файл как обычно отобразить последнюю строку затем как то сместить позицию в TStreamReader до предпоследней строки ну там до #10 или #13 заново прочитать и должна получится...
StrToFloat: Как можно узнать, какой знак нужно вставить в дробное число: точку или запятую?
У меня Delphi 7.
Вопрос по функции StrToFloat. Как можно узнать какой знак нужно вставить в дробное число: точку или запятую?
Так: '1.45'
Или так: '1,45' ?
Декларировать OpenPictureDialog1
Здравствуйте, как декларировать OpenPictureDialog1? Заранее спасибо.
Дата и время изменения файла
Мне нужно в ячейку StringGrid поместить дату и время изменения файла
Делаю это так:
function ReadDate(FN:String):String
var
W: WideString; // полное имя файла
Dat:TDateTime;
FHandle: Integer;...
Библиотеки dll в проекте Delphi
Здравствуйте
Проверяю почту средствами Delphi, в папке с программой есть libeay32.dll и ssleay32.dll
- когда запускаю Project1.exe из папки с программой - тогда все нормально, почта проверяется
-...
Окна в диспетчере задач
Здравствуйте.
С главной формы можно вызвать несколько форм. Пользователь работает 2-3 формами попеременке, сворачивая и разворачивая нужные. Как сделать чтобы сворачивание было как у других...
Exe файл в фоновом режиме - без формы и без значка в панели задач
Здравствуйте
C Delphi я никогда не работал, поэтому прошу помощи
Мне нужно при изменении системного времени, сделать запись в txt.
Подскажите, как изменить код, что бы скомпилированый exe файл...
Удалить из динамического массива одинаковые элементы
Добрый день.
Как удалить из динамического массива одинаковые элементы?
Например: массив 1 2 3 4 5 1* 6 7 8 9.. удалить 1*
Спасибо за ответ.
Запись значений из StringGrid в Word doc
Добрый день. Подскажите как значения вписываемые в StringGrid записать аналогично в Word. В ворде таблица под номером 1, начинается ячейка - Строка 3 столбец 2 и до 15 строки. Другие ячейки - Строка...
После обновления Delphi в проекте изменились все масштабы
На новом диске (компе) установил Delphi Alexandria.
(На старом была Delphi 2010).
Разрешение и все параметры экрана точно такие же: 1920х1080, 125%. Монитор тот же, комп тот же, только жесткий диск...
Консольное приложение
Здравствуйте. Имеется программа в виде консольного приложения. Настройки программы прописаны в текстовом файле, в виде цифр в одной строке! (прикладываю файл, параметры это только первая строка)....
Редактирование документа word со stringgrid
Народ, подскажите пж. В программе у меня формируется файл word, где заполняются данные, там есть stringgrid. Дальше у другого человека есть возможность через эту программу отредактировать word файл....
Запись текста в блок HTML
Здравствуйте
Как можно сделать так, чтобы программа могла добавить запись в див с id 'xxx1' страницы calendar.html, у которой путь, например, такой:...
TCustomForm.Print не работает под Windows 11. Задание на печать висит в очереди, но не печатает
Итак друзья!
Столкнулся с такой проблемой. Купил новый ноутбук с Windows 11 и моя программка сделанная в Дельфи перестала выводить документ на принтер!
Поподробнее:
Имеем принтер Canon TS5100. Не...
На RAD12 запустится проект Delphi 7?
На RAD12 запустится проект Delphi 7?
Извлечение ImageList из ресурсов
Доброго времени суток.
Извлекаем ресурс формы в формате .dfm из внешнего (чужого) исполняемого файла.
Открываем его в Notepad++, находим двоичный код ImageList.
Копируем код в буфер обмена.
В...
Визуализация выделенной строки в DBGrid
Здравствуйте.
Нужна "раскраска" в Gride в зависимости от статуса пролонгации.
Реализовал так:
procedure Tf_prolongatsiya.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol:...
Сохранение word-файла, взятие на редактирование его, и сохранение
Всем доброго дня. Подскажите в чем может быть проблема. При взятии на редактирование файла выдает ошибку и не сохраняет его в указанную папку. Подскажите, что не так прописал, нужно, чтобы брал файл...
Delphi XE8 настройки Bookmarks и веток begin . end
Добрый день. После переезда с 10 винды на 11 возникли сложности в работе Delphi XE8. В открытом любом проекте, при попытке ввода любого символа, сама делфи закрывалась. Закрытие удалось убрать...
TFMXObject = class(TComponent); // зачем в названии "Object" ?
Приветствую,
Вопрос сложный, но интересный.
Предполагается, что в назывании типа заложен важный смысл. Например, слово "Component" подсказывает delphi-программисту, что сущность может владеть...
Проблема с присвоением значения ProgressBar
Подскажите в чем может быть проблема, не могу присвоить значение ProgressBar? Ругается на то что значение это число, а что это должно быть ? На Delphi 7, писал проблем не было, а это Delphi 12, может...
Запуск скрипта python из Delphi
Приветствую, нужна помощь!
Хочу настроить IDE Delphi 12 для вызова скриптов Python
Нашел python4delphi на github
Выполнил то, что указано на странице...
DBGridEh + checkbox
Подскажите, как закоммитить изменения в БД СРАЗУ после клика мышкой(поставил/убрал галочку) в поле boolean?
При нажатии на checkbox в ячейке строка переходит в режим edit, и чтобы применить...
Применение inherited в деструкторе
Здравствуйте, уважаемые профессионалы.
У меня возник такой вопрос: обязательно ли в деструкторе применять inherited, если класс является потомком TObject?
Например:
type
TMyClass = class...
Как в процессе длительного заполнения ProgressBar вывести сообщение "Идет процесс вычисления!"?
Как в процессе длительного заполнения ProgressBar и выполнения большого цикла вывести сообщение "Идет процесс вычисления!
Как узнать все координаты точек, из которых состоит линия?
Доброго времени суток.
Вывожу линию на canvas.
Pen.Color:=clRed;
MoveTo(50,50);
LineTo(300,300);
Как узнать все координаты Линии(все координаты точек из которых состоит линия)?...
Создание электронного журнала в RAD Studio 10
Всем доброго дня. Подскажите, пожалуйста, как создать электронный журнал в RAD studio 10 на delphi. Пример задания прилагаю в скрине. Подскажите какие компоненты использовать. Чтобы сохранялись...
Какой использовать компонент, что одновременно менять цвет кнопки и добавить картинку?
Здравствуйте.
Подскажите, пожалуйста, какой можно использовать компонент, чтобы одновременно можно было менять цвет кнопки и добавить картинку?
XE8 Listbox сортировка добавить строки снизу вверх
Здарова как загрузить строки из реестра снизу вверх? добовляю ListBox1.Items.Insert(0, edit1.text); добовляется так
3
2
1
а при загрузке из реестра reg.GetValueNames(ListBox1.Items); получаеся...
Вставка в "тело" письма данных из запроса
Здравствуйте.
Как можно в "тело" письма (outlook) поместить таблицу?
Делаю select.
Далее все что отобралось нужно отправить по почте.
Создаю письмо
procedure...
DevExpress - не компилируется скин
Использую SkinEditor (ExpressSkins Library).
При попытке сделать Build скина, выдает ошибку.
Что за Resource compiler, и где его взять?
Компас 3D и Delphi 7
Как построить фаску 4х45 на цилиндре диаметром 50 мм и высотой 65 мм с одной стороны в компас3Д посредством кода Delphi7, а с другой стороны цилиндра построить скругление радиусом 3 мм? Модель 3Д, не...
Переделка приложения под службу для работы под WinXP
Собственно изначальная тема
https://www.cyberforum.ru/scada/thread3211557.html
Т. е. имеется приложение, которое удаленно читает OPC-тэги с WinCC, работающей на WinXP, но с нового компа оно...
Обновление отчёта в 1С через Delphi
Приветы!
Есть несколько баз 1С БП 8.3. В них установлены доп. отчёты. Эти отчёты периодически необходимо обновлять, когда выходят новые версии.
Возможно ли через Delphi соединиться с базами и...
Разбор данных после GET‑запроса
Здравствуйте.
GET‑запрос вернул кучу данных. Данные сохранены в txt файле. Как из этого можно взять только нужное. Например: ИНН и полное наименование?
...
Почему в этой игре нету крестиков , а в книге есть по её описанию?
Почему в этой игре нету крестиков , а в книге по её описанию есть?
игра
https://disk.yandex.ru/d/f25bHiWbwSXGxg
книга
https://disk.yandex.ru/i/b_fYPpcZgWzeUA
Добавлено через 6 минут
Как...
Не срабатывают точки останова при отладке BPL
Группа проектов. В путях рабочих папок нет кириллицы.
Файл выполняю правильный. Проблема с дебаггером только в модулях этой группы.
Если создать какой-то исключение в коде и остановить процесс, то...
Ошибка в использовании регулярного выражения
Здравствуйте, уважаемые дельфисты.
Есть строка, содержащая имя файла и его ID. ID-10 символов. Нужно ID отделить в одну сторону, имя файла - в другую. Было решено ID выделить с двух сторон особым...
"Говнокод"
С интересом читаю тему https://www.cyberforum.ru/delphi-beginners/thread3217149.html
Что есть "говнокод"?
Просматривая код в отладчике (стороннем, ollydbg, например) я четко вижу, что вызов...
Zlib не распаковывает архивы
Delphi 12
При вызове DstStream.CopyFrom(DecompressedStream, 0); выдает ошибку 'data error'
Заметил, что после строки 6 в DecompressedStream в переменной FBuffer одни нули.
Файлы архивов загружал...
Динамическое создание/удаление меток при параметрировании
Здравствуйте. Помогите пожалуйста реализовать на Делфи ту же самую расчётную программу, как в эксель-файле.
Я хочу чтобы для отображения промежуточных точек (линейной шкалы) динамически создавались...
Kompas6API5_TLB выдает ошибки при компиляции после создания -есть у кого рабочий исправленный?
Kompas6API5_TLB выдает ошибки при компиляции после создания -есть у кого рабочий исправленный?
Delphi 4 полная справка по IDE
Сабж.
Хелп по всем консольным утилитам, что лежат в папке bin?
dcc32, make, debuger и тд.
В стандартной поставке есть?
Вторая строка в ячейке Excel
Здравствуйте.
В ячейке текст из нескольких строк.
Предположим:
123654789
ООО "Чебурашка"
798651321321321357465463
Как из ячейки взять, например, вторую строку (ООО "Чебурашка") для...
Проблемы с кодировкой кириллицы в PyCharm
- Здравствуйте и Доброго Всем времени суток!
- Помогите, пожалуйста, в таком вопросе:
Хочу перенести из Приложения Delphi 7 куски кода (в виде КОММЕНТАРИЯ) в PyCharm. Естественно, вбиваю '# ',
...
Приоритет Align
Здравствуйте.
Можно ли сделать чтобы у Panel Align = left был приоритетнее Top и Bottom?
COM DLL объект Record
Возможно ли создание COM объекта тип Record
Чтобы можно создавать сам объект ,добавлять поля с любыми значениями,считывание и удаление данных объекта?
Нашел нечто ,но как создать DLL не хватает...
Ehlib для Delphi 10.4
На форуме одном есть тема (она на удивление только одна) откуда я скачал дистрибутив Delphi.Ehlib EhLib.VCL 10.2 Build 10.2.038 source included version (Professional Edition).
Там написано что...
Сохранить Excel-файл из OleContainer
Здравствуйте, кодеры.
Мне нужно разместить на форме компонент TOleContainer. В нем файл excel. Далее я в нем химичу и хочу по закрытию формы сохранить этот файл как документ excel. Кто-нибудь знает,...
Delphi и чертеж компаса
Добрый день.
Как считать текст с линии-выноски?, на скрине это цифры 32, 33, 34
В своем приложении на делфи добавил panel и на нее вывожу чертеж 2D компаса с помощью компонента TKGAX
...
Установка пакета компонентов (CPort 411f) на BDS IDE x64 с компиляцией run-time библиотеки
Кто работал c CPort, тот знает, что установка проводится в 2 этапа:
1) Компиляция библиотек времени исполнения.
2) Установка дизайн-тайм компонентов.
В Delphi 13 на 32-хбитную IDE ставится так...
Перенос строки в Excel
Я, вроде, как-то это раньше делал, но не могу вспомнить где.
В общем, скрепляется строка
if S<>'' then S:=S+', #13#10';
S:=S+QPUxMSA.Fields.AsString;
Которая потом будет выводиться в...
Как изменить текст маркеров на графике?
Как изменить текст маркеров на графике? Marks проставляются автоматически, настраиваются в дизайнере, а мне нужно изменить в этих флажках текст программно.
Рамка вокруг компонента
Доброго времени суток!
Нашел в Интернете (или, как говорит (пишет) уважаемые Verevkin - "спёрто из...").
procedure SetComponentBorder(c: TControl; colorr: integer);
begin
with...
TEdit с вводом только рациональных (float) чисел
Требуется ограничить ввод в текстовое поле TEdit только числами типа float, то есть цифр и DecimalSeparator.
Кроме того, надо проверять, что DecimalSeparator не был введен несколько раз.
Можно в...
По компоненту TimePicker отобразить минуты и часы
Подскажите по компоненту TimePicker1. Вывожу строку TimeToStr(TimePicker1.Time) выводятся часы минуты и секунды, хотя в настройках компонента указаны только часы и минуты, как сделать так чтобы...
Скриншот полноразмерного экрана игры
Здравствуйте всем хорошего настроения, мне нужно делать скриншоты играх в полноэкранном режиме я копнул в сторону директХ нашёл какую то библиотеку DirectX Headers...
Ленточное меню
Считываю с ресурса формы на которой находится ленточное меню (ТRibbon) пытаюсь повторить форму
Я понимаю, что, вероятно используется сторонний компонент TdxRibbonTab, но все же, вряд ли он...
Как вернуть значение из функции
Есть две процедуры: SaveValue и LoadValue. Первая работает нормально. Вторая не хочет менять размер массива байтов и сохранять в массив.
procedure SaveValue(Stream: TStream; AType: TElValueType;...
Переход на закладку в коде
Здравствуйте.При нажатие правой клавиши мышки, где номера строк прог., появляется зелёный кубик с номером, понял метка. Наверно, чтобы достичь, этого участка прог.Если это так, как это сделать, у...
ZColorStringGrid: не получается нормально добавить зафиксированные ячейки
Появился вопрос.
Раньше я пользовался компонентом StringGrid, но, к сожалению, в нем нет объединения ячеек.
Если что-то можно перерисовать с помощью DrawCell, то с объединением не справился....
Не видит Frame
Здравствуйте.
В проекте есть 5 фреймов.
Все они отображаются на формах и работают.
Сейчас есть необходимость перевыбрать один из фреймов, но он перестал отображаться в списке доступных для...
С формы не видно ADOQuery
Здравствуйте.
В DataModule есть несколько ADOQuery. Добавляю новый ADOQuery.
Создаю новую форму и подключаю DataModule в Uses.
С формы видны все ранее созданные элементы с DataModule, кроме вновь...
Установка компонентов
5. Install (Optional) "Cindy VCL components" packages
- Open and build runtime package cyComponents\VCLPack\pkCindyPackXXX.dpk for Windows 32 bit. Optionnaly you can build for Windows 64 bit...
DUnitX не обнаруживается средой
Здравствуйте, уважаемые форумчане!
Подскажите, пожалуйста, что делать, чтоб DUnitX уже хотя бы обнаружился средой? Стоит версия Community, первоисточник пишет, что должна быть из коробки. Но если...
GridPanel и автоширина строки
Здравствуйте.
На форме есть GridPanel и я никак не могу понять почему при выставленном Row SizeStyle = ssAuto строка не расширяется, когда значение Caption Label переноситься не несколько строк....
Компилятор ругается на идентичность параметров функции ReadConsole и WriteConsole
В консольном приложении необходимо при вводе пароля заменять символы пароля на '*'.
На просторах интернета нашёл код, но компилятор не желает его есть...
Ошибки в строках 15, 16, 19...
program...
DBGridEh FireDac локальная сортировка по столбцу
DBGridEh FireDac локальная сортировка по столбцу не работает все включил но не работает. Есть мнение что query fireDac не поддерживает локльную сортировку предлогалосб копернуть данные в в MemoTable...
Рандомное число в имени мютекс
Здравствуйте
чтобы запретить повторные запуски программы, использую функцию Check
имя мютекс - 'MyMutex'
var
HM: THandle;
function Check: boolean;
begin
HM := OpenMutex(MUTEX_ALL_ACCESS,...
Как правильно реализовать удаление в TStringGrid при хранении объектов?
Здравствуйте, уважаемые форумчане.
Помогите разобраться, уже всю голову сломал.
Есть StringGrid, состоящий из двух колонок (ключ-значение), хранящий объекты вида:
TkeyPair=class
private
...
FastReport многостраничный вывод
Добрый вечер.
Помогите разобраться.
Как сделать вывод форматированного текста (RTF) в FastReport, так что бы текст если не умещается на одну страницу то переходил на следующую страницу.
...
TextBox и Enter
На форме есть TextBox и по нажатию Enter поле не покидается, а нужно и не просто, а с запуском некоего парсера.
Парсер я "прикрутил" к событию "OnExit" и попытался так же прикрутить его к событию...
Добавление нескольких строчек в таблице Word
Подскажите, как в программе добавить сразу несколько строчек за раз в таблицу Word. У меня в программе есть StringGrid, состоящий из 26 строк и 2 столбцов. При его заполнении он переносится в таблицу...
Убрать Delphi7
Здравствуйте, как мне убрать Delphi 7, что бы заново установить Delphi 7. В панели управления,программы и компоненты, я не нашёл Delhi 7. Там пишет ресурс установочного файла не найден, он у меня...
Считать значения всех CheckBox
Здравствуйте! Для работы пишу программу для расчета некоторых шкал в интенсивной терапии.
Один из калькуляторов представляет из себя 28 ответов Да-Нет. Представлены они в виде CheckBox-ов.
В...
DateTimePicker
Здравствуйте, на форме есть DateTimePicker с датой, возможно ли как-то прикрутить к нему MessageDlg чтобы при выборе в MessageDlg - No дата в DateTimePicker не менялась?
Добавить в StringGrid конкретное количество строк в конец
Подскажите еще,пожалуйста. Как мне сделать на форме добавление в StringGrid конкретное количество строк в конец? К примеру, изначально у меня StringGrid состоит из 26 строк. При запуске программы,...
Перехват Ctrl+Tab для переключения вкладок на MDIChild форме
Собственно задача проста - отловить ctrl+tab для переключения вкладок на MDIChild форме.
Сделала вот такую процедуру
procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
и на...
Исправление артефактов в документе Word
Есть следующая проблема при конвертации PDF-документов в формат MS Word:
1. Если копировать содержимое PDF и вставлять с DOCX-файл, то сильно искажается разметка и форматирование.
2. При...
Кодировка файла
Подскажите пожалуйста, есть ли возможность стабильно определить кодировку файла без BOM?
Сейчас использую вот такой костыль:
var AFileName := ...;
try
Encoding :=...
Scroll в TabSheet
Я в тупую поместила на вкладку компонент ScrollBox и уже на него остальные компоненты. Но. Есть ли возможность реализации скролла именно на вкладке, чтобы не городить лишние компоненты?
Нет - ну и...
Перевод String to PAnsiChar (Запуск других приложений)
Привет!
При запуске других приложений с помощью WinExec ('путь', SW_SHOW) или ShellExecute (Form1.Handle, nil, 'путь', nil, nil, SW_RESTORE) c путем прописанным сразу в команде - все проходит...
Как сделать тест на delphi
мне нужна инструкция как сделать тест из 10 вопросов с количеством правельных ответов и оценкой
Как пользоваться функцией ShellExecute (Delphi 5-7)?
воопщем задание звучит так:
составить програму и использовать ShellExecute для вывода нескольких рабочих окон,
допустим, с одгой формы чтою через ShellExecute открывались 2 другие%).
уже 2 дня...
Имитация нажатий клавиш клавиатуры
Как соорудить программу, чтобы по нажатию ранее назначеной клавише происходила имитация нажатия некоторой комбинации клавиш. Пример: я нажимаю правый Ctrl программа сама имитирует 5 поочерёдных...
Запись в текстовый файл
помогите плс! в файлах я вообще ни бум-бум.. = (( как содержимое Edit1.Text Edit2.Text записать в текстовый файл? содержимое Edit1.Text является string а Edit2.Text - integer... надеюсь только на...
Нажать ctrl+s в чужом окне
почему не работаетprocedure TForm1.Button1Click(Sender: TObject);
var
h : thandle;
begin
h := findwindow('Документ - WordPad', nil);
SetForegroundWindow(h);
...
Определить, по какую сторону от прямой расположена точка
Существует точка i и прямая, координаты которой задаются пользователем. Определить, по какой стороне относительно прямой расположена эта точка (справа или слева). Заранее благодарен
у меня єсть...
Открытие формы
Как в Delphi 7 из одной формы открыть другую (при нажатии кнопки)
Я пробовал в обработчике Onclick создать объект класса процедурой Create, не вышло
попробовал тогда в той форме, которая вызывается...
Округлить значение до десятых или до сотых
Подскажите пожалуйста как в данной процедуре округлить значение до десятых или до сотых.
procedure compl.vuvod(z : compl);
begin
a:=floattostr(z.re);
b:=floattostr(z.im);
if z.im < 0 ...
Онлайн компилятор
Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.).
Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal
http://pascalabc.net/WDE/
Есть ли...
Как получить список файлов и папок в директории
Как получить список файлов и папок в директории (именно в директории, без файлов подпапок)?
Cоздать txt, записать в него текст и сохранить файл
Подскажите, как создать txt-шник, записать в него строку и сохранить всё это дело.
Добавлено через 16 минут
и чтобы это всё делало при нажатии на Button
Ввод в Edit только чисел
как сделать, чтобы в Edit можно было вводить только числа?
Поиск подстроки в строке
Добрый день...скажите, пожалуйста, есть ли такая функция, которая определяет номер позиции символа в строке...мне нужно в строке взять весь текст после знака '=' ...заранее спасибо...
Вставляем картинку в Delphi
Добрый день,
Можно ли вставить картинку в свою программу, т.е фон, а на нем уже кнопки делать, надписи самой программы?
Заранее благодарю. :)
Калькулятор, возведение числа в степень
Пишу простенький калькулятор!
с умножением, вычитание, делением, сложением разобрался! но вот проблема... нужно еще реализовать возведение числа в степень!
procedure...
Как узнать директорию исполняемого файла?
Доброго времени суток!
Появилась проблема....
Функция GetCurrentDirectory Возвращает текущий каталог. Обычно это каталог в котором была запущена программа. Но это при том условии если программа...
List index out of bounds (0)
Всем доброго времени суток! пожалуйста помогите разобраться с проблемой: при задаче в TTimer свойству Enabled значение True, программа при запуске ругается:"List index out of bounds (0)"....
Ttimer...
Ошибка "access violation at address in module. Read of address"
При запуске программы появляется ошибка "access violation at address in module. Read of address"
Подскажите как её устранить.
Добавлено через 6 минут
Всё) нашёл ошибку) проблема в анимации...
Нужен диалог выбора папки, а не файла
У меня возникла такая задача.
Нужен диалог, в принципе похожий на OpenDialog, только чтобы он мне выдавал адрес открытой там папки, а не выбранного файла.
В принципе с этой задачей справляется...
Перевод чисел из одной системы счисления в другую
нужна прога с исходником на делфи для перевода чисел из одной системы счисления в другую
Ошибка "Unable to rename delphi32.$$$ to delphi32.dro"
Помогите пожалуйста! Запускаю делфи, открываю нужный проект и жму создать новую форму...
Выскакивает ошибка "unable to rename delphi32.$$$ to delphi32.dro" :(
Что это значит и как от нее...
Как вставить картинку?
Подскажите пожалуйста как вставить картинку в форму? Картинка из файла
Чтение и запись СОМ-порта
Привет ребят, нужна небольшая помощь от вас, начал работать с СОМ портом, и немного не догоняю тут в одном месте, нашел пример работы с СОМ портом а пример не описан как следует, возможно вы мне...
Способы ввода и вывода массива
Уважаемые Форумчане, прошу вашей помощи
покажите способы ввода и ввода массива
Переход с одной формы на другую
подскажите как зделаь переход с одной формы на другую методом нажатия на клавишу button
Как получить текущую дату?
Всем привет! Хочу сделать так что бы в Edit-е у меня автоматически записывалась дата, от компа.
Подскажите, какую функцию или процедуру мне использовать. Спасибо заранее!
преобразование заглавных букв в строчные
скажите пожалуйста как преобразовать заглавные буквы в строчные!
Добавлено через 3 минуты
для delphi!
Unsatisfied forward or external declaration
Unsatisfied forward or external declaration - что это значит?
процедуры у меня обьявлены в Type, описание их тоже есть, как поправить?
Ошибка - Missing operator or semicolon
Подскажите, почему происходит такая ошибка? Unit1.pas(67): E2066 Missing operator or semicolon.
Вот код:
NewName:='123.txt';
RenameFile(FName, NewName);// здесь ошибка, компилятор не пропускает
Модуль числа
Скажите пожайлуста какой оператор надо использовать что бы Delphi 7 брал модуль числа?
Проверка на существование файла
В общем делаю проверку на существования файла через if но если файла нет то появляется ошибка...
можно ли это как то исправить?
if FileExists('C:\test.txt') then
begin
end
else
begin...
Вставка текста из файла
Немогу найти ошибку, не хочет брать отдельно каждую строку из файла и записывать в PansiChar, после каждого нажатия кнопки
Код всей программы
unit Unit1;
interface
uses
Windows,...
Как сделать форму по центру экрана ?
Как сделать форму по центру экрана. Прога написана для разрешения 1024, а экран размером 1366
Сделать графики в TChart
Дело вот в чем - нужно по заданию сделать графики в TChar'e
Но я с ним не работал никогда, и не в курсе, как в него забываются данные, а хелпник добрые люди на моем диске порезали безжалостно(
Буду...
каким кодом обозначается ENTER в ASCII?
подскажите плиз каким когод обознрачается ENTER в ASCII?
Добавлено через 2 минуты
ненадо,уже нашел)
Как свернуть прогу в трей?
Народ как свернуть прогу в трей ну соответственно вытаскивать оттуда и проводить всякие опирации над ней из трея??
Сохранить excel файл
надо как-то програмно сохранить excel файл
XL := CreateOleObject('Excel.Application');
XL.DisplayAlerts := true;
XL.WorkBooks.Add;
XL.WorkBooks.WorkSheets.Name := 'Прайс';
...
ProgressBar
Скажите, что нужно делать, чтобы она заработала?
Ошибка I\O error 103
procedure Ttest1.Button2Click(Sender: TObject);
var f: textfile;
begin
AssignFile(f1,'users\'+log+'\'+log+'v1.txt'); // привязка названия к переменной
{$I-}
Rewrite(F1); //
{$I+}...
сделать кнопку выход в делфи
помогите пожалуйста сделать кнопку выход делфи
более 3х условий в If then else
Прошу не пинать если уже обсуждалось, но я не нашел, если всеже обсуждалось, то прошу дать ссылку на тему.
if ( ( (условие1) and (условие2) ) and/or (условие3) ) then
есть канешно вариант...
Очистка Edit-ов
Здравствуйте!
Я пытаюсь сделать очистку Edit-oв.
Но при нажатии на кнопку вижу такое сообщение
" is not a valid floating point value
Пытаюсь очищать вот так "edit1.clear;"
помогите решить!
Проверка переменной на число
Народ! Подскажите нормальный простой действенный способ проверить ввел ли пользователь число или нет. Обычное целое число, если нет то чтоб был ноль. Ну или чтоб просто нельзя было ввести в поле...
Глобальные переменные
Здравствуйте. Объясните пожалуйста как объявлять глобальные переменные.
Спасибо.
Имитация клика мышки
Здравствуйте! Подскажите, как возможно реализовать программу, которая будет имитировать клик мышки в заданной точке экрана? То есть если в область клика попадает объект стороннего приложения...
Где найти мануал по парсингу XML? Как работать с XML в Delphi (в частности, TXMLDocument)?
Всех приветствую!
Раньше несколько лет работал в Матлабе, но теперь приспичило писать программу на Дельфи. Надо открывать xml-файлы, считывать из них информацию (имена элементов, их количество,...
Изменить цвет кнопки
Как изменить цвет кнопки при наведении указателя, а потом вернуть исходный цвет? Подскажите, пожалуйста, очень нужно.
Выход из программы при нажатии кнопки или клавиши
Подскажите пожалуйста, как сделать так чтобы при нажатии кнопки программа закрывалась, чтобы каждый раз не нажимать Programm reset
Как правильно закрыть программу
Из головного модуля запускаю последовательно три модальные формы:
...
FormServer.ShowModal;
FormLogin.ShowModal;
FormUsers.ShowModal;
Application.Run;
end.
Если в любой из форм...
Редактирование ячеек StringGrid
Здравствуйте=)))
У меня вопрос: "Можно ли добавлять значения в StringGrid непосредственно щёлкая мышью на нужное пересечения столбца и рядка"??????
MessageBox
Как сделать messagebox,чтобы было 3 кнопки Да Нет Отмена
еще надо сделать что то с case!!!!!
Как парсить страницы сайтов
Научите парсить какой нибудь кусочек сайта...а то я кучу мануалов перелазил... и не чего нужного
Команда задержки Sleep
Здравствуйте. Вот код
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:='Один';
sleep(3000);
label1.Caption:='Два';
sleep(3000);
label1.Caption:='Три';
...
Как изменить имя проекта?
Как изменить имя проекта в делфи? Никак найти не могу...
А то в процессах Project1 светится.
Замена символов в строке
Требуется заменить некоторые символы в строке на другие. Никакой математической закономерности в порядке замены нет! Например, просто, символ «A» нужно заменить на «B», «B» заменить на «H», «H» на...
Как описать Float тип а дельфи
Вопрос в теме. Подскажите как сделать?
Добавлено через 3 минуты
и в какой библиотеке функция RealToStr и обратно
Открыть файл Excel в Delphi
Подскажите пожалуйста как открыть файл Exel в Delphi.
Открытие файла и работа с ним (opendialog)
Здравствуйте.
Подскажите пожалуйста каким образом работать с файлом, открытым opendialog ?
Если заносить его сначала в мемо, то все понятно
memo1.Lines.LoadFromFile(opendialog1.FileName)
а...
Sendmessage
Здравствуйте, не могли бы вы обьяснить мне как пользоваться Sendmessage, какие модули нужно подключить как правильно прописать отправку команды в окно "Bot" и что важно знать об этом, Спасибо.
...
Очистка Image.Picture
Как очистить компонент Image от картинки что біла уже туда занесена?
Как в программе изменить цвета Label, Edit, Button?
Но чтобы код не нужно было вводить вручную, может где-то в меню можно?
Выполнить какую-то команду в командной строке (cmd)
Ребят, подскажите, как выполнить какую-нибудь команду, чтобы она воспринималась как будто из коммандной строки (cmd.exe). Например если бы я ввел в командную строку 'ping ...' то началось бы...
Как создать свое событие для своего класса?
Добрый день всем!
Подскажите как создать событие для своего класса? Экземпляр класса должен реагировать на
определенные события, обработчик которых вызывается при определенных условиях. Познания не...
Добавление строк в StringGrid
Доброго времени суток!
Подскажите, пожалуйста, как добавить новую чистую строку в StringGrid при нажатии на кнопку в самое начало таблицы или как сдвинуть все имеющиеся данные на строчку вниз.
Обратный отсчет с компонентом Timer в Delphi7
Помогите реализовать обратный отсчет. Надо что бы цифры отсчета были видны, как убывает время, а когда время истекло выполнялось какое либо действие. В Dlephi ноыичок, поэтому прошу помочь =)
Break и Exit
Break; - это функция выхода из цикла, при чем если за этим цикл по строкам кода стоит еще какой-то другой цикл то следующий цикл уже будет работать?
Exit; - выход из всего кода что стоит после этого...
Invalid floating point operation.
function Df1(x:real):real;
begin
Df1:=-2+(0.4*x);
end;
function Df2(x:real):real;
begin
Df2:=-2.4+(0.4*x);
end;
procedure scet;
var
messageBox
Здравствуйте! У меня проблемка - не пойму как сделать для
messageBox(Handle,'Сохранить изменения в БД перед выходом?','Выход', mb_YesNoCancel or mb_iconquestion)
три обработчика событий: по...
Как вставить картинку на форму
Подскажите как вставить картинку на форму? Кидаю обьект image, а дальше что?
Ошибка в программе: Assignment to FOR-Loop variable 'i'
Задача: Дан массив случайных чисел. Нужно найти макс. и мин. элемент и поменять их местами. Так вот, в этом фрагменте программы:
imin:=0;
imax:=0;
for i:= 0 to (n-1) do
begin
...
Работа с ComboBox
Имеются 5 компонентов Combobox. Каждой строке в них нужно присвоить определенное числовое значение. Например,
Combobox «Транспорт»: самолет:=2000; поезд:=1500; автобус:=1500,
Combobox...
Знаки после запятой.
Помогите плиз,я весь инет обшарил на форуме все ветки прошустрил,ничего не помогает,меня этот дельфи одолел уже((( уже устал(( помогите пожалйста, мне нужно после запятой пару чисел только... эти...
Работа с COM-портом...
Добрый вечер, люди добрые! Помогите пожалуйста разобраться. Нужно мне подключить датчик пожарной сигналки к компорту(только теоритически, есстественно), и соответственно написать прогу, которая бы...
Отображение строки UTF-8 (получение данных с сервера)
Всем привет!
Возникла следующая проблема. Никак не могу вывести текст, содержащийся в UTF-8 строке.
Ситуация следующая. Нужно получать с сервера определённые данные и отображать их в своей проге....
Как узнать разрешение экрана?
как узнать разрешение экрана?
Проверить число на чётность.
точно не помню...но что-то в этом роде...
на форме сделать эдит1 и баттон...вводя число оно должно проверятся на нечетность...
Тема должна иметь осмысленное название. Название изменено.
Как добавить в ComboBox пункты
Как добавить в ComboBox пункты
base64 Decode\Encode
Привет.Подскажите пожалуйста, как декодировать и снова кодировать base64 в делфи? Кинул на форму компоненты Indy, но в функциях так и не разобрался.Прошу помощи
Проверка edit'ов на пустоту
Всем привет
Есть форма регистрации сотрудника и 9шт Эдитов.
Как проверить все эдиты на пустоту?
писал раньше if length(edit1.text)=0 then label1.caption:='Поле не заполнено' esle...
Как программно сменить раскладку клавиатуры
Подскажите пожалуйста, как сменить раскладку клавиатуры на английскую, если в системе установлено три более языка?
Вот эта штука почему-то не работает:
ActivateKeyboardLayout(0,HKL_NEXT);
Сделать скриншот экрана
Народ помогите. Как можно сделать в Delphi 7 скришнот экрана, размером 100-200 кб? Просто нужно сделать много скришншотов, а качество скриншота неважно. Чем меньше размером тем лучше.
Связать две формы
как осуществить работу в делфи с 2 формами одновременно?
Delphi проверить наличие компонента
Ребят, помогите разобраться. Условие срабатывает всегда, даже когда компонент есть.
if ((self.FindComponent('dynamicedit' + IntToStr(i)) as TEdit) = nil) then //если поля нет, то создаем его
...
Как поменять иконку у exe файла
Мне нужна другая иконка для моего приложения на exe файле.Как её поменять?:yahoo:
Ошибка: Exception EAccessViolation in module
Добрый день! Люди, помогите, пожалуйста!
Ошибка при запуске программы: Exception EAccessViolation in module
Программа прекрасно работает на компьютере, где она была компилирована!
Имитировать на экране работу электронных часов
Здравствуйте, помогите реализовать программу.
Имитировать на экране работу электронных часов.
Ошибка i/o error 105
Программа компилируется. И когда выбираешь txt док чтобы открыть выходить ошибка i/o error 105 . Как можно исправить? Программа состоит из нескольких юнитов поэтому я прикрепил проект
Конструкция On E:Exception Do
Добрый день! Подскажите пожалуйста, в чем смысл конструкции On E:Exception Do? Что такое E? Правильно ли я понимаю, что эта конструкция реагирует на любое исключение?
Добавлено через 44 минуты...
Справка Delphi 7 не работает в Windows 10
Пробую бесплатный сыр от Microsoft: обновил систему до Windows 10. Я так и думал, что справка Delphi 7 сразу не заработает, но надеялся победить установкой WinHelp32. Однако - не получилось (запустил...
Округление до 2-х знаков после запятой
Доброго времени суток.. Пользуюсь функцией :
function RoundMax100(Num: real): real;
begin
result := round(num * 100 + 0.5) / 100;
end;
далее
S := StrToFloat(edt5.Text);
операторы div и mod
Привет всем, ломаю голову с утра уже, прочитал задачу, и решил ее решить, ну не тут то было все, вот код :
program razlozenie_chisel;
{$APPTYPE CONSOLE}
uses
SysUtils;
var...
Ошибка "Access violation at address."
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,...
Как записать данные в файл MS Word
Есть файл word. как его можно заполнить через делфи? если такое конечно вообще возможно. я в делфи разбираюсь плохо.
проект делфи связан с бд access. нужно чтобы было так: занёс через делфи данные...
Как парсить Json?
Нужно из строки ...
Преобразовать текст из кодировки Win1251 в DOS-866
Господа программисты, Вашему вниманию предлагаю следующий код (юнит выложен полностью):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...
Получить количество строк в ComboBox и ListBox
Как узнать сколько строк в ComboBox или ListBox/
Например:
if Количество строк > 5 then
ShowMessage('Больше добавить невозможно!');
Кнопка запуска приложения
У меня есть приложение.exe. как мне сделать функцию кнопки чтоб по ёё нажатию запускалось приложение???
Запуск внешней программы в форме программы
Всем привет :)
может Вы меня и не поймете, но не пинайте, я только учусь :)
Делаю я оболочку для CarPc. И главная затея, сделать или сотворить одну классную вещь, а вещь заключается в том, что...
Программа светофор
Добрый вечер.Может сделать эту задачу
Можете помочь сделать прогу!?
1. Разместите на форме объекты Tshape в форме светофора, управление которым будет осуществляться через RadioButton.
2. Создайте...
Загрузка изображения в Image
C помощью OpenDialog пытаюсь загрузить изображение в Image но выдаёт ошибку Unknow picture file extention
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
...
Объект TDictionary. Что такое ключ и что такое значение?
Из прочитанного в гугле понял что это нечто наподобие какого-то словаря:
Коллекция пар ключ-значение. и что работать будет только на делфях старше 7 версии.
Вопрос такой: Что же такое ключ и что...
Ошибка: Operator not applicable to this operand type
Ребят, помогите что не так!
Не серчайте на меня, У меня Delphi только одно занятие было.
Если сможете то поправьте, и как то по проще , шоб я и препод понял.
Delphi:
unit Unit1;
interface
...
Как определить кодировку текста?
Доброго времени суток.
Подскажите как автоматически определить кодировку будь то русский или латинский текст?
нужна поддержка кодировок ANSI, Unicode, UTF-8.
Может у кого есть готовый код для...
Загрузка картинки PNG в Image
Всем добрый вечер. Не так давно на форуме, одним из посетителей был затронут вопрос о загрузке png в image.
Думаю, некоторые помнят эту тему (в частности UI и angstrom). Тогда было предложено TC...
Как сделать форму поверх всех окон?
Подскажите. У меня простая прога. Одна форма. Хочу сделать её поверх всех окон. Подскажите также вариант, как это делать программно.
Дополнительный вопрос. Где мне выставить значения, чтобы...
Прозрачная форма с непрозрачными компонентами
Можно ли сделать прозрачную форму но компоненты чтоб было видно?
Сравнение дат
Добрый день, друзья!
Разрабатываю приложение для аптеки, приходится проверять не вышел ли срок годности у товара.
Данные о конце срока годности хранятся в базе данных Access, в формате...
Создать массив строк
возможно ли создать массив строк при условиях
1)тип string
2) длина строки не определена
3) кол-во строк не определено и пользователь его не введет (добавляются автоматически)
и что самое главное...
Открытие ссылок в браузере по умолчанию
Помогите пожалуйста, при нажатии на ссылку в компоненте Webbrowser открывается IE, но мне необходимо что бы открывался браузер по умолчнию.
Искал в гугле там было что то про ShellExecute, но можно...
Удаление всех файлов из папки
Всем здравствуйте. Подскажите пожалуйста, как удалить все файлы с одинаковым расширением (например *.tmp) из папки?
Как узнать размер файла?
Доброго времени суток!Я задался вопросом как определить размер файла имея путь к нему?нашел в инете пример вот такой
function GetFileSize(FileName: string): Integer;
var
FS: TFilestream;
begin...
Форма поверх всех окон
Подскажите как сделать так чтобы после срабатывания таймера форма восстанавливалась из трея поверх всех открытых окон :cool:
(добиться сворачивания и разворачивания у меня получилось)
Как можно убрать текст из поля memo
Как можно убрать текст из поля memo, поле только создано! нужно чтоб это поле было пустым.
Заранее спасибо!!!
Узнать разницу в секундах между датами
привет всем.
допустим в моей программе срабатывает звуковой сигнал в 12:30:00
текущее время - 12:20:00
как сделать так, чтобы например в лейбле отображалась разница между первым и вторым временем?...
Timer в Delphi и как им пользоваться.
Я решил сделать прикол, а нужно вставить таймер, и чтобы он отсчитывал время. Помогите и объясните мне пожалуйста как и что надо писать, чтобы таймер отсчитывал время обратно.
Как поменять цвет строки в listbox?
подскажите как сделать что бы можно было менять цвет строки в листбоксе. сейчас добавляю так-
procedure addlog(txt:string);
begin
Form1.Listbox1.Items.Add(txt);
...
Узнать путь к файлу в директории приложения
Здравствуйте, мне необходимо узнать в программе путь к папке где находится программа и сохранить его в переменную. Подскажите с помощью каких методов это можно сделать?
Дельфи не компилирует проект: "F2039 Could not create output file"
Создал две формы и пару кнопок, первый раз запустило нормально, а теперь выдает ошибку
F2039 Could not create output file '.\Win32\Debug\Project6.exe'
как это исправить?
Пустой edit
Подскажите, пожалуйста, что нужно написать в процедуре, чтобы пользователь не смог оставить пустой edit, т. е. после нажатия кнопки вычислить, при наличии пустого поля, появлялось сообщение -...
Из строки удалить символы
Дана строка S. Удалить из неё все символы <!> .
помогите кодом плз, знаю что надо на форму выкинуть рамку где вписывается текст, кнопку батон что бы под кнопкой была команда удаление...
Внешняя граница таблицы Excel
как прорисовать что бы выделыло только внешние границы использую
xls.activeSheet.Range.Borders.LineStyle:=1;
почитл немного но не нашел как правильно прописать что бы было только выделение...
Фон формы
Здарова всем)
У меня есть форма и картина)
У меня вопрос:как на форме залить фон этой картинкой? )
на подобии как в VB6 (выделяем форму-нажимаем picture-выбираем картинку для фона формы)...
Floodfill
Подскажите что делать. Я ввожу
paintBox1.Canvas.FloodFill(_x,_y,colordialog1.Color);
и выдаёт ошибку "Not enough actual parameters"
ShowMessage, заменить текст в шапке
Здарвствуйте. Подскажите пожалуйста, как сделать так, чтобы вместо Project1 в шапке сообщения было какое-нибудь другое сообщение, например 'Hello world'? Ниже привожу скриншот, с помощью которого вы...
Пароль под звездочками
PasBuf:=InputBox('Повтор пароля','Введите пароль еще раз: ', PasBuf);
можно ли в этом окне скрыть вводимый текст звездочками? или приедется рисовать отдельную форму( не хотелось бы изза этого...
Проверка на нажатие клавишу Enter
Здравствуйте. В универе начали бегло проходить delphi и для понимая сути объектно-ориентированного программирования дали дз: написать программку не большую. Всю основную часть я понимаю как написать,...
Как создать справку?
Как создать справка?
Перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ
"перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ"
Вот такую бяку задали в колледже на практике народ плиз напишшите алглритм выполнения этой бяки!!! А то я чёт сооброзить...
Календарь в Delphi
Всем доброго времени суток, нужен ваша помощь... Хочу написать календарь, чтоб на форме было 12 месяцев и выбор года. Праздники отметить другим цветом... Стандартные компаненты не подходят т.к....
Как разбить документ Word на несколько файлов
Здравствуйте Уважаемые!
Подскажите.
Имеется документ Word, состоящий из "n" страниц.
Как разбить его на "n" файлов, в каждом из которых соответствующая страница?
Заранее благодарен
Al_Sha
Запрет ввода цифр в поле Edit
Как запретить ввод цифр с клавиатуры, в поле Edit? (но чтоб буквы и дополнительные символы вводились)
Классы и объекты
Задаюсь этим вопросом с того момента как начал изучать ООП, т.е. на протяжении 2-3 лет. Пытался найти сам для себя ответы, но никак не пойму. В чем же разница между классами и объектами?
Создание калькулятора
в общем вопрос состоит вот как...
для практики решил создать инженерный калькулятор, есть некоторые не совсем понятные нюансы... знатоки, помогите пожалуйста..
самый легки и стандартный способ -...
Как правильно закрыть книгу Excel - WorkBook или WorkBooks
Что правильнее:
WorkBook := unassigned;
или
WorkBooks := unassigned; У меня сначала работал этот вариант (правда работал ли точно, не понятно). Компилятор ошибок не выдавал.
Когда перенес код в...
Вывести текущее время и текущую дату
создать программу, которая выводит текущее время и текущую дату.
var
DateTime : TdateTime;
procedure Tform1.Button1Click(Sender: Tobject);
begin
DateTime:=Time;...
Отображение русского языка в консольных приложениях
Решил поэксперементировать с консольными приложениями в делфи.Но встретил проблему неотоброжается русский язык, в место него иероглифы какие то.
Перевод string в integer
nomer : Byte;
bufer : string;
bufer2 : string;
SetLength(bufer2,10);
bufer2:='10 абвгд 2';
bufer:=bufer2;
bufer:=bufer2;
nomer:=StrToInt(bufer); //на этой строчке ругается
Товар стоит "a" руб. "b" коп. За него заплатили "c" руб. "d" коп. Сколько сдачи требуется получить?
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно....
XMLDocument
Использую компонент XMLDocument и не как не могу понять как мне загрузить например вот это Все что находится между тегами WMExchnagerQuerys.
Как прочитать конкретный тег например курс доллара...
Как осуществить поиск файла во всех папках данной директории?
Добрый день!
Как осуществить поиск файла во всех папках данной директории?
Есть директория, в ней много папок, мне нужно найти там один файл программно.
Использовал FindFirst( );
Но он ищет...
Ошибка типа "Undeclared identifier"
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, DBCtrls, jpeg, ExtCtrls, Menus, Buttons;
const...
Как преобразовать Real в Integer
Как преобразовать Real в Integer
FloatToInt не работает что-то
Delphi 7 работа с txt файлами
скопировать строки текстового файла F, длинна которых меньше указанной, в текстовый файл G. Буду благодарен...
Ошибка: "brcc32" exited with code 1.
Что это за ошибку выдает при компилировании??
Checking project dependencies...
Compiling Project1.dproj (Debug, Win32)
brcc32 command line for "Project1.vrc"
d:\program files\embarcadero\rad...
[Error] Unit1.pas(46): Incompatible types
Вот делаю Лабораторку по масивам напесал
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Buttons;
type
Как сделать прозрачный фон у рисунка TImage?
Как у рисунка TImage сделать прозрачный фон либо перекрасить его фон в цвет панели перед рисованием?
Ошибка: Invalid pointer operation
Создаю проект. Самый обычный.
2 формы, текст, пару кнопок.
И ни с того, ни с сего ошибка "invalid pointer operation".
Пробовала пересоздавать проект, несколько раз. И всё равно в разные моменты...
Как создать видеоплеер?
Как ?
.avi ... .mpeg4 ... PLEASE !
Пожалуста, помогите, 3 дня ищу, и нигде, никак не получается.
Delphi 7 . Если объесняете, то скажите, какие паки, компоненты.
КОД ?
Просто, что б... pause,...
Показать диалог выбора папки
как в delphi 7 вызвать диалог выбора папки? в палитре инструментов во вкладке dialogs его нет.
Перекодирование из windows-1251 в utf-8
есть программа которая берет вордовский файл и конвертирует его в .txt. Но вот на выходе файл в кодировке windows-1251, а мне нужен на выходе чтоб был в utf-8. Помогите это сделать.
procedure...
Найти в файле строки, начинающиеся на "А"
Формирую файл, записью в него из Memo, затем необходимо найти строки начинающиеся на "А" и вывести их в Edit'е. Код приведен ниже.
procedure TForm1.Button1Click(Sender: TObject);
var
f,g:...
Определить, является ли число точной степенью числа 2 (цикл while)
Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае.
Операцией возведения в степень пользоваться нельзя!
Добавлено через...
Установка компонентов
Приветствую Вас Уважаемые посетители форума! Вот лазил я по форуму и много кто спрашивает как устанавливать компоненты в delphi в следствии чего решил добавить статью (с позваления модераторов))))
...
Создать отдельный exe файл программы
Написал в Delphi программу, нужно сделать отдельный exe файл, чтобы программа работала самостоятельно, без запуска Delphi. Чтобы файл запускался на другом ПК, где не установлен Delphi. Помогите...
Сортировка массива по убыванию
Люди, есть в delphi функция сортировки массива по убыванию? Простой одномерный числовой массив, надо чтоб у первого индекса было максимальное значение, у второго индекса значение меньше первого и...
При нажатии на кнопку отображать новое окно
Помогите! Как сделать чтоб при нажатии на кнопку выскакивало новое окно
Чтение из файлов doc и docx
подскажите как можно прочитать текст из этих файлов.
Запуск приложения от имени администратора
Здравствуйте!
Скажите пожалуйста, а есть ли возможность в delphi7 программно запустить программу от имени администратора. То есть при старте программа сразу запрашивает разрешение на то.
Нужен подсказщик в WinLock! Нужно отключить Alt+Tab, Ctrl+Alt+Del, Ctel+Shift+Esc !!!!!
Здравствуйте! Мне нужна помощь... Нужно отключить вот эти комбинации клавиш в WinLock:
Alt+Tab,
Ctrl+Alt+Del,
Ctel+Shift+Esc
Я в Delphi 7 новичёк..обьясните пожалуйсто как это сделать..
Если...
Сапер на Delphi
Хочу написать сапера на делфи. Принимаю любую помощь и предложения.
[Excel] Изменить формат ячеек на числовой
Доброго времени суток, форумчане!
Пишем программу, в которой часть работы завязана на считывание и обработки ячеек Excel, и наткнулись на проблему: не получается сменить формат ячеек с текстового на...
Сохранить текст из memo в текстовый файл
Мне нужна текст каторий есть в мемо сохранить в txt файле. Как ето зделать:?
Деление в Delphi 7
Delphi 7.
Console Application.
var a,b : integer;
c : real;
begin
writeln('vvod ishodnih ');
readln(a,b);
c := a / b;
Перевод каретки на новую строку
С помощью какой функции каретка переводится на новую стоку?
Запуск стороннего .exe - файла
Как с наименьшими заморочками запустить .exe - файл из Дельфи? Пример или указание на функцию, плиз.
Даны действительное число a, натуральное число n. Вычислить P=a*(a+1)*(a+2)*......*(a+n-1)
Напишите,пожалуйста,код программы
Даны действительное число a, натуральное число n. Вычислить P=a*(a+1)*(a+2)*......*(a+n-1)
Квадратное уравнение
Подскажите,плиз.Вот я составила программу по вычислению квадратного корня,но у меня почему-то выдает только ответ "Уравнение не имеет решение" при любом значении переменных.Вот сама программа:
unit...
вопрос по case ... of
имеем оператор выбора стандартного вида, например:
case Selection.ItemIndex of
0:<оператор1>;
1:<оператор2>;
и т.д.
Если есть необходимость в листе выбора указать сразу несколько ключей для...
Операторы Exit, Close, Application.Terminate в чем разница между ними?
Хочу понять разницу между этими операторами.
Например, оператор Application.Terminate выходит из программы, то же делает и Close. ТОгда как выбирать, что из них ставить?
Вывести в Memo содержимое текстового файла
Разработать программу, которая в поле Memo выводит содержимое текстового файла. Вид формы приведен ниже
Динамическое создание формы
вот например мне надо динамически создать новою TForm1 и обязательно присвоить событию oncreate другое,так как в основном есть открывание файлов,що приводит к ошибке если оно еще раз запускается,ниже...
JPEG error #53
здравствуйте.
вылетает ошибка JPEG error #53 , как я понял из за того что подгружается "неправильный" Jpeg файл
а можно ли как то отсортировать файла на "правильность" так чтобы если файл не...
Решение СЛУ методом Гаусса
Программа не работает,посмотрите пожалуйста
procedure TForm1.Button1Click(Sender: TObject);
var
n,i,j,k:integer;
h,y1,y2,y3:real;
A:array of real;
B:array of real;
X:array of real;
begin...
Программное создание кнопок
Всем привет. В последнее время в "самодельных" калькуляторах программистов-новичков очень часто вижу, что все кнопки расставлялись вручную. Мне кажется, вручную настраивать положение и размер каждой...
как посчитать факториал в delphi?
как посчитать факториал в delphi? к примеру K!
Как скрыть программу с панели задач?
как скрыть кнопку программы с панели задач Windows Vista, (delphi 2009);
все что я находил не работает(
Убрать иконку "крестика" (закрытия формы)
Привет всем!! Пишу программу и возникла проблемма с "крестом" который закрывает формую. Если я его убираю в свойствах BorderIcons то у меня не отображается иконка "свернуть". Подскажите как мне...
Открыть файл с расширением bin, как exe
Всем привет - есть файл .bin как его открыть с расширением exe - в гугле что то не нашел ответ на свой вопрос)
изменения файла и замены его в ту же папку не подойдет можно ли когда открываешь файл...
Чтения массива из файла и запись массива в файл.
Поделитесь плиз процедурами чтения одномерного массива из текстового (можно типизированного) файла в StringGrid, а также записи одномерного массива из StringGrid в файл.
Добавлено через 1 час 39...
Построить график функции (с помощью TChart и с помощью TImage)
Построить график функции (вид функции определяется по варианту) с помощью:
- компонента chart;
- компонента image.
Предусмотреть изменение с формы интервала отображения
Вычисления площади треугольника и квадрата.
Написать программу для вычисления площади треугольника и квадрата.
Найти максимальный элемент массива и его индексы
Найти максимальный элемент массива и его индексы.
Ошибка Connection Closed Gracefully
Не знаю по какой причине выдаёт ошибку:
Запрет запуска более 1 копии программы
Здраствуйте я хотел бы узнать как сделать так чтобы запретить запуск 2 окна программы!
"Пример"
Я сделал программу, и могу запускать ее бесконечно раз во многих окнах. как запретить такую...
Delphi & COM-порт
Приветствую всех !
Помогите пожалуйста написать простую программу, с помощью которой можно было бы отправлять v COM port данные. С возможностью выбора порта, бит рейдом, стоп битами, направлением...
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 007B90DA in module 'Project1.exe'...
При нажатии кнопки "Добавить запись" должна показываться вторая форма, вместо этого ошибка //-Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address...
Как в Memo вывести буквы разными цветами?
Хочу в TMemo (TEdit) вывести строку, где, например все гласные буквы будут зелёным цветом.
Знаю, как раскрасить целую строку. А вот отдельно буквы, не знаю
Запрет изменения размера формы
Есть программа,и она должна быть всего в 2 режимах:либо свернута в трей,либо развернута на весь экран.
Кнопку меню для разворачивания окна отключил.Стоит только минимизация.
Проблема в том,что...
Правое выравнивание текста в компоненте Edit
TEdit1 = class(TEdit)
public
procedure CreateParams(var Params: TCreateParams); Override;
end;
procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
inherited...
Как перенести значение переменной из одной формы в другую?
Например, я создал тест, в одной форме (I Часть теста) подсчитывает кол-во правильных ответов и во второй форме (II Часть). Мне нужно вывести общее кол-во правильных ответов. Как перенести значения...
E2029 Statement expected but 'PROCEDURE' found
В общем в delphi я новичок,первый раз использую процедуры и столкнулся с такой проблемой:
E2029 Statement expected but 'PROCEDURE' found
хоть убейте не пойму,бегины энды пересчитал,количество...
Разбить строку на подстроки по заданному разделителю
Как реализовать, что бы программа имея список с разделителем в виде ";" считывала данные до и после него построчно записывая то что до в первый эдит а после во второй? И так же могла после...
Выравнивание высоты объединённых ячеек Excel по их содержимому. AutoFit для объединённых ячеек Excel.
В ячейку вставляется очень длинный текст, который при печати просто не виден. Нужно, чтобы продолжение текста переносилось в сторку ниже.
Пишу на Delphi.
Количество дней между 2-мя датами
Помогите найти количество дней меджу двумя датами, если например даты вводяться в 2 поля Edit1 и Edit2. Объясните как написать даную процелуду или скиньте пожалуста код процедури.
DateTimePicker
Как из DateTimePicker выдернуть в Edit только лишь ДЕНЬ, а во второй Edit только лишь МЕСЯЦ ??
[Fatal Error] Unit1.pas(160): File not found: 'Unit3.dcu'
Unit1.pas(160): File not found: 'Unit3.dcu'
Посмотрите пожалуйста архив во вложениях.
Большое спасибо всем, кто хотя бы посмотрит
Запрет на редактирование Memo
Как поставить запрет на редактирование Memo, кроме Enabled? Enabled запрещает редактирование Memo, но при этом текст становится серым. Еще можно выставить параметр ReadOnly в True, но тогда текст...
Делфи 7 для начинающих с нуля
Здравствуйте уважаемые программисты!
Я тока начал учится работать на Делфи 7 и нашел иллюстрированный самоучитель для начинающих по Делфи7. Но тот кто писал эту книгу он наверно самый настоящий...
компонент ListView
Здраствуйте!:)
мне надо изучить компонент LIstView я создала таблицу с несколькими столбцами.
как добавлять в первой столбец я сделала, а в другие не получается(
я хотела чтоб при введении данных...
Как открыть файл при нажатии кнопки?
Помогите знающие плз. прога типа самоучителя. (задание в универе дали) нужно как то сделать так чтоб при нажатии на кнопку отображалось содержимое файла. (сейчас это файлы Word). и надо чтоб при...
корень кубический из "икс"
погите пожалуста! нужно решить задачу нахождения кубического корня из "икс". "икс" должен вводить пользователь в Edit1 и после нажатия кнопки, в Label1 должен выводиться ответ.
кол-во знаков после...
Undeclared identifier: DecimalSeparator
Здравствуйте.
Пытаюсь написать программку, в которой в первое поле будет вводиться текст, во второе целое , в третье дробное число.
unit Unit1;
interface
uses
Winapi.Windows,...
Преобразование строки в дату
Здравствуйте!
Есть дата - время, например: 08/20/15 01:37:00 PM
В программе реализовал получение вручную (распарсил строку).
Пробовал при помощи функции strtodatetime, используя TFormatSettings....
Использование графики. Нарисовать точку.
Господа, только не смейтесь.
Не найду как нарисовать точку.
С линиями, квадратами, кругами etc разобался.
MoveTo(x,y);
LineTo (x+1,y); //так только получается :)
Point, Pixels, PutPixel -...
Перевод чисел из десятичной в двоичную систему счисления
Помогите написать программу для перевода чисел из десятичной в двоичную систему счисления. В Delphi 7.
Как сохранить в exe?
Подскажите, пожалуйста, как сохранить результат работы в RAD Delphi 2009 в исполняемый файл?
Как установить компонент на Delphi 7
Помогите не могу установить компонент TLCDScreen v3.0 на Delphi 7
Как сделать Memo прозрачным ??
ну собственно говоря бьюсь над тем чтоб Memo сделать прозрачным, видимым токлько текст должен оставаться, как это сделать ???:)
Изменение цвета текста
Здравствуйте! Подскажите, пожалуйста, как можно изменить цвет текста в memo, лишь определенного слова.
Например слово hello, надо чтобы было красного цвета, а все остальные слова оставались прежними.
Как создать окно авторизации
Народ помогите с программным кодом
необходимо ввести имя пользователя и пароль
и что бы после этого создалась(открылась) 2-ая форма
а то я ток начал delphi и его еще не понимаю
Электронный учебник написанный в Делфи
Как создать электронный учебник в Делфи?
С чего начать? материал есть, Высшая математика для биологов учебник будет называться
И нужно что б в конце каждой главы открывалась программа написанная в...
Функция Power
Есть проблема с функцией Power - при компиляции ругается: Incompatible types: 'Integer' and 'Extended', но при этом немогу понять в чём проблема!
var a,b,c: integer;
begin
a:=strtoint(edit1.text);...
Программа не видит COM Port подскажите в чем причина пожалуйста!
Здравствуйте! Недавно начал программировать так, что мой вопрос может показаться немного глуп)
Штука вот в чем. Создал программу которая должна управлять неким устройством. Управляет она им через...
Подключение dll к программе
Написал простейшую библиотеку .Dll
library Project1;
uses
SysUtils,
Classes;
{$R *.res}
function Sum(x,y:integer):integer;
begin
Создать button кнопку, которая при нажатии меняет название
Изменить программный код кнопки button таким образом, что бы при нажатии менялись надписи "привет" и "пока" для этого применить оператор if проверять какой текст выведен на кнопке(значение свойства...
[Fatal error] Could not create output file 'путь'
При компиляции программы в окне Unit1.pas пишет: Could not create output file 'путь'
Как это понимать и что сделать, чтобы исправить?
StringGrid заполнение случайными числами.
Дана таблица StringGrid.
Как зполнить одну строку (например первую) случайными числами в диапазоне от 10 до 20?
Сегодняшняя дата в Label
Надо чтобы в Label или в Edit была написана сегодняшняя дата в формате ДД.ММ.ГГГГ
Как определить имя пользователя?
Здравствуйте, мне нужно определить имя пользователя на компьютере(учётная запись) и использовать полученное название в путь(пример C:\Users\...\)
Объединение ячеек в excel
подскажите как объединить ячейки в excel типа такого формата
st := Excel.ActiveWorkBook.WorkSheets.Cells;
st1 := Excel.ActiveWorkBook.WorkSheets.Cells;
excel.ActiveWorkBook.WorkSheets.cells.merge;
Как на форме сделать вкладки?
Есть форма, хочу чтобы были вкладки(шаги), типа заполнил первую форму, жмем далее переходит на следующею вкладку.... и т.д.
Думал реализовать просто новыми формами, но как то некрасиво, грамоздко,...
Запуск и ожидание закрытие через CreateProcess
Всем привет!! ребят подскажите!! я запускаю программу так
param:='параметры запуска';...
Обработка нажатия клавиши
нужно чтоб по нажатию F2 выполнялось определенное действие. данный код - не работает. подскажите, пожалуйста, как правильно
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift:...
Private и public
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Рисование с Canvas
Подскажите новичку в Delphi-рисовании, как можно стереть с формы всё, что было нарисовано с помощью Canvas.MoveTo(); Canvas.LineTo(); Canvas.Ellipse().
В учебниках не нашёл.
Запись и чтение, TMemoryStream
Доброе всем утро, я пытаюсь записать значения в TMemoryStream и проверить их, т.е., получить их обратно:
Запись в поток:
procedure TMyClass.Pack();
var
Text : String;
Binary: TBytes;
...
Вычислить логарифм
подскажите как в делфи написать log(X)
Как сохранить текст из memo в кодировке UTF-8?
Приветствую!
Нужна Ваша помощь. Мне надо сохранить текст из memo1 в кодировке UTF-8.
Процедура сохранения вот(работает, но кодировка ansi)
procedure TForm1.Button4Click(Sender: TObject);
var...
0 - это положительное число?
В задачах Delphi часто нужно найти положительное число. У меня вопрос: 0 - это положительное число?
Убегающая кнопка
Суть задачи при наведении курсора на кнопку она должна убегать.
Нужно сделать чтобы кнопка не выходила за границы формы, влево и вверх не выходит, а вправо и вниз выходит. помогите пожайлуста,...
Секундомер
Помогите пожалуста)))
Написать програму, що отображает работу секундомера. Есть 3 метки, где отображаетса час, минуты и секунди, а также кнопка СТАРТ, что при активацые секундомера меняет назву...
Форма (close)
Имеется самая обычная форма и одна кнопка на ней (эт так, для примера). Мне нужно, чтобы при нажатии на эту кнопку (Button1), программа закрывалась!
вот моя процедура:
procedure...
Проверка условия ввода данных в edit
Здравствуйте. Никак не могу совладать с такой ситуацией: необходимо после нажатия на кнопку расчета перед вычислениями проверить поля Edit на наличие нецифровых данных, при несоответствии с условем...
Как добавить форму к проекту?
Подскажите как привязать к своему проекту другую форму, чтобы по нажатию на кнопку открывалась...
А то у меня в данный момент 2 разных проекта, которые должны работать как одна программа, а...
Масштабирование компонентов при изменении размеров формы
На форме есть следующие компоненты: Image, StringGrid, BitBtn (3 штуки), ComboBox (2 штуки). Есть какие-то свойства (что-нибудь), чтобы эти компоненты изменялись с изменение размера формы? Т.е. чтобы...
Создание новой формы
Люди помогите! хочу сделать прогу (саму простую), но с использованием 2 форм!
первая просит пароль, если он верен, то показывается вторая форма!
это понятно! но при запуске выскакивает ошибка!
в...
KeyDown
Как на form сделать нажимаешь LCONTROL + D =и чета там, ато везде показывают как CTRL + F1..12 OR 1..0 а С бУКВАМИ НЕ НАШЕЛ КАК СДЕЛАТЬ !)?
Как правильно удалить форму?
Скажите, пожалуйста, как правильно удалить форму в делфи удаляю
Форму запускается, но при удалении физический файлов из папки с проектом не запускается и выводит ошибку типа не найдена та форма,...
Как изменить кодировку?
как сделать, чтобы дельфи открывал файл, менял кодировку на свою, выполнял код и потом менял обратно?
сам код:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,...
Изменение цвета кнопки
Как можно изменить цвет кнопки в Delphi? Свойства Color у неё нет, или я просто не смог найти? Расскажите подробнее, как это сделать.
Не отображается компонент в палитре
Создал компонент, скомпилировал пакет с этим компонентом, даже вкладку свою создал на палитре. Устанавливаю компонент. Среда говорит, что компонент установлен. А он не отображается в палитре...
Нарисовать линию
Добрый день. Подскажите пожалуйста как рисовать линии в делфи, если например const a=10;
Чтение текстового файла из TFileStream
Добрый день. Читаю текстовый файл TFileStream (т.к. файл открыт для записи другой программой и просто по-паскалевски его открыть нельзя), но читается не правильно . Подскажите что я делаю не так....
Хороший бесплатный компилятор Delphi
Собственно сабж. Подскажите кто-нибудь хороший компилятор Delphi. ( бесплатный ), заранее спасибо.
Как определить закончил ли работу поток?
Здравствуйте, как определить закончил ли работу поток?
begin
Potok1 := ParallelObj.Create(true);
Potok2 := Potok2Obj.Create(true);
Potok1.Priority := tpNormal;
Potok2.Priority...
Работа с RadioGroup
Не давно начал легонько изучать дельфин и еще пока во всем разобраться не могу - в книге запутано что то
суть:
вот у меня есть RadioGroup1
я его установил - сделал допустим два раздела :...
Как извлечь имя файла из полного пути к файлу?
Вот к примеру, я загрузил файл, и в edt1.Text - он записал путь к файлу...
C:\Program Files\Music\may.mp3
Отсюда, я хочу выделить may.mp3...
Можно ли скопировать с последней позиции до \???Если...
Windows 7 и Delphi 7 - подскажите.
Установил я Windows 7. Начал ставить Delhpi 7 - установил (правда Винда поначалу ругалась..........но все же поставил). Но проблема в следующем - когда открываю ранее сохраненный проект, то...
Как очистить поле Label через код?
Как очистить Label?
Экспорт данных из DBGrid в Excel Delphi
Программа на кнопку работает.Данные выводиться в Excel.Но не выводит название столбцов.
var
i,j,index: Integer;
ExcelApp,sheet: Variant;
begin
ExcelApp :=...
Удаление папок
У меня есть 2 папки Logs и Cache и вних пишутся логи и кеш. как при нажатие на кнопку удалить папки и то что вних?
Отказано в доступе
В моем проекте часто при компиляции программа не запускается, пишет "Unable to create process: Отказано в доступе". Отдельный исполняемый файл при запуске пишет, что возможно нет прав доступа.
В...
Как работать со стеком?
В интернете море информации про стеки но в то же время нет ничего. Само понятие стек понятно, то как они добавляются-удаляются тоже, а как это все делается в делфях то? Как организовать этот самый...
Кодировка - русские буквы в виде ? в memo
Здравствуйте. Есть проблема: Если из буфера обмена вставить текст в кодировке UTF8, то русские буквы отображаются в виде знаков вопросов.
Как исправить? Нужно чтобы при копировании текст вставлялся...
События при наведении курсора на различные компоненты формы
Цель такова. На форме есть несколько Панелек. Необходимо, чтобы при наведении курсора на каждую отдельную Панель она меняла цвет(например), при Клике мыши Панель утапливалась(например) и происходило...
возведение в степень
помогите пожалуйста срочно.программа возводит числа в квадрат...нужно сделать ничего не меняя особо,чтобы возводила в куб
procedure TForm1.Button1Click(Sender: TObject);
var f:file of integer;
...
Как ограничить количество символов в поле edit?
Как сделать что бы в поле edit можно было ввести только определенное количество символов, например не больше 2х?
Сортировка по алфавиту
Проблема:
Есть таблица, stringGrid, в ней нужно сделать сортировку, допустим по названию. Или сортировку в файле .тхт , где каждая строчка - ячейка в таблице. Понимаете о чем я?
Может есть у кого...
Число способов расставить на шахматной доске NxN K ладей так, чтобы они не били друг друга
Требуется найти число способов расставить на шахматной доске NxN K ладей так, чтобы они не били друг друга. Все ладьи считаются одинаковыми.
N и K (N, K <= 8).
Сохранить файл в UTF8
Здравствуйте. Имеется функция сохранения файла:
procedure TForm1.Button3Click(Sender: TObject);
var
t: TextFile;
begin
AssignFile(t,'Prog.au3');
Rewrite(t);
...
Передача процедур и функций в качестве параметров
Здраствуйете! Вот проблема никак немогу найти информацию о том как пройсходит Передача процедур и функций в качестве параметров в Делфи . просьба мне помочь мне нужна подробная информация на ету...
как пользоваться "FindWindow" в Делфи?
облазил все, но так ничего толком найти не могу... объясните мне как пользоваться функцией FindWindow, как и где ее прописывать и от куда берутся названия приложений(при помощи spy++)тогда и как ей...
Поиск в Excel
Всем доброго дня.
Необходимо программно из Delphi найти на листе Excel один текст и заменить его другим или получить адрес ячейки содержащей искомый текст (к примеру заменить ##Date## на текущую...
Загрузка из текстового файла в StringGrid
доброго времени суток!
помогите пожалуйста новичку с решением задачи.
задача такова:
имеются StringGrid и текстовый файл следующего содержания
____________________________
...
SHA-256
Наткнулся на тему https://bits.media/bitcoin-address-theory/
и решил реализовать данный алгоритм с целью применения хеширования в дальнейшем (сделать все шаги), но после первого хеширования строки...
Перекодировать текст в UTF-8
Подскажите как можно перевести введённій в ТЕдит текст в кодировку UTF-8?
Перевод приложения с десктопа в web
Здравствуйте!
Сам я не местный. Я программист срежнепаршивого уровня на php.
Недавно работаю в организации, где основное приложение написано на Delphi. Используется embercadero delpho 10.2(версия...
[Delphi] Многопоточность
Интерисует след. вопрос:
"Как сделать создание потоков? (кол-во зависит от того сколько укажет пользователь)"
Хотелось бы увидеть "готовый код", лазя по гуглу оч много информации, но там слишком...
Парсинг HTML
Здравствуйте, очень давно увлекался Delphi, и вот для решения задчки пригодилось, к сожалению многое забыл, буду рад если поможите.
Цель написать парсер для хтмл странички, чтобы выдергивать из неё...
Как заблокировать клавиатуру?
Подскажите, как заблокировать клавиатуру (мышку блокировать не нужно). Я в поисковике искал, но ничего нормально работающее не нашел:(!!! Мне нужно для win xp/vista/7
Вывод числового массива в Memo
Не получается вывести массив, выводятся только 2 первых элемента.
n:=5;
for i := 1 to 5 do begin
a:=1+n;
Memo1.Lines.Add(FloatToStrF(a,ffGeneral,10,4));
end;
Русский язык в Delphi 7
здравствуйте. как сделать чтобы в делфи воспринимала русский язык, а то когда на русском пишу, либо палоки какие то выскакивают вместо букв, либо иероглифы
Перевод из string в array of byte
подскажите. имеется массив-
a: array of Byte = ($00, $00, $00, $00);
и переменная типа string в которой находится значение E8B80400-
s:='E8B80400';
как это значение распихать в массив -
a: array...
Как программно вставить строку с символом табуляции в ТМемо?
Скажите pls. как программно вставить строку с символом табуляции в ТМемо,
типа: memo1.lines.append(строка);
Знаю что надо поставить: wantTabs:=true;...а что далише ???
График TChart
Построить график функции exp(x)-exp(-x)-2.
procedure TForm1.BitBtn1Click(Sender: TObject);
var x: integer;
a,b:real;
begin
a:=StrToFloat(Edit1.Text);// вводим х, откуда строим
...
Как можно прописать программу в автозапуск?
Приветствую всех форумчан!
У меня такой вопрос: какими методами еще,помимо прописи в реестре, можно заставить программу автоматически запускаться вместе с виндой? Я где-то слыхал, что еще можно...
Как исправить ошибку "E2034 Too many actual parameters"
Я новичек в Dephi и не могу исправить следующие ошибки:
convertor.pas(44): E2034 Too many actual parameters
convertor.pas(44): E2034 Too many actual parameters
Project1.dpr(5): F2063 Could...
Преобразование из String в Real
Здравствуйте. Скажите пожалуйста можно ли переменной вещественного типа присваивать значение свойства Caption компонента label. Значение свойства Caption определяется массивом ch: string;
При вызове...
Составление слов из набора букв
Помогите написать програмку которая из набора букв создает слово. Алгоритм я придумал а как его реализовать не знаю.
Алгоритм такой:
В файле находятся готовые слова.
В делфи вводи буквы.
Нужно...
Динамическое создание/удаление компонентов
Здравствуйте, уважаемые программисты всея форума!
У меня назрел вопрос :) Глупый, как всегда :)
Как можно, при нажатии на компонент, динамически уничтожить его?
Создаю компоненты свои так...
Жирный + Курсив + Подчеркнутый
Кнопки из текстового редактора
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if t=false then
begin
Richedit1.SelAttributes.Style:=;
t:=true;
end
...
Динамическое создание вкладок в PageControl
Я пишу html-редактор..использовал конпонент PageControl..на котором 2 вкладки (визуальный режим и редактирование кода)..тоесь на первой вкладке был компонент WebBrowser, а на второй SynEdit....Мне...
Ошибка Exception EOleSysError in module .exe at 000E7255
Делал программу в Delphi10. У меня на ноутбуке все работает, а на других компах/ноутбуках не запускается exe. Пишет: "Exception EOleSysError in module .exe at 000E7255. Класс не зарегистрирован." В...
Изменение размеров формы
Помогите решить проблему: написал программу внешний вид во вложении, проблема в том, что не знаю как заставить содержимое формы изменять размеры в зависимости от размера экрана (сейчас у меня...
Создать класс
Привет! Если у кого то есть код такой или подобной программы выложите пожалуйста,подскажите с чего начать и основные моменты ,чтоб выполнить данное задание :
Создать класс Payment (зарплата). В...
Запуск .bat файла
Здравствуйте! Помогите пожалуйста решить проблему.
Создал программу, создал кнопку BitBtn прописал ей код
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute(0,...
Поиск символов в строке
возможно нубский вопрос, но я на нём застрял..)))
у меня организован поиск символов в строке который работает... но немного не так как хотелось бы...
procedure TForm1.IP;
var
s: string;
...
Access violation at address 00000000. Read of address 00000000
Embarcadero® Delphi® 2010 Version 14.0.3513.24210
Copyright © Embarcadero Technologies, Inc. All Rights Reserved
Windows XP
Неудачно обновил программу, при запуске старых проектов и при...
TFileStream
var
Buff:array of char;
....
Stream:=TFilestream.Create('C:\4.fb2',fmOpenRead);
stream.Seek(0,soFromBeginning);
setlength(buff,i);//i-размер файла
stream.Read(buff,i);...
выдает ошибку в строке PROCEDURE TForm1.Button1Click(Sender: TObject);
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
Вывод списка файлов
задача состоит в том чтобы вывести в listbox только список файлов определенной директории:
procedure TForm1.Button1Click(Sender: TObject);
var
searchResult : TSearchRec;
begin
if...
Delphi 7 команда Random
Подскажите. Когда я ввожу команду
i:=random(10);
То у меня переменная i это любое число но при запуске это любое число всегда одинаковое как мне сделать что-бы оно было разное ???
Преобразовать строку в массив
Знатоки, помогите начинающему!
задача следующая
в текстовое поле мы вводим трехзначные числа через пробел(пример: 455 765 854 и тд). как преобразовать строку в массив?
либо в текстовое поле мы...
Прямая задана уравнением y=kx+b. Определить лежит ли точка с координатами х1 у1 выше этой прямой
Здравствуйте! Только начал работу с данной программой и собственно не могу разобраться с решением элементарной задачи. Надеюсь на вашу помощь с написанием текста программы ;)
Текст задачи:
Прямая...
Как на форме вставить текст?
здравствуйте. подскажите пожалуйста, через какую функцию в дельфи можно на форме вставить текст? заранее спасибо
Чем отличается делфи от паскаля?
Можно ли выучив паскаль,спокойно перейти на делфи?или они только поверхностно похожи?
Запрет ввода ненужных символов в edit
Выдаёт ошибку, нужно запретить ввод в edit символов, только вещественные и целые числа.
procedure TForm1.Button1Click(Sender: TObject);
Var r,w,u,g,t:double; i,code,n:integer;
begin
u:=-1;...
StringGrid: Выделение и закрашивание
Вот задачка появилась на мою голову. Как сделать чтобы при выделении ячеек на Stringgrid и нажатии например кнопки "Button", то что мы выделили закрасилась соответствующим цветом?
АвтоКликер своими руками
Привет всем! Я перелистал много тем по созданию автокликера в делфи на этом сайте, но нигде нету темы, где бы объяснили как его можно создать самому, так сказать самый примитив с нуля и для чайников...
сделать сложение, вычитание , умножение и деление
нужно сделать сложение, вычитание , умножение и делание
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Как в memo перевести курсор в начало?
Програмно ввёл в memo какое-то к-во строк. К-во строк больше, чем может отобразиться одновременно в memo. Размер memo изменять нельзя. И надо потом начать просматривать эти строки.
Приходиться...
Конвертер для валют
Друзья здравствуйте! Прошу помочь написать код программы конвертер для валют. Буду рад помощи.
Узнать адрес выделенной ячейки stringgrid
Здравствуйте. Такая задача: я кликаю на ячейку в stringgrid и мне нужно узнать ее номер строки и номер столбца. Есть функции gdFocused и gdSelected, но я не могу сообразить, как они работают. ...
Добавление элемента в динамический массив - как описать проверку необходимости расширения массива
Уважаемые форумчане. помогите не могу реализовать добавление элемента в дин.массив.
- не могу описать проверку необходимости расширения массива.
- поиска места вставки в массив.
вот код:
...
Модуль System.Zip и работа с ним
Модуль для работы с Zip архивами.
Основной класс используемый в данном модуле это TZipFile. Работать можно в 2 вариантах:
1. С файлом
2. С потоком (TStream).
И так начну с описания основных...
Удалить лишние пробелы из строки Edit
надо удалить лишние пробелы из строки Edit. Вот часть кода помогите исправить
//тут добавляются пробелы
for i:= 1 to StrToInt(E2) do
if (RadioButton1.Checked) and (Edit1.Text <> p) then
...
Как задать путь к папке "Мои документы"?
можно ли без использования дополнительных процедур задать путь к папке "мои документы" ? что то типа C:\Documents and Settings\%CurrentUser%\мои документы\
если да, то как это можно сделать ?
Перевод слов в цифры
1 2 3 4 5 6 7 8 9
а б в г д е ё ж з
и й к л м н о п р
с т у ф х ц ч ш щ
ъ ы ь э ю я
По схеме приведённой выше надо перевести буквы в цифры
То есть, дано у нас в Edit1.text:='Гоголь Николай...
Большой текст в Delphi. (Работа с ресурсами - примечание модератора Mawrat).
Можно ли вставить большой текст в Delphi до запуска программы
Индикатор прогресса
Подскажите пожалуйста, как сделать в delphi так, что по мере выполнения определённой процедуры, заполнялся индикатор прогресса? Например заполнялся ProgressBar или Gauge
Матрицы в delphi
Здравствуйте, нужна помощь по такой вот задаче: Дана матрица размером NxM. Упорядочить ее строки по неубыванию суммы их элементов. Соответственно, у меня есть 2 едита для ввода кол-ва столбцов и...
Манифест
Добрый день. Поначалу у меня была проблема с drag and drop в lisbox, но так, как тема ушла далеко в сторону, я решил создать другую тему уже конкретно по манифесту.
В процессе своих поисков...
Преобразование строки в число
Всем доброго времени суток!
У меня такая проблема, необходимо преобразовать строку в число. По сути строка представляет из себя инвентарный номер содержащий цифры и точки (например...
strtofloat - как пользоваться?
вот я только - только начал изучать программирование, и для тренировки пытаюсь хоть что то делать, естественно никаких кодов я незнаю
strtofloat насколько мне известно переводит информацию из...
Подсчитать количество символов
Дана строка, в которой есть символы '(' и ')'. Подсчитать количество символов, расположенных за скобками.
Радианы в градусы.
Вопрос, конечно, идиотский.
Никак не получается правильно перевести.
Пробывал и формулу : rad * 180/pi и функцию radtograd, ничего.
Например : син(90) = 0.8939...
x1:=sin(x);
x2:=x1*180/pi;
x2...
Просчёт всех возможных комбинаций из 6 цифр
Мужики, в общем забыл пароль от телефона(meizu m1 note) перерыл тонны форумов, решения этой проблемы методом сброса нет точно, и в общем появилась мысль перебрать, пароль состоит из 6 знаков, и вот...
Ошибка "Could not create output file"
Написал программу,начал компилировать.Вроде бы всё нормально,ошибок нет,но вдруг delphi зависает и пишет 'не отвечает'.Перезапустить delphi пробовал,но всё равно.Перед этим я два раза компилил...
Как пользоваться таймером ?
Добрый день.
Нужно придумать задержку в программе на 50 мсек.
В компонентах на странице System есть таймер, но как им пользоваться, как установить время, как запустить ?
Или можно как-то проще это...
Как узнать, какой Items выбран в ComboBox?
Народ подскажите, как узнать какой Items выбран в ComboBox?
Зарания спасибо.
tg/ctg
Подскажите как записать процедуру для tg, ctg, arcsin,arccos,arctg,arcctg
Процедура для sin
Edit1.Text:= FloatToStr(Sin(StrToFloat(Edit1.Text)))
Процедура для cos...
Перенос строки кода программы
Как в Delphi разбить длинный код, записанный как одна строка, на несколько строк?
if (year= 2012) and (month=11) and (date=21) and (time_of_clock=0) and (count_of_people > 7000000) then...
StringGrid. Выравнивание ширины столбцов по их содержимому.
Заношу в столбец значение. как мне сделать, чтобы ширина столбца соответствовала ширене этого значения.
мой код
for j := 0 to memo1.lines.count-1 do
begin
tabl.Cells := 'Явление';
s :=...
Расположить текст по центру в Edit
текст по центру в Edit - минимальный пример пожалуйсто
есть ответы - сделать компонент, использовать наследник..
увы недорос еще 8-)
минимальный пример решения подскажите
Поиск по ListBox
здарова!
мне нужно произвести поиск по списку
следущий код это делает, но если ввести слово целиком. а мне нужно, чтобы темы в ListBox выделялись сразу при введениии уже первой буквы в Edit. ...
Доступ к переменной из другой формы
привет всем.
возможно ли как нибудь обращаться к переменной с формы 2, которая объявлена на форме 1?
допустим на форме 1 код:
if radiobutton1.Checked=true then
s:='lol';
а на форме 2 мне нужно...
Как вставить апостроф в строку?
Здравствуйте.
У меня есть строка:
Stroka:='такой-то и такой-то текст, и в тексте надо вставить апостроф';
Но проблема в том, что в самой строке надо вставить апостроф " ' ". А если я его...
Как сделать многострочный текст в ячейках TStringGrid?
Помогите пожалуйста, как все таки в ячейку стрингрда ввести несколько или более строк, гуглил целый день, в итоге нашел тока переход на новую строку после ввода символа точка с запятой а как все таки...
Как сдвинуть курсор в TEdit на нужную позицию
Мне надо сдвинуть курсор в TEdit на нужную позицию. Программа редактирует Edit1.Text, и после программной правки надо передвинуть курсор в конец строки. Как это сделать?
Решение этой проблемы сильно...
Создать простейший блокнот
Сейчас я покажу пример на Delphi, как можно создать простой текстовый редактор похожий на Блокнот, с использованием компонента Memo
Для нашего текстового редактора мы будем использовать компонент...
Парсинг XML файла
Искал, так и не нашел того что надо...
пытался но ничего не вышло.
Файл такого типа.
<ListBucketResult xmlns="...........">
<Name>
name..
</Name>
<Prefix/>
<Marker/>
Как открыть текстовый файл?
Мне надо в проге при нажатии кнопки просто открыть текстовый файл. Как это сделать?
Я делал так
F: System.Text;
begin
AssignFile(F, С:Help.txt');
Reset(F);
Как правильно сделать???
Интерполяционный многочлен Лагранжа
Здравствуйте:)Помогите пож-та. Создать приложение,которое бы для функции y=f(x) находило коэффициенты интерполирующего ее многочлена непосредственно из условий интерполяций.Функция...
Уменьшить размер ехе-шника (Delphi XE)
Написал программу, скомпилил в Delphi 7 - 500КБ. Скомпилил такой же код в Delphi XE - 1,5МБ. Мягко говоря, неприятно удивляет такое увеличение объема ехешника в XE версии. Скажите, как можно его...
Разница дат
Помогите пожалуйста! Как в Delphi 7 посчитать время от даты к дате, чтобы учитывалась не только дата, но и часы (желательно еще и минуты=)). Сколько дней от 5 мая до 9 мая ясно. А если бы было 5 мая...
Вызов процедуры из другого модуля
Подскажите, что я сделал не так, хочу вынести подпрограммы в отдельный модуль, но как-то не получается.
главный юнит
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,...
Поиск минимального элемента массива
Вот составила программу,но мне ошибку выдает,не подскажите ли,в чем дело?
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,...
Как в Delphi XE редактировать компонент BitBtn для добавления в него формата jpg?
Как в delphi XE редактировать компонент BitBtn для добавления в него поддержки формата jpg чтобы добавить картинку в данном формате
прошу описать весьма подробно что куда нужно добавить находил...
BinToHex и HexToBin
Никак не могу понять как работают эти функции: BinToHex и HexToBin. Что у них за параметры такие? Есть шестнадцатиричное число, представленное в виде строки, мне нужно его перевести в двоичное, также...
Перевод числа в строку и обратно
Дело в следующем: когда считаются погрешности и переводятся в строку числа странные получаются.
Например: 1,99-1,96 получается результат 0,02999999999. Я понимаю, что юзать FloatToStr и StrToFloat...
Можно ли создать или нарисовать в RichEdit таблицу
Всем привет!! Подскажите можно ли создать или нарисовать в RichEdit таблицу!!! Может есть готовые решение)!!!
TreeView в Delphi
Здарвствуйте, возник такой вопрос: Как при нажатии на кнопку TButton сделать так чтоб в TreeView добалялся новый Item? а при нажатии на другую кнопку SubItem?
Координаты положения курсора на форме
Доброго времени суток, столкнулся с проблемой, необходимо вычислить координаты мыши относительно формы, то как сделано сейчас работает, но это не вариант (лишняя нагрузка вызов процедуры только для...
В поле Edit обработчик события KeyPress
делаю замену NumbersOnly вручную:
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ) then Key:=#0;
end;
а хотела:
procedure TForm1.Edit1KeyPress(Sender: TObject;...
Объявление переменных по-умолчанию
почему при объявлении переменных в приват или паблик секциях со значениями по умолчанию
выводится сообщение об ошибке
';' expected but '=' found
private
{ Private declarations }
...
Runtime Error 217 at - что за ошибка?
После завершения программы вылетает ошибка:
Runtime Error 217 at
вот код:
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Запись данных в XML
Как создать и записать в XML-файл данные, которые будут браться из формы? Нашел похожий пример, но он подставляет данные из шаблона
Delphi выводит ошибку "';' expected but '.' found"
';' expected but '.' found в самой последней строке файла... Что не так? Вроде все пары begin, end проверил...
Delphi 2010: "Процесс не может получить доступ к файлу, так как этот файл занят другим процессом"
У меня выбрасывает ошибку в Delphi... Переустановка не помогла, что делать?
Установка компонента в Rad Studio
Добрый день.
Я понимаю, что эта тема обжевывалась в десятках мест, но ни одно из просмотренных обсуждений мне не помогло.
Пытаюсь установить компонент zeosdbo zeosdbo на embarcadero rad studio xe8....
showmodal
пишу по созданию формы вызвать модальное окно. Вылетает ошибка. Хочу, чтобы сначало была аутификация пользователя (логин, пароль). Как обойти ошибку
Бинарное дерево: формирование, отображение, обход, поиск и удаление элементов
Написать программу, демонстрирующую работу с динамическими структурами данных и динамической памятью на примере бинарных деревьев.
Входные данные:
Файл, хранящий значения узлов будущего дерева.
...
Генератор паролей
На курсовую надо создать генератор паролей... я в Delphi дуб дубом... помогите!!! Напишите как это все сделать, просьба поподробнее!!!
Не могу понять как надо вывести в Edit
Здраствуйте Программисты, вот у меня такой вопрос.
В этой задачки, я не пойму какой тип данных нужно мне написать что бы выодилась надпись а потом число.
procedure TForm1.Button1Click(Sender:...
Шифр Цезаря
Реализовать шифр Цезаря на Delphi. Программу написал, но нужна помощь в реализации пробелов. Например при вбивании текста "мама мыла раму" и ключ - 3, выдает шифрованный текст "йЭйЭйшиЭнЭйр".
unit...
Запуск файла с параметрами
Подскажите есть exe файл его надо запустить с параметрами -game cstrike -steam в нете нашёл данный код но не могу в нем разобраться подскажите как запустить exe файл с данными параметрами ...
Русские буквы в Console Application
У меня в Delphi 10 не отображаются нормально русские буквы в Console Application. Как это изменить?
Моделирование полета тела с учетом сопротивления воздуха
Ребятки, требуется помощь :help:, иначе всю мою группу отчислят :D
Вообщем препод потребовал составить две задачи, все в Delphi:
1)Моделирование полета тела, брошенного под углом к горизонту, без...
Написать программу, которая вычисляет сопротивление электрической цепи, состоящей из двух сопротивлений
1.Написать программу, которая вычисляет сопротивление электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно. Если величина...
Серийный номер HDD
Вот такой код нашел на просторах интернета.
const
SMART_GET_VERSION = $074080;
SMART_SEND_DRIVE_COMMAND = $07C084;
SMART_RCV_DRIVE_DATA = $07C088;
// Values of ds_bDriverError...
Ошибка: Record, object or class type required
на код вызова второстепенной формы
procedure TForm1.Button1Click(Sender: TObject);
begin
showmodal.form3;
end;
ругается ошибкой:
Unit1.pas(32): E2018 Record, object or class type required
...
Ошибка "is not a valid integer value".
Делаю конвертер валют и при нажатии на кнопку "Посчитать" появляется ошибка
"is not a valid integer value".
Когда вместо integer ставим тип longint или real то ничего не происходит.
В чём...
удалить строку в listbox
Доброго время суток. Задание по работе связано с однонаправленным списком..вопрос в следующем: как удалить из Listbox строку, со значением совпадающем с полем Combobox..?
spec:=first;
while spec...
Как запретить редактирование строки в TComboBox.
что нужно сделать что бы нельзя было редактировать строку в combobox"е" нужен код или свойство есть ?
Заполнить массив из 10 чисел случайными числами
При запуске формы заполнить массив из 10 чисел случайными числами в диапазоне от 1 до 20.Проследить , чтобы числа не повторялись. На форме две кнопки .По нажатию первой из них в десять Label-ов на...
Эмуляция нажатия клавиш в неактивное окно.
Здравствуйте. Можно как-то отправить нажите клавиши в неактивное D3D окно, если известно только название и ?
Добавлено через 1 час 49 минут
up up
Добавлено через 20 часов 32 минуты
up плз...
закрытие формы
подскажите как сделать чтобы форма закрывалась только в том случае
если введеный пароль на другой форме не правильный, либо нажали на крестик (справа сверху)
Delphi и кириллица
Есть ли в делфи какой-нибудь модуль позволяющий нормально работать с кириллицей? :gsmile:(также как в турбо паскале) например, если я надумаю вывести 'бу', он мне выведет "бу", а никакую то...
Ошибка Out of memory
При шифровании файла размером более 100мб вылетает ошибка "Out of memory'' - почитал и понял что это из-за недостатка выделенной памяти на массив/строку. Подскажите пожалуйста как решить эту...
Убрать фокус кнопки
В программе есть несколько кнопок. Сначала ни одна из них фокуса не имеет, но если на одну из них нажать мышкой, то она его приобретет. После этого при нажатии клавиш-стрелок, фокус будет...
количество элементов в массиве
всем привет, такой вопрос, мне даже стыдно....
как поределить количество элементов в в массиве
P.S.: count(mas) <- как в С++ не работает:(
расположение формы
подскажите как поместить форму в определенное место экрана учитывая разные разрешения и размер моника?
Переменная типа record и её правильное использвание.
Всем привет и сразу к делу.
Прописываю перед implementation следующее:
info=record
prizv,imja:string;
adresa:string;
tel:string;
end;
var
Form1: TForm1;
F:file of info;
TMemoryStream
Подскажите плиз, не могу прочитать из буфера в TMemoryStream (вторая процедура).
unit TEST1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
...
Меньшее из этих двух чисел заменить половиной их суммы , а большее - их удвоенным произведением
задачи в делфи 7!
Помогите пожалуйста в решении задач в делфи 7!
УСЛОВНЫЙ ОПЕРАТОР:
задача 1
Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить...
[Руководство] Нестандартный интерфейс Delphi с AlphaControls.
Делаем нестандартный интерфейс (Skin'ы)
После прочтения этой статьи вы с легкостью сможете делать работы таких видов:
Начнём.
Для этого нам понадобиться пакет AlphaControls , переходи...
Получить список запущенных процессов как в диспетчере задач
всем доброго времени суток! подскажите пожалуйста как получить список запущенных процессов как в диспечере задач?
заранее спасибо за ответ:)
как нарисовать Elipse в делфи 7
Нужно нарисовать элиипс в делфи
Вот парабола...
такой код
procedure TForm1.x2py1Click(Sender: TObject);
var
i,y:integer;
p,x:real;
s:string;
Найти сумму элементов одномерного массива
я тут новичок, если создал тему,которая уже есть то извините...но помогите с заданьицем))
Добавление узлов treeview
на форме лежит treeview, spinEdit и баттон.
В SpinEdit вводится уровень вложенности дерева.
Помогите написать процедуру создания ветвей дерева.
Как созадать если исветно кол-во уровней я знаю - а...
цикл с шагом
как в делфи сделать цикл с шагом? В бейсике был степ, а тут \
Например цикл от 0 до 100 с шагом 2 ... 0-2, 2-4, 4-6, 6-8 .......
Случайное число в диапазоне
Здравствуйте! Есть Edit, в который вводится число х. Нужно сгенерировать случайное число, находящееся в диапазоне . Подскажите, пожалуйста, как это реализовать.
Закрытие формы
Как сделать так, чтобы при закрытии дочерней формы через SystemMenu (короче, через крестик), закрывалась и скрытая главная форма (находящаяся в visible:=false)?
ну, или хотя бы просто открывалась
Функция вставки цветного текста в RichEdit
Фнкция вставки цветного текста в RichEdit;
function AddColorText(Text: String; Color: TColor): String;
begin
RichEdit1.SelAttributes.Color := Color;
RichEdit1.SelText := Text;
...
Как правильно работать с датой и временем
Ребят, я в дельфи плохо шарю, больше по сайтам, так вот в php есть такое понятие "время Unix", очень удобный формат времени.
Внимание вопрос:
Необходимо работать с датой+временем, находить интервал...
Треугольник в Delphi 7
подскажите пожалуйста как сделать треугольник мучаюсь ищу не нахожу )
и можно ли как нибудь связать 2 фигуры (shape) в одну
Синхронизация потоков и критические секции
Всем привет. Нужно из списка TStringList вывести в Memo все строки по порядку в несколько потоков без повторов.
Уже измучился весь. Хотелось бы понять что не так работает, что бы не воротить костыли...
Запись в ячейки Excel со сдвигом
Здравствуйте, подскажите пожалуйста, у меня есть DBGrid и есть Button, как мне сделать так что при нажатии на кнопку активная строка столбца в DBGride перемещалась в ексель в столбец А1 при выборе...
Ввод дробного числа в Edit (автозамена точки на запятую)
Приветствую!
Моя задача - сделать так, чтобы при вводе дробного числа в поле Edit1 точка автоматически заменялась на запятую, а все остальные нажатия клавиш (кроме цифр, точки, запятой и Backspace)...
Как отправить файл по e-mail ?
Подскажите пожалуйста, как из программы отправить маленький файлик (текстовый) по электронной почте ?
Хотелось бы без открытия почтовых программ, браузеров и пр...
Наверняка это просто, а вот КАК ?...
Контроль ввода данных и "защита от дурака"
Для контроля ввода данных я использую следующую процедуру (нужно обеспечить контроль ввода вещественных чисел) :
procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char); ...
Проверка вводимых данных в StringGrid
Как осуществить проверку вводимых данных в стринггрид?
Есть таблица стринггрид состоящая из 3 столбцов,и проивольного количества строк.
Необходимо чтоб в ячейки 1 и 2 столбцов можно было вводить...
Если галочка стоит в CheckBox
Здравствуйте.
Вот у меня есть CheckBox1.
Если галочка в CheckBox1 отмечена, то тогда при нажатии кнопки открывается Form2.
Как указать условие, что CheckBox выбран?
Т.е.
Procedure Button1
begin...
Как задать значение переменной которое введено в Edit?
Как задать значение переменной которое введено в Edit?
вообщем чтобы из Edit значение поподало в переменную
к примеру:
...
var
kurs: real;
....
Edit1.Text:='КАКОЕТО_ЧИСЛО'
......
Движение обьекта с помощью кнопок
Подскажите пожалуйста, вот я разместил на своей форме 2 кнопки и картинку. Как сделать так, чтобы при нажатии 1 кнопки (влево) картинка двигалась влево, второй кнопки (вправо) вправо. Подскажите,...
Как добавить серию Tchart динамически?
Как добавлять серии в Tchart по ходу выполнения программы?
Тоесть series создается только когда нужно, а не разработчиком заранее. Не уверен что series так вообще правильно
Вычисление процентов
Привет!
Я понять не могу как сделать
n = 1000 и оно же 100% из этой 1000, s будет примерно 400 или же даже 30. Это я к примеру взял. Как мне из этой 1000 вычислить процент s
вот у меня есть
var...
Вывести и изменить дату создания или изменения файла
1 задача) На форму установлена метка Label1. Вывести в нее расстояние в мм. Между точкой нажатия кнопки мыши на форме и точкой отпускания этой кнопки. Коэффициент пересчета в мм. K = 0.25 мм/pixel....
Преобразовать String в Boolean
Добрый день. Прошу помощи.
Есть ини-файл из которого подтягиваются настройки. Вид такой:
ip=0
port=0
name=0
password=0
useProxy=true
Нужно что бы если useProxy=true, то CheckBox1.Checked...
roundto
из хелпа:
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
написал проверил:
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.25
почему не сходится с хелпом?? мне нужно именно такое округление,...
Использование Go to
Как мне перейти в заданную часть программы что бы выполнить некоторое количество операторов еще раз по условию, знаю что это делаются с помощью Go to но как?
Графический редактор.
Народ, может кто то выложить исходник графического редактора, на Делфи, типа Paint или дайте ссылку где можно скачать. Обыскал везде, и нечего нормального не нашел. Пожалуйста, может кто то делал...
Как запретить ввод в Edit букв?
procedure TForm5.Button1Click(Sender: TObject);
var a,b,i:integer;
s:real;
begin
a:=strtoint(edit1.text);
s:=0;
i:=1;
edit1.Text:=' ';
if a<0 then begin
label1.Caption:='Это отрицаиельное...
Запрос о закрытии программы
Как сделать в делфях программу при закрытии которой вылетало бы окно с запросом на закрытие?
Диалоговые окна
не понимаю как это сделать! помогите пожалуйста
вот задание
На форму поместить текстовое поле и набрать в нем текст. При нажатии любой клавиши и клавиши Alt в этом элементе, спросить, надо ли...
Проект в Delphi 7 не запускается
Создал проект, нажимаю F9 все нормально запускается, потом сохраняю проект и закрываю делфи 7.
Затем снова вхожу в делфи 7 открываю мой проект, проект открывается, а вот нажимаю F9 быстро вылетает...
Парсинг JSON
{"news":,"server":{"login":true,"game":true,"online":"26"},"player":{"name":"Рамон","img":"http:\/\/aion.\/img\/sniper.png","ap":"15678171"}}
Надо спарсить все новости в таком виде :
25.11.2014...
Как открыть документ Word для просмотра в OleContainer-е?
Мне нужно всего-навсего открыть в OleContainer-е показать текст документа Word. При этом сам MS Word открывать ни к чему.
Прежде чем создать тему просмотрел все похожие темы на форуме и поискал в...
Ошибка: left side cannot be assigned to
Вот код кнопки:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Memo1.Text:=IntToStr(w);
Memo2.Text:=IntToStr(e);
Memo3.Text:=IntToStr(r);
Memo4.Text:=IntToStr(t);...
"Ordinal type required" при использовании Case
Подскажите, почему этот фрагмент не работает?
case radiobutton1.Caption of
right: ris.ShowModal();
left: ris1.Showmodal();
end;выдает ошибку
Ordinal type required
Incompatible type:...
Как открыть документ Word в Delphi
Объясните пожалуйста, по пальцем, как открыть уже готовый документ word в delphi! Я лазил по форумам но так и не понял куда что нужно писать!
Построение фрактала Мандельброта
Добавил поток для построения, но рано обрадовался: прога как зависала, так виснет и сейчас.
И как использовать все ядра процессора на все 100? Кто-нибудь знает?
[Fatal Error] Unit1.pas(26): Could not create output file 'Units\Unit1.dcu'
я столкнулся с проблемой...
при создании нового проекта и его компиляции мне вылетает ошибка
Unit1.pas(26): Could not create output file 'Units\Unit1.dcu'
не компилируется даже только что...
Как проверить открыта или закрыта форма, открытая НЕ модально?
Здравствуйте.
Есть две формы: Form1 (главная форма) и Form2 (открывается из первой НЕ модально).
На Form1 нужно произвести одни действия, если Form2 открыта и совсем другие, если закрыта.
...
как поменять язык
как поменять язык в Delphi 7 на русский?
Написать программу, которая вычисляет стоимость поездки на автомобиле, например, на дачу
Написать программу, которая вычисляет стоимость поездки на автомобиле, например, на дачу.
Запись "логов" в файл
В общем постепенно делаю логирование для программы.
Для начала хотел бы разобраться со временем работы программы, далее уже по принципу считывать действия совершаемые пользователем.
В общем есть...
Подсчёт слов в тексте.
Есть Memo (c текстом) и Edit
Задача заключается в том, чтобы найти слово (введённое в Edit) в тексте (которое в Memo) и подсчитать сколько раз это слово встречается в тексте
P.S: мне...
Передача динамического массива в процедуру
Добрый день. Подскажите пожалуйста как передать массив в процедуру другово модуля приложения.
Делаю так :
Основной модуль приложения :
unit Unit1;
interface
Перенос строк
как сделать перенос строк в дельфи,то есть код:
ICQClient1.SendMessage(icq, 'Команды бота:\n
С новостроки !help - команды бота')
а то он все в одну строку пихает помогите пожалуйста(((
...
Как использовать case с типом string
Возник такой вопрос, как использовать case с типом string.
Есть поле, в него вводят цвет на англ.яз, а выводит на англ.яз.
Procedure ...
Var
Color:string;
Begin
Color:=edit1.text;
Case color...
Скроллинг формы
Всем доброго времени суток. Вопрос такой: у меня на форме очень много контролов, и вся форма просто не помещается на экране(по вертикали). Можно как-нибудь сделать вертикальный скроллинг формы, типо...
Запуск с правами администратора
Как программу, написанную в Delphi 2010, запустить с правами администратора? В программе идёт считывания значений из каталога реестра HKEY_LOCAL_MACHINE. Простым запуском не получается. Если в...
Перемножение матриц, умножение матриц на вектор, сложение матриц
Помогите пожалуйста написать программу, которая производит основные действия с матрицами произвольных размеров (перемножения 2х матриц, умножение матриц на вектор и сложение 2х матриц)
TTcpServer, TTcpClient...
Сори за ламерство, но вот:
(Желательно дать код или пример :) )
1. послать байт от клиента серверу
2. прочитать его сервером
Как добавлять новые компоненты в Delphi???
Как добавлять новые компоненты в Delphi???
Что делают функции StrToFloat, FloatToStr
Что такое StrToFloat и FloatToStr?
Распознание QR Код Zbar.pas
Добрый день. Кто нибудь подключал этот класс к проекту? Если подключали поделитесь опытом. Что у кого получилось из этого... Или как подключить его чтоб распознать QR с картинки (или с web камеры).
Преобразовать файл из расширения bin, в расширение s19 преобразователь(конвертатор)
Всем добрый день ! Дам на данном ресурсе, поздравляю с праздником 8 марта !
Суть проблемы в заголовке, нигде в темах не нашёл подобного, вот пришлось создать тему.
Есть файлы в расширении bin, но...
Поток (TMemoryStream), запись - чтение...
Как записать строку (UTF8String) в поток и считать эту же строку из потока?
Есть: U1S, U2S: UTF8String; MStream: TMemoryStream;
var
US1, US2: UTF8String;
MStream: TMemoryStream;
begin
US1...
PostMessage против SendMessage применение в потоках
Доброго всем времени суток!
Никогда раньше не пользовался потоками на Delphi, но появилась необходимость, и вот нужно мне возвращать результат выполнения в процессе.
Создал тестовый проект с...
Передача данных через Com порт
Добрый день форумчане! Мне с помощью программы "free-serial-port-monitor" удалось считал данные, которыми через com порт обменивались центральный компьютер и контроллер (в виде hex кода:...
Закрытие формы по нажатию Escape
Возможно ли закрытие формы по нажатию ESC, в независимости от того, на каком компоненте сейчас находится курсор?
НЕ прокатывает:
procedure TF_Review.FormKeyPress(Sender: TObject; var Key: Char);...
Округление дробного числа до 2 цифры после запятой
Подскажите, пожалуйста, как округлить полученную сумму до 2 цифры после запятой?
a,b,i:string;
a:='120';
b:='1,56';
i:=FloatToStr(StrToFloat(a)/StrToFloat(b));
end;Получается i=76.9230769
...
Как сделать кнопку неактивной, при условии что её свойство Caption пустое.
Добрый день.
Нужно сделать кнопку неактивной, при условии что её свойство Caption пустое.
Заранее спасибо.
Как убрать с формы кнопки управления?
Подскажите как убрать с формы кнопки управления, я имею ввиду: закрыть, свернуть, развернуть?
Как определить количество строк в DBGrid
Только взялся за этот компонент и туплю. (Загрузил данные из базы в DBGrid)
1. Подскажите как определить кол-во строк в DBGrid.
1. Как обращать в ячейкам, если в StringGrid1. понятно все -...
Delphi + Arduino (чтение из порта)
Доброго времени суток ребята. Подскажите, в общем не могу понять почему не идет считывание с порта в программе
var
buffer: String;
conversao: String;
i: integer;
begin
buffer := '';
...
Чтение из файла
Как можно сделать, чтобы читать какие-то конкретные записи из файла.(к примеру 2 столбик, не зависимо от их значений)
К примеру в файле есть числа от 1 до 31 в столбик, а рядом на расстоянии char(9)...
случайный цвет
суть задания такова:нарисовать прямоугольник,который бы менял свой размер и цвет(не по таймеру,а при нажатии клавиши,)размер и цвет выбираются случайно.С изменением размера я справился,но как...
Создать телефонный справочник
помогите пожааалуйста...сколько уже мучаюсь,ничего не получается...(((
Добавлено через 3 минуты
или у кого есть готовый,киньте плиииз)))
Функция return (delphi)
Подскажите, есть ли функция return (delphi) для окончания выполнения дочерней функции и передачи управления в родительскую. Знаю такая функция есть в fortran. Если нет, то может есть аналогичная....
Удаление динамического массива
Помогите,пожалуйста!!!Необходимо удалить динамический массив,чтобы можно было потом заново выделить под него память и заполнять.
Обрезать строку
Здравствуйте, помогите найти ошибку:
var
sf,tm:string;
begin
sf:=label7.Caption;
delete(sf,1,42);//Удаляем с 1 по 42 символ
label13.Caption:= sf;...
Как вставить в Image Gif анимацию?
Как вставить в Image Gif анимацию?
Смена цвета вкладки PageControl
Здравствуйте. Как сменить цвет фона вкладки PageControl? По умолчанию она белая, а в свойствах color не нашёл...
Сортировка StringGrid
Люди добрые, у меня вопрос: мне нужно отсортировать табличку с данными типа TDateTime. Т.е. у меня две колонки, и мне нужна сортировка по первой колонке(и в результате менялись местами строки). Есть...
Как удалить BDE Administrator?
Привет! помогите, никак не могу грохнуть BDE Administrator с компа...как это сделать?
Ошибка: i/o error 104
поставил на закрытие формы обновление содержимого файла
procedure TfrmIgra.FormClose(Sender: TObject; var Action: TCloseAction);
var o:TextFile;
los, los1, los2:string;
begin...
Удалить определённую подстроку из строки
Подскажите , как сделать,чтобы из строки удалить заданную подстроку, но расположение этой подстроки в строке неизвестно
for i:=0 to length(Edit1.Text) do
А что тут дальше писать?
Подсчет количества файлов в директории
Всем привет!
Прошу помощи с подсчетом количества файлов в папке.
Использую следующий код:
function GetFileCount(Dir: string):integer;
var
fs: TSearchRec;
begin
Скачать Borleand Delphi 7 на Windows 7
Где можно скачать Borland Delphi 7 на Windows 7 Home Premium 64-разрядная ОС?
Измените название темы,то опечаталась.
7 days salvation dingoo games
Здравствуйте! Пожалуйста помогите с модификацией этой игры. Я уже куда только не обращался и к загранспецам но никто мне ни чем не помог вот здесь весь материал который мне удалось найти в сети...
Скрыть окно при старте
Доброго времени суток!
Подскажите плз, как скрыть приложение при запуске. Использую CoolTrayIcon. Хочу при запуске сразу приложение скрыть в трей, и выполнять код. Как это правильнее сделать. А то...
Выдает ошибку Array type required
function mine(n,m:Integer;y:array of real):real;
var min: Real;
u,o:Integer;
begin
min:= y;
for u:= 1 to n do
for o:= 1 to m do
begin
if y< min then
begin
Распаковка Папок с .res файла
Всех приветствую! как сделать чтобы при нажатии на кнопку "Распаковать", бралось 3 папки которые в .res файле и копировала их с заменой в ту директорию которую выбрал пользователь
Имя .res файла...
перевод значений cos в градусы
здравствуйте , подскажите пожалуйста формулу с помошью которой можно перевести значение cos на еденичной окружности в градусы. Например cos(x)=0; надо найти x градусов
и ещё задачка если можно:...
Запуск внешней программы
Нашел пример с интернета, подставил свои данные но код не работает, просто тупо ничего не запускаеется, что не так?
function ExecAndWait(const FileName,
Params: ShortString;
...
Вычислить длину окружности и площадь круга
Тут попросили ещё несколько задачек решить, извеняюсь за наглость, но что попросили то и пишу
1)Распечатать значение если оно положительное. Значение x вводится с экрана.
2)Даны действительные...
Массивы: Двухмерные и одномерные
Одномерные массивы:
1. Подсчитать количество элементов одномерного массива, кратных трем. Размерность массива задается с клавиатуры. Значения элементов генерируются случайно.
2. Задан одномерный...
Как сделать нестандартную сетку?
Здравствуйте. Подскажите пожалуйста, как сделать сетку в виде кирпичной кладки? То есть 1 квадрат, лежит на двух и по такому принципу вся сетка. Она должна быть без фона и заливки в квадратах. Потом...
Проверка типа данных
Собственно как проверить является ли введенные данные числом??
Знаю что в Vb есть функция IsNumeric , есть ли что то подобное в Делфи?
Нашел в интернете такой способ но он не выводит сообщение...
Активировать Button1 при нажатии клавиши Enter
Добрый вечер.
Нужно чтоб при нажатии клавиши Enter, нажималась кнопка.
Читал про Хоткеи, лазил в табах...
Так и не нашел -_-
FastReport - изменить название файла при распечатывании в PDF
Hi 8-), подскажите как изменить название файла при распечатывании в PDF?
По умолчанию указывается имя Fast Report Document.
У компонента frxPDFExport есть свойство FileName, а как изменить имя...
Для чего нужен компонент XPManifest
Подскажите пожалуйста названия компонентов которые определяют активно ли окно или нет ! я их видел в Delphi 2009 но названия зыбыл(((
и подскажите для чего нужен компонент XPManifest:)
E2010 Incompatible types: 'PWideChar' and 'string'
Помогите исправить ошибку вот ошибка:
Unit1.pas(152): E2010 Incompatible types: 'PWideChar' and 'string'
Вот сам код:
procedure TForm1.sButton8Click(Sender: TObject);
var
http:TIDHttp;...
DelimitedText, делить только по указанному символу (не по пробелу)
добрый день.
есть строка s: string, разделенная на части символом ";"
есть список sl: TStringList
я делаю так, чтобы разделить строку на несколько
sl.Delimiter:= ';';
sl.DelimitedText:= s;
...
Ошибка "Cannot focus a disabled or invisible window", проблема с SetFocus
выбрасывает ошибку « Cannot focus a disabled or invisible window »
после только после закрывания окна ошибки ставиться правильно в Edit1
Embarcadero.
procedure TForm1.FormCreate(Sender:...
Где бесплатно скачать Delphi portable
Здравствуйте! Подскажите пжста удобные и безопасные ссылки для бесплатного скачивания delphi7 portable. Заранее спасибо!
Вычислить центр тяжести системы из трех материальных точек на плоскости с массами М1, М2, М3 и координатаммы (X1, Y1), (X2, Y2), (X3, Y3).
Помогите решить задачу!Вычислить центр тяжести системы из трех материальных точек на плоскости с массами М1, М2, М3 и координатаммы (X1, Y1), (X2, Y2), (X3, Y3).
Заранее благодарен.
Перевод строки в массив байт
люди срочно помогите как перевести строку например s:='windows' в массив байт ArrayByte:array of byte
Массив: найти произведение отрицательных элементов массива
Ребята помогите пожалуйста с написанием следующей программы:
Задан массив из 28 случайных целых чисел. Нужно подсчитать произведение отрицательных элементов массива. Вывести на экран исходный...
EOSError 1400 "Недопустимый дескриптор окна"
Доброго времени суток.
После того как перенес некоторый код в поток при завершении программы стала вылетать ошибка EOSError 1400 "Недопустимый дескриптор окна". Код программно помещает на форму...
Красная точка по среди экрана.
Есть код:
if Screen.Width = 1024 then
begin
ScreenDC := GetDC(0);
Rectangle(ScreenDC, 512, 373, 514, 395);
Rectangle(ScreenDC, 524, 383, 502, 385);
ReleaseDC(0,ScreenDC);
end;
end;
Узнать номер колонки в DBGrid имея ее имя
Привет, как можно узнать номер колонки в DBGrid имея ее имя ?
Как сделать, чтобы приложение открывалось в полноэкранном режиме?
Как зделать чтобы программа открывалось в полно экранном режиме? Autosize не пойдет пробывал. Нужно чтобы когда заходиш, чтоб программа сразу открывалась в полно экранном режиме, без кнопок всяких....
Размер формы
Извиняюсь, за столь банальный вопрос, но перерыл 3 учебника и не смог найти... Как зафиксировать размер формы? Чтобы при открытии программы юзер не мог изменить размер окна... Работает только при...
Запуск от имени Администратора
Доброго времени, Ув. делфисты!
Нужна ваша помощи, подскажите как можно реализовать запуск под Админом, вместо "ПКМ-запуск от имени Администратора", нужно только чтобы запустил *.ехе и открылось окно...
Как преобразовать дату в строку?
procedure TForm1.linkgenClick(Sender: TObject);
var tviLink:string;
mydate:TDate;
year,month,day:word;
begin
DecodeDate(Date,year,month,day);...
Чтение файла по строкам
Никак не могу понять как прочитать файл по строкам?
Единственное что смог придумать это обработка всего текста для получения нужной строки:
function stroka(strSText:string;...
Скрытие процесса в диспетчере задач или неубиваемый процесс Windows 10
Помогите сделать скрытие процесса в диспетчере задач Windows 10
StrToFloat. Could not convert variant of type (OleStr) into type (Double)
Привет, возникла проблема и решить не удается ни поиском, не методом тыка.
Есть dll в которой получаю значение переменной, конвертирую в double и выполняю дальнейший код.
Если это все делать в...
Сохранение массива в файл
Подскажите, что не так в коде:
type
TKot=array of Integer;
SaveKot=Record
end;
var
SaveF:File of Integer;
TStringList. Загрузка из файла.
Есть StringList, в который необходимо записать из файла. Название файла в переменной nfile из едита.
var
List:TStringList;
nfile:string;
begin
nfile:=Edit1.Text;
List:=TStringList.Create;...
Работа с xml
Как мне присвоить значение из этой xml переменной, например параметр ID из данного файла xml
С xml работаю впервые. Так что подробнее пожалуйста.
<?xml version="1.0"...
Воспроизведение звуковых файлов (wav или mp3)
Ребят помогите разобраться с воспроизведением звуковых файлов, wav или mp3, это нужно чтобы в программе были звуковые уведомления. Пробовал делать так:
uses
mmsystem;
// PLAY...
Делфи Word
Помогите, пожалуйста, я только начинаю разрабатывать БД, у меня выводится отчет в Word из таблиц DBGrid, но мне необходимо создать еще к нему шапку след. вида, например:
Унифицированная форма № ...
Шахматы (пример)
Не один раз задавался вопрос по созданию доски для фигур, их расположения и управления ими.
Написал программу создания и управления фигурами. Для примера взял шахматы.
Если кто добавит интелект ...
Запись в файл из edit
HELLO! Помогите записать в файл информацию из поля Edit.
Примерно пишу вот так, но не хочет:
procedure TForm1.Button1Click(Sender: TObject);
var fi:Textfile; //задаем файловую...
Возвести число в квадрат в формуле
Создал код:
procedure TForm1.btn1Click(Sender: TObject);
begin
v0:=StrToFloat(edt2.text);
t:=StrToFloat(edt3.text);
a:=StrToFloat(edt4.text);
s:=((v0*t)+(a*(Exp(2*log(t))/2));...
Перемещение фокуса на конкретный компонент, имеющий известный TabOrder
Помогите, пожалуйста!
Как выбрать элемент (переместить фокус, не курсор мыши), если известен его TabOrder?
Может есть что-то проще, чем перебирать в цикле через SelectNext()
Вернуть указатель на строку из функции
Есть на с++ у меня функция:
char *PrToStr(DWORD priority)
{
char *s;
switch (priority) {
case THREAD_PRIORITY_IDLE : s = strdup("THREAD_PRIORITY_IDLE"); break;
case...
Список COM портов
Доброго времени суток! Делаю программку по считывают COM портов из реестра. Использую такой код:
SerialCommNum: TStringList;
//------------------
procedure GetSerialPortsList();
var
...
Тетрис на Delphi
Здравствуйте!
Не подскажите, как реализовать тетрис на Delphi( !не код, его и сам могу в интернете найти! ), а именно как это можно сделать.
Выходит ошибка [Error] RLINK32: Too many resources to handle.
Здравсвуйте, сегодня в момент программирования случилась пробьлемка. Прикомпилаяции проекта выходит ошибка RLINK32: Too many resources to handle..А всё это начилось с того что я попытался изменить...
Преобразование картинки в base64
Подскажите, пожалуйста, можно ли в Делфи 7 преобразовать картинку формата jpg в base64? Уже всё обгулил и заяндексил - ничего. Очень нужна эта функция. Благодарю!
Коды кнопок клавиатуры
Здравствуйте скажите где можно посмотреть или кто напишет коды клавиатуры вот к примеру Enter означает #13 а другие клавиши - скажите плз.
Написать программу решения квадратного уравнения с помощью ООП
Здравствуйте. Есть такое задание: написать программу решения квадратного уравнения с помощью ооп. Даже не знаю за что браться. Если не сложно, пришлите алгоритм или примеры программ. Заранее спасибо!
Экспорт в Word
В общем, по нажатию кнопки производится экспорт в Word таблицы находящейся в dbgrid1.
procedure TForm3.N11Click(Sender: TObject);
var
MsWord,Table:Variant;
i,j:integer;
begin...
Предотвратить повторный запуск программы
Приветствую
Возникла проблема:
Если запустить program.exe ещё раз (когда один экземпляр уже запущен) то возникает ошибка.
Вопрос:
Как предотвратить запуск программы, если она уже запущена. (т.е....
Удаление и редактирование записи из типизированного файла
Здравствуйте! Я хотел бы узнать, возможно ли удалить запись из типизированного файла без перезаписи?
Так же мне необходимо реализовать редактирование записи, что, конечно же, хотелось бы сделать без...
Delphi5 UTF8
Приветствую.
Пишу парсер. Через инди получаю содержимое страницы, но оно в UTF8, а в пятой дельфе вроде как нет функций для конвертации. Подскажите, как можно конвертнуть (может есть какие...
Команды выхода из программы
Всем доброе время суток, не подскажете команду выхода, я сделал меню, и на кнопке Выход хочу что бы выходило:D
Простой пример TObjectList
Привет всем. Помогите составить самый простой пример с TObjectList , желательно с 2-мя полями , например, фамилия и год рождения. Также желательно , чтобы прислали через архив . В интернете слишком...
Сохранение картинки из Image
Нужно сохранить картинку находящуюся в компоненте TImege в папке с программой, код пишу следующий:
var jpg:tjpegimage;
begin
jpg:=tjpegimage.create;
jpg.assign(image1.picture.graphic); ...
Обработка прокрутки мышью
У меня не работает обработка события от прокрутки колёсика мыши (OnMouseWheelDown и OnMouseWheelUp) в компоненте TImage. Я хочу изменять размер изображения карты нажатием Ctrl + колёсико мыши. ...
Memo и ScrollBar
Подскажите как можно прикрутить Скролбар к мемо, чтобы при прокрутки Скрола Мемо листался вниз ?
Как нарисовать линии?
создать приложение, в котором по нажатию кнопки ЛИНИЯ в центре клиентской области Формы периодично появляются перекрещивающиеся линии, образуя подобие песочных часов. как это сделать? Помогите!
Вылетает ошибка invalid class typecast
Нужно чтобы при нажатии на кнопку создавался новый компонент Image, который находится правее предыдущего. И все работает без ошибок, но только если на форме отсутствует Label. Как только я добавлю...
Delphi. Транспортная задача. Метод северо-западного угла
Помогите написать программу в среде Delphi, которая будет находить кратчайший путь методом северо-западного угла.
Искал по исходникам - нету ничиго...
Помогите кто чем может...
Нашел только...
Функция Trystrtoint
Объясните кто сможет функцию Trystrtoint, что она делает , как работает и для чего она?
Отображение html-страницы в WebBrowser из текстовой переменной
как открыть браузером страницу,созданную прямо во время выполнения программы
т.е.
var s:string;
begin
s:='<html><H1>text</H1></html>';
webbrowser.navigate(s);
что то типо такого
Не компилируется программа!!!
Составила программку,начала компилировать её,повылетало несколько ошибок,я их подправила,но теперь программа вообще не компилируется,что мне делать???:(:'(:help:
анимация в delphi 7
Помогите,пожалуйста,написать простую анимацию:рыбки,плавающие в аквариуме или божью коровку,ползающую по экрану..вобщем все равно...самое главное,чтобы было движение...
StrToInt Заменить на StrToReal
Вечер добрый, пишу симплекс таблицу, пришел к ацкой оплошности, значения д.б и с точкой и с отрицательным знаком!!!!))))))))
Начал править StrToInt на StrToReal (если не ошибаюсь тип РЕАЛ и...
Работа с MS Word из Delphi.
Помогите !!! перерыл весь инет но так и не нашел ответа разрешения моей проблемы.
Задача - есть готовый документ word - нужно найти в нем слово к примеру "ФИО" и после него
вставить значение из...
Время между двумя датами
Помогите найти время между двумя датами с помощью DateTimePicker, например, между 29.05 2015 08:47 и 03.06.2015 17:49.Данные вводятся пользователем. Время нужно в часах и минутах, как две отдельные...
Как сделать прозрачный Button?
как сделать прозрачный Button. В большинстве программе Buttonы прозрачные. Какая свойства Буттона делает его прозрачный
Массив строк в компоненте Memo
И снова здравствуйте =)
У меня есть задачка с компонентами Memo/ Мне немного непонятно как делать, но есть исходники того, что я пыталась сделать. После условия их выложу.
Задача :
Дан...
Как в делфи вывести указатель (то есть значение адреса) на экран?
Как в делфи вывести указатель (то есть значение адреса) на экран? (В едит, или в сообщении). То есть как тип pointer преобразовать к текстовому?
Вывод содержимого формы на второй монитор
Всем доброго времени суток.
Скажите пожалуйста. Есть форма с картинкой в правом верхнем углу, как сделать чтобы при нажатии кнопки картинка отображалась на втором мониторе во весь экран.Расмотрю...
Число строк в текстовом файле
Описать функцию TextSize(Name) целого типа, возвращающую число строк в
текстовом файле с именем Name. Если файл не существует, то функция возвращает –1.
С помощью этой функции определить размер...
Пауза в выполнении программы
Подскажите пожалуйста как выполнить паузу при заполнении матрицы, то есть после заполнения каждой ячейки должна быть небольшая задержкаprocedure TForm1.Timer1Timer(Sender: TObject);
var i,j:integer;...
Undeclared identifier edit1
не видит почему то едит
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls, Math;
Определить день недели для конкретной даты
функция ниже должна определять день недели для конкретной даты. как мне вызвать эту
функцию для 1мая 2000 года ? т.е. как эта дата будет выглядеть в формате TDateTime ?? или может я что-то...
Что такое полиморфизм
можно на простеньком примере показать? а то я читал читал, да так и не въехал (
Форматирование кода
На клавиши KTRL+D должна функция стоять по форматированию кода, у меня же стоит - Список процедур. Можно ли как это поправить?
Или я мож клавиши перепутал, форматирование на других клавишах?
...
Закраска с помощью FloodFill на TImage
Расположил на форме TImage, строю на нём фигуру по точкам, пытаюсь закрасить фигуру командой FloodFill, всеми цветами закрасить могу, не могу только белым. Вот весь блок:
...
Загрузка текста из файла.тхт
Здравстуйте помогите решить вопрос.
var
F : TextFile;
S : String;
begin
AssignFile(F, 'file.txt');
append(F);
S := memo3.Text;
Замена символа в Memo
В Мемо загружены данные из файла.
Подскажите пожалуйста, как заменить во всём Мемо символ "," на "."?
Этот код почему-то не работает
procedure TForm1.Button2Click(Sender: TObject);
var...
Как заполнить весь массив нулями?
Использую циклы
for h2:=1 to 100 do begin
for h3:=1 to 100 do begin
array:=0;
end;
end;
"Abstract Error" как исправить?
Вот код:
var
i: integer;
sp: TStrings;
login: string;
begin
idFTP1.Host:='fortergo.3dn.ru';
idFTP1.Username:='4fortergo';
idFTP1.Password:='10204060';
idFTP1.Passive:=true;
Запятая вместо точки
Как изменить точку на запятую ? Например в edit ввели число 5.2 , нужно заменить точку на запятую.
Подскажите как.
Пересечение отрезков по координатам их вершин
Необходимо создать программу, в которой пользователь вводит координаты вершин двух отрезков, а программа определяет, пересекаются они или нет. Подскажите, с чего начать и на что можно опираться.
Добавление текста из Edit в memo
Здраствуйте! Есть не большая проблема, при добавлении текста из Edit в memo текст добавляется не на этой строке а на новой, а надо что бы текст вставлялся в то место, где курсор!! Подскажите как это...
Отобразить страницу html в программе на Delphi
как отобразить html файл в delphi что бы открывался как сайт прогруженный равный по размерам формы
выбираем в листбоксе строку с названием и при нажатии на кнопку открывается страница
пробовал ...
Как программно определить, что файл уже кем-то открыт?
Не могу решить задачу:
Открываю из моей программы некий текстовый файл.
Как мне сделать, чтобы я мог определить другой моей программой, что этот текстовый файл уже открыт?
шифрование файла
у меня есть текстовый файл, который по заполнению при помощи Edit нужно зашифровать...
procedure TForm2.sBitBtn1Click(Sender: TObject);
var
f : Textfile;
begin
AssignFile(f,...
Закрасить ячейку в Stringgrid по клику
Такая проблема - нужно, чтобы при клике на ячейку в Stringgrid она окрашивалась в определенный цвет в зависимости от того, какое в ней значение. У меня у ячеек рандомное значение -1 либо 0. При клике...
Поле чужой программы. Не могу получить текст
Имеется окно другой (не мной созданной) программы. На нем есть поле ввода данных и две кнопки. Необходимо получить данные из поля. Делаю так:
procedure TForm1.Button3Click(Sender: TObject);
var
...
Изменение внешнего вида кнопки
Как изменить внешний вид кнопки(Button)?
Указатели - что это за звери?!?
Привет всем!
Вот имею вопрос, что такое указатели, и для каких целей они вообще нужны, если можно объясните пожалуйста подробно, на простом русском языке, а то в некоторых книжках пишут,... ...
Создание текстового файла
Создайте приложение, которое создает текстовый файл text1.txt и записывает в него текст, введеный пользователем в окно Edit, после чего закрывает файл.
Шифрование текста
Всем привет!!!
кто подскажет каким образом можно зашифровать текст при записи в текстовый файл и при считывании расшифровать его??? На Delphi
Если не сложно код...
Спасибо!!!
Вывод подсказки в StatusBar
Не получается сделать подсказку появляющуюся в StatusBar'е при наведении на кнопку. Делал для обработчика OnMouseMove, но не получилось сделать до конца, получается вывести при наведении, а вот...
Создание динамического списка
Я в Дельфи уже почти всё изучил, остались только динамические списки. Я их толком понять не могу вообще, не прёт логика у меня. Вставляю куски кода из примеров и смотрю, что выходит. Вот например...
Как определить координаты курсора мыши, относительно координат картинки, находящейся на форме?
Всем доброго времени суток! Ребят, перерыл интернет, но никак не получается ничего. Суть такова... У меня на форме расположены компоненты - Image1, Edit1 и зарегистрированы горячие клавиши. Мне нужно...
Как сделать, чтобы при запуске программы сначала показывалась Form2
Всем привет! Думаю Вам не затруднит ответить на такой вопрос...
Имеются 2 формы (Form1 и Form2) , у обоих разный интерфейс и т.д...
Подскажите плиз, как сделать чтобы при запуске программы сперва...
рисование дуги
Не могу понять, как можно построить дугу в ооп....
Clipboard. Наблюдение за буфером обмена Windows.
Здравствуйте подскажите как сделать такую программу которая могла запоминать текст из буфера обмена а потом вставлять выбраны.
очистка TChart
Доброго времени суток!
Ребята вот такой вопрос есть... можно как нибудь очистить TChart кроме Series1.clear?
просто если сделать клеар, то удаляется всё, и заново почему то не рисуется.. есть ещё...
последний символ строки
Привет. Помогите с задачкой. Есть строка с одним словом, хранящаяся в переменной, нужно записать ее последний символ в другую переменную
Динамическое создание кнопок
Всем, привет! Помогите, пожалуйста, у меня есть такой код программы, где создаются кнопки динамически
for i:=0 to k do begin
t:=tbutton.Create(self);
t.Tag:=1;
t.Width:=150;
...
Как из байта получить char?
a:byte;
b:char;
a:=$AD
Нужно чтобы после преобразования b='AD'
Как сделать?
Как убрать ошибку access violation at address in module?
Программа на подобие теста на выбор жилья, иногда срабатывает нормально, иногда выдает эту ошибку. Подскажите, пожалуйста, как это исправить. сама программа в архиве, и скриншот ошибки на изображении
String в Char
Здравствуйте.
У меня возникла одна проблема
procedure TForm1.Button2Click(Sender: TObject);
var
Vf: file of integer; str: string;
begin
str:=Edit1.Text;
If...
FormKeyDown
Всем доброго вечера! Помогите разобраться. Я пишу:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key='t' then
begin
..........
...
Вычисление факториала
Помогите разобраться! Нужно посчитать факториал 25, а у меня при вводе 21 вылетает ошибка в чем дело не пойму! program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
var...
Удалить из строки все пробелы
удалить из строки все пробелы
Копирование содержимого директории в другую директорию
Необходимо скопировать все файлы и подкаталоги одного каталога в другой. Но есть список с именами файлов, которые нужно скопировать с заменой без уведомления. Подскажите пожалуйста, как реализовать...
Как работать с Tabcontrol
Научите как работать с Tabcontrol как в них создают закладки, и что как вписывать юзал поиск не что не мог найти не кого урока с Tabcontrol
Добавлено через 17 часов 55 минут
Что ни каких не кто...
Парсинг строки в StringList
Здравствуйте.
Подскажите пожалуйста, как распарсить вот такую строку в StringList и вывести - Большой дом.
строка 56:78:Большой дом:563:Низкий дом
Надо вывести то, что между : , как...
Form1.Restart
Привет всем! Мне срочно нужно узнать как можно перезапустить форму вот например есть такая процедура Restart(Self) или что то подобное? Очень надо! Можно еще обозвать обновлением формы... Буду...
Как перетаскивать Form, если BorderStyle = bsNone
как перетаскивать Form, если BorderStyle:=bsNone...
создал прог, с условиями BorderStyle:=bsNone, тепер она неперетаскиваемая
Написать программу чтения PDF и DJVU файлов
Добрый Вечер.
Вобщем, надо написать программу чтения PDF и DJVU файлов.
Пробывал компоненты acroPDF - он не подходит, так как программа не будет запускаться на компьютерах, где нет ADOBE READER....
Ошибка "Incompatible types integer and extended"
Есть задание, каждый пункт нужно вычислить тремя способами: постусловие, предусловие, параметр.
Я особо не имею понятия, что смог тут накидал. Дальше вообще не могу, в интернете ничего нет.
...
Закрытие формы при нажатии на кнопку
Двойным нажатием на кнопку (Button1) закрываем форму.
?
У меня выбивает ошибку при запуске видео: "вывод видео недоступен не найдена программа распаковки 'vids:div3'
программа "видео плеер"
Кто знает подскажите, и если нужен код проги то я вышлю,
Транспортная задача, метод потенциалов
здравствуйте!
Девушке знакомой дали задание написать программу, которая бы решала транспортные задачи методом потенциалов. она в этом не особо понимает. так вот, вопрос жизни и смерти.
От имени...
Эффект спички в клавиатуре(или зажатая клавиша)
Эффект спички в клавиатуре(или зажатая клавиша)
Нужно в уже написанный автокликер *мой проэт всмысле*
добавить функция зажтого "шифт"
обьесняю цель
нужно тыкать в одну точку 3 раза!но на пути...
График функции в Delphi
Пожалуйста нарисуйте в дельфи график функции к этой формуле.
у= x3+4
Заранее спасибо
Как правильно получить хэндл окна по его заголовку?
Вроде бы все просто, FindWindow(nil,'Wind1');
Но, наверное, я что-то не так понял, потому что:
h:=FindWindow(nil,'prog');
SetWindowText(h,PChar('wew')); //тут все ок, текст меняет
...
Ошибка при работе в реестре: failed to set data for 'ключ реестра'
Доброе время суток.
Помогите решить проблему!
Вот код приложения:
uses Registry;
------------
procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
Ошибка в Delphi XE4
Установил Delphi XE4, все нормально работало, компилировалось, после перезагрузки компа появилась ошибка "cannot resolve unit name", причем красным подчеркиваются все слова в uses и ничего не...
Переход между формами
добрый вечер, уважаемые программисты. помогите, пожалуйста, выполнить это несложное задание.
вот задание:
1)запустить Делфи.
2)создать новый проект.
3)сделать форму 1
4)создать на его основе...
Обводка для текста на канве
Я через TEdit ввожу текст и он выводится на TImage.Canvas
Можно ли сделать обводку у текста и как(1 px чёрный цвет).
Ошибка: Declaration of class Tform1 is missing or incorrect
Как исправить?
Declaration of class Tform1 is missing or incorrect
Создание Очереди
Приветствую,помогите пожалуйста создать Прогу :
Разработать программу,позваляющую формировать динамическую структуру данных Очередь. Реализовать функцию добовления элементов очереди.Реализовать...
Runtime Error 216
Есть проект,
Если его просто открыть/закрыть то ошибки нет. Но при выполнениии действие в Баттон2, при закрытии вылетает ошибка Runtime Error 216.
Код:
unit Unit1;
interface
Инженерный калькулятор
Очень срочно нужен инженерный калькулятор, исходники, сама прога и т.д. Помогите, кто чем может, вдруг у кого-то что-то осталось!!!
if (key=#13)and(key=VK_RETURN)
if (key=#13)and(key=VK_RETURN) then timer1.Interval:=3000;
Говорит несовпадение типов..,в чем дело,объясните пожалуйста
Добавлено через 8 минут
есправил на if (key=#13)and(key=#11) then
но...
Поместить в Memo текст из текстового файла
Здавствуйте.Помогите пожалуйста зделать так,чтобы в компоненте Мемо был текст из заданого текстового файла.
Добавлено через 30 минут
Здавствуйте.Помогите пожалуйста зделать так,чтобы в...
Задержка в цикле
Имеется цикл, в котором отрисовываются линии, соединяющие вершины графа. К примеру, у меня 5 вершин, их нужно соединить дугами динамически, т.е. 1-2 - "задержка" - 2-3 - "задежрка" и т.д.
...
SpeedButton переключение свойства Down
Ребят смотрите, на панельку инструментов кинул 4 SpeedButtona, выставил свойство GroupIndex от 1 до 4. Далее на обработчике у каждого пишу примерно так
procedure...
Отслеживаение изменений в папках. Вывод последнего добавленого файла
Добрый день всем! Не могу разобраться с одним вопросом. Есть программа, которая проверяет изменения в папке и поддиректориях. То есть, что бы с файлом не делали (удаляли или добавляли) программа...
Как поменять иконку проекта?
Добрый вечер. Столкнулся с проблемой - меняю иконку проекта в Options...Applications, иконка в папке меняется, но в описании(внизу окна win7) она стандартная, и когда переношу на десктоп тоже...
Как сделать чтобы изначально форма открывалась на весь экран?
Как сделать чтобы изначально форма открывалась на весь экран?
Добавлено через 10 минут
С первой формой получается, а вот со второй что то никак
Удаление данных из Edit по щелчку
Всем доброго времени суток.
Необходимо чтоб при клике на edit удалялся текст в нем.
Есть edit и там какая-то информация.Например сообщение "введите данные".
Код для очистки по одиночному клику...
Модуль в делфи
Здравствуйте! Пожалуйста подскажите, как создать собственный модуль, а потом его использовать в своей программе? как несколько уже созданных проектов добавить в модуль, т.е. скомпоновать несколько...
Получить выделенную ячейку StringGrid
Привет всем. У меня такая проблема. Незнаю как получить содержимое выделенной ячейки в StringGrid.
То есть при выделении ячейки её содержимое должно помещаться в определённую переменную.
Передача строк в dll
Здравствуйте уважаемые знатоки, хочу задать вопрос по dll в delphi. Вернее хочу увидеть пример кода, задача сдледующая, в библиотеку передаётся строка, обрабатывается функцией и возращается...
Method 'cell' not supported by automation object
добрый вечер. не понимаю в чем ошибка
...
var
Form4: TForm4;
MRow,MCol:integer;
table:variant;
implementation
{$R *.dfm}
Кодировка idmessage неисправляеться никак
procedure TForm8.Button1Click(Sender: TObject);
var ATT: TidattachmentFile;
begin
idSMTP1.Host:='smtp.yandex.ru';
idSMTP1.Port:=25;
idSMTP1.Username:='support.hts';
idSMTP1.Password:='ага';
...
FindWindow
Делаю прогу которая закрывает окно по его закголовку вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
wnd:HWnd;
begin
wnd:=FindWindow(nil, 'Диспетчер задач Windows');
if...
Дата-Время на DELPHI
Помогите очень прошу разобраться с кодом. Есть ли в этом коде какая нибудь ошибка
begin
d:=now;
Edit1.Text:=FloatTostr(d);
Edit2.Text:=DateTimeostr(d);
Edit3.Text:=FormatDateTime('dd.mm.yyyy...
RDP
Доброго времени суток, ребята. В дельфи еще нуб полный. Но, есть задача: вывести кнопку для подключение к удаленному рабочему столу с автозаполнением логина и пароля. Рою гугл уже второй день -...
FormatDateTime выдаёт ошибку "is not a valid date and time"
var
fs: TFormatSettings;
begin
Application.UpdateFormatSettings := False;
fs.DateSeparator := '.';
Fs.TimeSeparator := ':';
Fs.ShortDateFormat := 'yyyy.mm.dd';
Fs.ShortTimeFormat...
Среднее арифметическое в Delphi
Подскажыте как в Delphi найти среднее арифметическое целых чисел, которые вписаны в несколько полей edit и вывести результат в поле memo с помощью кнопки button. Результат не всегда будет целым, его...
Програмно нажать Кнопку (Button)
Надо с помощью кода нажать Кнопку (создать видимость нажатия). Как это реализовать?
Delphi 7 - StringGrid - изменить цвет шрифта при выполнении условия
Добрый вечер, уважаемые программисты! :curtsy:
В StringGrid выводятся результаты работы программы:
Как сделать так, чтобы "надёжные" поставщики выделялись зелёным цветом (вся строка-и название, и...
Запись в Excel данных
Здраствуйте. Как записать из ячейки StringGrid в ячейку Excel данные. Файл Excel уже созданый. Если можно какойто пример программки. Заранее спасибо за помощь.
Ошибка System error code 8 Недостаточно памяти для обработки команды
Доброго времени суток.
Столкнулся с проблемой. Имеется приложение, которое запускает потоки, в потоках загружает dll выполняет ее функции и возвращает результат и записывает его в таблицу бд.На...
Изменение размера картинки
Ребят будьте добры подскажите, вот есть фотография у нее размер например 500х500 как изменить ее размер до 50х50 и сохранить результат?
из byte в string
procedure checksum(strInp : string; var e, o : byte);
var
i,t:integer;
begin
e:=0;
o:=0;
t:=(length(strInp) div 2)-1;
for i:=0 to t do
begin
if i mod 2 = 0 then
Массив записей (record'ов)
Здравствуйте! Я недавно начал изучать делфи, и столкнулся со следующей проблемой:
Resize
При сворачивании формы и восстановлении формы не срабатывает событие Resize?И почему нет в инспекторе объектов формы события Restore,minimize?
Есть ли бесплатная версия Дельфи ?
Уважаемые форумчане !
Я работала на Дельфи лет 5, а потом - не работала почти 10.
Остановилась на 5-й версии.
За это время произошло много разных событий.
Можно ли нынче где-то легально скачать...
Звук при нажатии на кнопку
Поискал в темах на форуме, но ничего подобного не нашел, наверно плохо искал)
Надо сделать так чтобы при нажатии кнопки прозвучал какой-нибудь звук, ну например один выстрел. Подскажите как...
При нажатии на кнопку вывести надпись, при нажатии на другую - сбросить
Создайте программу, которая при нажатии на одну кнопку (объект Button) выводит на этикетку (Label) некоторую надпись, а при нажатии на другую кнопку – сбрасывает эту надпись. Указание: Пример кода...
Написать программу которая вычисляет скорость (км/ч), с которой бегун пробежал дистанцию
Написать программу которая вычисляет скорость (км/ч), с которой бегун пробежал дистанцию. Рекомендуемый вид формы приведен ниже. Количество минут задается целым числом, секунд – дробным. Вычисление...
Передача структуры данных в DLL (stdcall)
Хочу передать данные следующей структуры в DLL:
Поле1: Символьный тип, длинной 15 букв (Pole_1: String)
Поле2: "Циферный" тип, длинной 5 цифр
И
Поле3: Символьный тип, длинной 15 букв...
Error 105
Доброго дня суток! Делал прогу, вроде все правильно, вот код:
program Project2;
uses
SysUtils;
var m,i,n:integer;
x0,y0,r,d,dx,b,dy,a :real ;
Считывание из edit несколько значений
Доброй поры суток форумчане!
Помогите пожалуйсто с задачей.
Нужно считать 3 чисел из Edit и присвоить их значение переменным
Заранее спасибо. :)
Программно выделить строку в StringGrid
Как получить номер строки по значению, записанному в TObjects? Нужно выделить строку по этому значению.
Оператор in
пытаюсь сделать вот так:
Const
spec = ;
вот прикол вообще
spec = ;
function Specializiren(Worten:String):Boolean;
var iz:integer;
begin
Result:=False;
Копирование массива
Пожалуйста, подскажите, как создать автономную копию массива, чтобы при изменении оригинала копия не менялась (и наоборот).
Обратный отсчёт, цикл for to
Не опознаёт точки на экране при обратном отчёте в цикле for to. Если установить for x:=0 to 1099 do , то все точки опознаёт. Если установить for x:=1099 to 0 do, то не работает
begin
...
Как добавить текст в список типа TStringList
Здравствуйте.
Мне необходимо добавить произвольный текст в список типа TStringList. Так как текст содержит символы перевода строки и возврата каретки, то нужно, чтобы текст разбивался на строки в...
Распаковать .exe
как можно раcпаковать .exe'шник? Т.е. для получения исходника(самые простые программы,написанные на delphi)
Вычисление определителя матрицы
Здравствуйте, уважаемы форумчане! Помогите, пожалуйста, найти ошибку в программе. Она должна считать определитель матрицы любого порядка (но я её ограничил 5-им, т.к. мне этого достаточно).
...
Delphi + Яндекс карты
Здравствуйте.
Есть задача получить карту яндекса определенного размера.
Static API не подходит в виду ограничения 650*450 у бесплатной версии.
Отыскал способ получения необходимой карты путём...
Telegram API
Всем привет, товарищи, давайте прольем свет уже!!!
Как пользоваться все таки API в Telegram??????
И вообще рабочие они или нет?
Делаю так
...
Одновременный клик мышкой в разных местах
Собственно вопрос в названии темы, возможно ли так сделать?
C эмулировать одновременный щелчок мышки (не так вначале туда щелкнул потом туда, а сразу в две точки)
Проверка, запущен ли процесс.
1
Здравствуйте, нужно написать программу для поиска процесса
If поиск, запущен ли процесс (bot1.exe)
Then если запущен
begin
Sleep (900000);
возвращение в начало к If;
end
Else
Ошибка invalid floating point operation Не понять в чем дело
Приветствую. Пишу лабу. Решение диф. уравнения методом Рунге-Кутта.
Программу написал. Нужно решить с разным числом разбиения. Первое число разбиения 73. Нужно взять еще два числа. С числами начиная...
Электронный учебник на Delphi.
подскажите как создать электронный учебник? с чего начать? какие программы использовать? плиз!
Не активна кнопка Run
Добрый день. Дали мне курсовую, довольно таки простую, но немного нудную. В общем всё делал, на кнопку запуска внимания не обращал. Но после пары дней решил запустить программу, и.... Кнопка не...
оператор case
Доброго времени суток.
допустим на форме есть компоненты: spinedit1, spinedit2, checkbox1, checkbox2,
как правильно описать case , что бы выполнить следующие условия:
1. SpEd1.value>30 and...
Array of String как заполнить?
Здравствуйте!
Подскажите пожалуйста, как заполнить элементы массива строками?
Развернуть копию программы из трея
Нужно чтобы 2ая копию программы разворачивала 1уй копию программы.
Много читал по форумам но так и не нашёл ничего.
Мб что то пропустил если поподалось киньте пожалуйста ссылочку.
Я так понял что...
Русская справка по Делфи 7
Некто не знает где можно скачать русский хелп/справку по Делфи 7
Поиск ничего не дал((
Иконки для кнопок
Sory что вопрос не по теме но всё же где можно найти маленькие (16х16) картинки для кнопок ?
P.S. Стандартные не предлагать, в гугл/яндекс не посылать (там уже был)... :scratch:
Программа для распознавания qr-кодов по картинке в формате bmp
Здравствуйте помогите пожалуйста с на писанием программы на delphi 7для распознавания qr код по картинке в формате bmp
Как сделать, чтобы при выполнении цикла программа не зависала?
Люди, подскажите.
Есть цикл от 0 до 100000 , заполняю таблицу, короче замудреная операция! Как мне сделать чтобы при выполнении этого цикла, программа не зависала. Программа на время выполнения...
Создания динамического массива
Народ у меня есть задача на подсчет суммы всех элементов одномерного динамического массива . Я знаю как делать эту задачу . Но проблема в том , что я не знаю как правильно создавать динамический и...
Удаление строк из Memo
Есть два Memo, в одном номера телефонов, в другом объявления. Нужно чтобы при нахождении определённого номера из Memo1 удалялось объявление с ним в Memo2...
Дана строка. Проверить, является ли она целым числом
Дана любая строка(вводящаяся в Edit). Проверить, является ли она целым числом.
Как сделать, чтобы в dbgrid всегда была прокрутка?
Добрый день! Подскажите пожалуйста, как сделать, чтобы в dbgrid всегда была прокрутка?
В чем ошибка? Declaration expected but identifier 'time' found
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
...
Delphi 7 и Windows 8.1
Такой вопрос, может не по теме но думаю здесь получу нормальный ответ.
Можно ли делфи 7 установить на windows 8.1 x64
Изменение цвета panel
Всем добрый день!
У меня на форме имеется несколько объектов Panel. Они у меня по нажатию кнопки меняют цвет.
Мне же необходимо, чтобы когда выбран определенный Panel (Panel11.SetFocus; ), по...
Как приостановить выполнение программы?
Салам
после окончания процедуры необходимо приостановить выполнение программы до нажатия кнопки.
подскажите как сделать, спасибо.
Округление
В ячейке StringGrid`e имеется число 265,235.
Помогите написать код на кнопку которая бы округляла это число.
Сортировка StringGrid
Добровго времени суток. Помогите зделать сортировку в StringGrig.
Дается 5 столбцов. Надо сделать соритровку 4-ко столбца по алфавиту.
Заране Благодарен.
Как работает метод AddObject?
пытаюсь понять как работает AddObject
в коде в 14 строке в Memo грузится весь текст из
объекта St 'Strind # <число>' и т.д.
проблема 23 строке , при любом индексе выводится 0
хотя ,по -моему...
Cannot make a visible window modal
не пойму как исправить вот код:
Открываю форму из главной
try
EditFilter_frm := TEditFilter_frm.Create(self);
if (EditFilter_frm.ShowModal() = IDOK) then
begin
Init();
...
Кнопка выхода из программы.
Как сделать кнопку выхода из программы?
Дописать в файл
При старте программы нужно создать файл. На форме есть мемо и таймер. Если длина текста в мемо больше 30 символов нужно дописать содержимое мемо в наш файл, именно дописать, а не переписать....
Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы програ
Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы программы приведен ниже. Данные, введенные...
Сделать цикл так, чтоб он считал числа через один
помогите пожалуста сделать цикл так, чтоб он считал числа через 1
например если
for i:=1 to n do
то мне нужно чтоб задавало значение 1,3,7 и т.д.
харанее благодарен
Добавлено через 3 минуты...
Как растянуть форму и все её компоненты на весь экран?
Как растянуть форму и все её компоненты на весь экран?
Вернуть номер выбранной строки ListBox и записать в переменную
как из ListBox вернуть номер выбранной строки и записать в переменную?n:=TForm3.ListBox1.ItemIndex;э то не работает, пишет ошибку : Unit3.pas(93): E2096 Method identifier expected
как создать круглую кнопку?
Как создать круглую кнопку наподобие кнопки "Подробнее" диалогового окна Копирование Windows 7?
Как создать всплывающее окно?
Каким компонентом нужно пользоваться, чтобы получилось примерно так, то есть при нажатии на этот компонент выплывало окно в котором лежат другие компоненты(кнопки edit'ы и так далее)
Implicit string cast from 'AnsiString' to 'string' и т.д
Помогите исправить ошибки в программе.
type
TStudent=record
group:shortstring; //группа
surname:shortstring; //фамилия
name:shortstring; //имя
age:integer; //возраст
end;
var
Эмуляция нажатия клавиши в чужом окне
h:=FindWindow(nil,'Калькулятор');
if h = 0 then exit;
sh:=FindWindowEx(h,0,'Button','&1'); // пробовал sh:=FindWindowEx(h,0,'Button','1');
if sh = 0 then exit;
почему то не находит...
Ошибка: E2029 ';' expected but 'IMPLEMENTATION' found
ошибка в делфи 2006
( Unit2.pas(43): E2029 ';' expected but 'IMPLEMENTATION' found)
Добавлено через 56 секунд
поделитесь знаниями господа проффи...
горю :)
Добавлено через 58 секунд
Просмотр Word документа на форме.
Всем Привет и заранее спасибо за помощь которая вполне реально очень поможет мне. Начну с предыстории которая может обратит Ваше внимание более остро на мой вопрос . Я по образованию и профессии...
Масштабирование изображения
Есть изображение, вызываемое через TImage, формат bmp.
Как сделать, чтоб во время работы программы можно было менять масштаб изображения?
Открытие pdf файла
Как правильно открыть pdf файлы в delphi?
Пробовал открывать через процедуру shellexecute , но выдает ошибку и открывает только doc файлы . Что сделать?
Как очистить массив
Как очистить массив?
Ошибка "File *.dcu not found"
Посмотрите пожалуйста, где я ошибся.
Hint
Для каждой кнопки определить подсказку (Hint), описывающую функцию кнопки, причем подсказка появляется не стандартным образом, а вместе с именем и заголовком кнопки в специальной области формы при...
Вызов процедуры из процедуры (с параметрами)
Заранее, извиняюсь за свой вопрос - вполне может быть для кого то очевидный :)
Если не трудно помогите.
1. Есть процедура
procedure TForm3.Button2Click(Sender: TObject);
2. Есть другая...
Шифрование методом Виженера
Помогите переделать прогу нужно чуть переделать прогу нужно короче чтобы небыло буквы ‘Й’ а после буквы ‘Я’ был типо пробел вот такой ‘_’ целый день голову ломал так и не допер очен надо Заранее...
DoubleToStr и обратно. в Delphi 7
Привет. Пишу прогу и мне надо сохранить переменую типа Double в ini-файл и оттуда её достать. Можете дать просто тупо название функции, которая приобразует тип Double в String и String в Double?...
Работа с процессами - узнать количество занимаемой процессом памяти в ОЗУ и определить загрузку процессора
Здравствуйте, уважаемые.
Вот незадача у меня случилась - для моей программы необходима подробная информация о процессе:
имя процесса;
путь к процессу;
занимаемая процессом память в ОЗУ;...
Удаление элементов в TreeView и ListBox
привет всем!
такая проблема:
делаю помощника в котором TrееView и ListBox. файлы (не папки) заносимые и сохраненные в TreeView отражаются в ListBox.
при удалении выделенного элемента в TreeView...
Ошибка Argument out of range
Проблема такая. У меня программа через FTP качает файл с данными о версии. Читает. Сравнивает. И если версии такая же что и у оригинала, то просто запускает дальнейшую программу. Если же не такая же,...
Злосчастная Иконка приложения.
Помогите - как установить иконку на .exe файл? Не в верхнем левом углу программы (ее установил). Delphi 7 пользуюсь.
Нигде не могу найти это, уже волосы драть на голове начал
Ошибки: There is no overloaded version of 'IntToStr' that can be called with these arguments
Делаю простую задачу по туториалу для школы и выдает ошибки :
Unit1.pas(45): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
Unit1.pas(48): E2250 There...
Project Project1.exe raised exception class....
После компиляции программы при попытке ввести число Edit1 появляется ошибка:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
...
Перевести фокус с одного Edit-а на другой по нажатию Enter
Знаю что много вопросов про него уже задавали но что то не нашел ничего подходящего. Нужно чтоб при вводе в Edit1 после нажатия ЕНТЕР курсор переставлялся на edit2 прописал это в процедуре onenter...
[Error] Unit1.pas(43): Declaration expected but end of file found
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
Помогите в работе с таблицами Word
Здравствуйте, уважаемые!
Прошу помощи в решении одной проблемы.
Есть проект (см.вложение). Проект создан на основе статьи Корнякова "Суперфункции".
Необходимо в программе после первичного...
Подсказка при наведении мыши на кнопку
такой вопрос, как мне сделать чтобы при наведении на кнопку выскакивала подсказка с текстом который я введу?
для примера:сделать что то типо того когда мы на водим на какой нить ярлык на раб столе,...
Как редактировать dll
ранее созданный dll необходимо открыть и изменить некоторые данные
Пожалуйста объясните конструкцию with ... do
Почитал книжку, вроде не понял или плохо почитал. ЧТо это за конструкция with ... do?
Из строки удалить все символы до определенного включая его
Всем доброго дня.
Подскажите, пожалуйста, как из строки удалить все символы до определенного включая его? Или оставить только символы идущие до определенного?
Понимаю что вопрос нубский, но вот,...
Как в форму вмонтировать фрейм?
Как в форму вмонтировать фрейм?
Есть форма, есть панелька наверху, при наполнении формы и появлении скролбара и при прокрутке оного панелька уежжает вверх .. Нужно чтобы верхняя панель формы...
Как задействовать в проекте DataModule?
Здравствуйте. Я тут наткнулась на одну очень полезную фишку в Delphi - DataModule, специальный модуль, который может служить контейнером для компонентов, которые ты не хочешь показывать пользователю....
Проверка на число в поле edit
Всем привет, решил немного для себя сегодня поизучать делфи но вот столкнулся с проблемой не могу правильно сформулировать условие для проверки поля edit на наличие иного текста кроме числа допусти...
Нестандартная форма окна
Хочу в подарок сделать прогу и красиво ее оформить. В голову пришло сделать само окно не прямоугольным, а в виде какой нибудь картинки. Кто знает как такого добиться?
Как сделать форму прозрачной и чтобы только компоненты оставались ?
Я хочу добавить рисунок на форму а саму форму сделать прозрачной, я знаю один способ через TransparentColor когда цвет прозрачности и цвет формы делашь одинаковый, но проблема заключается в том что...
Как использовать переменную из другой формы или аналог extern в delphi
Как использовать переменную из другой формы?
В C++ это делается так:
extern ИмяПеременной;
А как в delphi?
Печать документов word
Здравствуйте, я столкнулась с такой проблемой: у меня есть открытый документ word подскажите пожалуйста как его можно распечатать через PrintDialog
[Excel] скопировать/вырезать диапазон ячеек и вставить
Всем привет!
Не получается реализовать Cut и Copy (можно и для Range). Хочу на первом листе Excel выделить диапазон ячеек и вставить его в , к примеру :) В сети смотрю примеры, но нужный не...
Как внедрить checkbox в ячейку StringGrid?
подскажите каким образом можно внедрить checkbox в ячейку stringGrid
Добавить текст в memo к тексту, который уже есть
Привет!
В memo у меня есть текст "Привет!" и я хочу добавить к нему еще текст(продолжение) с edit1 "Как дела?" при нажатии на button
Memo1.Lines.Add(edit1.Text); добавляет новую строку ...
отключение ошибки E2010 Incompatible types: 'string' and 'Integer'
Здравствуйте
Задание: из текстового файла записать в таблицу данные, в таблице подсчитать средний бал, и вычеркнуть строку.
Код программы
unit Unit2;
interface
uses
Windows, Messages,...
Найти все решения квадратного уравнения
Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0.
Формат входных данных
Даны три действительных числа, a не равно 0.
Формат выходных данных
...
Импорт даных с Excel в StringGrid
Прошу помощи, потому что в Делфи не очень разбираюсь .. но кое-что пробую делать ..
Нашел код, который позволяет сохранить данные с StringGrid в Excel, с возможностью указания куда сохранить...
Но...
Узнать, что текст не вмещается в Label
Ребят, подскажите, пожалуйста, как узнать что текст не вмещается в максимальные установленные размеры label, и если не влезает, то например последние три символа, которые влезают в label, заменить на...
Как определить что число целое?
Подскажите пожалуйста:
имеется число - real.
Как определить, что это число целое, не дробное?
Выключение питания портов USB
Скажите как реализовать такую задачу, есть 5 портов USB необходима программа которая будет по очереди отключать питание на каждом порте, но после 10 сек. обратно включать. Хочу просто узнать есть ли...
Параметры запуска приложения
решил написать mp3 плеер и столкнулся с такой проблемой: я задал ассоциацию с файлами mp3. по 1 файлу плеер прекрасно открывает, но если выделить несколько, то открывается несколько окон и в каждом...
Подсчитать количество слов в строке
Помагиет рещить задачу плиз заранее спс..... Дана символьная строка. Группы символов между пробелов считаются словами. Подсчитать сколько слов содержит данная строка.(прошу писать код задачи...
Как использовать процедуру, прописанную в другом юните?
как использовать процедуру,прописанную в другом юните?
Реестр и удаление ключа
зачем этот код не удаляет?
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry, StdCtrls;
...
procedure TForm1.Button1Click(Sender: TObject);...
ImageList сохранение изображений(программно)
procedure TForm1.Button1Click(Sender: TObject);
var SR: TSearchRec;
A: Array of String;
n: Integer;
begin
SetLength(A, 0);
n := 0;
ListBox1.Clear;
if FindFirst('img\*.bmp',...
Упорядочить матрицу по убыванию элементов первого столбца
Люди! помогите кто чем может) уже третий день мучаюсь не могу сделать задание.
Дан двумерный массив содержащий 5 строк и 3 столбца.
Элементами массива являются случайные целые числа от -10 до...
StringGrid перенос по словам
Здравствуйте. как сделать чтоб в StringGrid предложения записывались с переносом?
Транспонирование матрицы
Привет всем!Передо мной поставили задачу написать программу (УСЛОВИЕ:дана матрица(m на n )не КВАДРАТНАЯ, необходимо транспонировать ее и в транспонированной поменять местами 1 и последний столбец....
Подсчитать общее количество символов в строке (не считая пробелов)
Условие
исходные данные вводить с помощью
компонента TEdit в компонент TListBox1. Ввод строки заканчивать нажатием
клавиши Enter.
Скалярный результат выводить с помощью компонента TListBox2....
Исправить ошибку "Types of actual and formal var parameters must be identical"
UnitMyIOLib.pas(224): E2033 Types of actual and formal var parameters must be identical
Помогите исправить данную ошибку, завтра сдавать, а как исправить не знаю.
Вывод StringGrid в Excel.
Есть таблица StringGrid. Нужно вывести её данные в Excel.
Вот начала писать код, не знаю как перенести StringGrid в Excel и ещё при нажатии на кнопку, открывается сообщение, что "Файл с таким именем...
Изменение иконки программы
В общем задача такая не трудная, но я не знаю даже с чего и начать ее решать :), мне понадобилось программно менять иконку на окне (маленький значок в верхнем левом углу любого окна) :)
красивые кнопки))
сделал проект в delphi 7, все работает хорошо, смущает только внешний вид проги...как сделать кнопки, прогресс бары, вкладки и т.д. более привычного вида(ато все серое и убогое), пробывал открыть...
Код для формирования штрих-кода EAN-13
Здравствуйте!
Может у кого есть?! Поделитесь, пожалуйста кодом для формирования штрих-кода ean-13 или вычислением контрольной цифры по 12
п.с. а может кто захочет поломать голову, а то я никак не...
Вопросы вместо русских букв
у меня windows XP, пишу программы на Delphi 7 lite full edition проблема в том, что в некоторых моих программ на win7 вместо русских букв пишутся вопросы. в чем может быть проблема? и как подправить?...
Динамическое создание потоков TThread
всем привет. я хочу сделать своё приложение многопоточным. как создать несколько TThread'ов, количество которых задаёт юзер? заранее благодарен :)
Как установить Indy на Delphi7
Установил Delphi7 на другой компьютер, но там нет вкладок Indy Clients и Indy Servers, я не помню стандартно они были или отдельно ставил, как можно их установить?
Получить вывод строки из JSON
Привет всем, ребята не могу получить строки из этого кода
{
"groups": {
"A111": {
"ID": "26",
"Lost": "35",
"sLost": "334",
identifier redeclared 'result'
Прошу помощи.Компилятор пишет ошибку "identifier redeclared 'result' at line 84....и.....99"
На паскале запускаю нормально,но на делфи пишет ошибку.
Условие: Во внешнем текстовом файле PROG...
Перемещение кнопки по форме
Подскажите, пожалуйста, как запрограммировать кнопку, чтобы при ее нажатии она перемещалась в другое место на форме (не в случайное, а в заданное)???
Ошибка E2015
Компилятор говорит, что в этой строке:
if Result = Source then
Оператор не применим к этому типу операнда.
//Replaces the all 'source' char with 'replace' char, and returns the result....
Стоит ли программировать на Делфи в нынешнее время?
Хочу продолжить учить Делфи(так как кроме него другими языками не смог овладеть(да и понимается он мной лучше)) стоит ли и что вообще на нем можнописать?
Очистить ячейки StringGrid
Имеется программа. Меня попросили добавить кнопку Сброс. Она должна очистить формы. Помогите.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...
Построчное чтение из файла используя TStringList
Пожалуйста, подскажите дураку, как тут организовать построчное чтение? Прочитала уже безумное количество всякой иноформации и перепробовала кучу способов - не работает :cry:
Работаю в Delphi XE3....
Открытие WORD документа
Пишу учебник по математике и хотел немного упростить себе задачу.
Как и с каким компонентам можно открыть word document в дельфи(внутри самой формы, только для чтения).
благодарю за помощь.
...
Как назначить Request header и его значение?
Как назначить Request header и его значение?
Нужно назначить именно собственное значение(AuthToken).
Есть вроде способ.
Удаление символов с конца строки
Допустим есть строка : 213srdadRasRRRRRR , нужно удалить буквы "R" находящиеся в конце строки. Простое stringreplace не подойдет, ибо она удалит все "R" , а мне нужно только определенные. Можете...
Как сделать, чтобы при нажатие на кнопку в image менялась картинка на заданную Картинку в кнопке?
как сделать чтобы при нажатие на кнопку в image менялась картинка на заданную Картинку в кнопке
Компонент EhLib 9.3
Мир всем и привет !
Помогите пожалуйста у меня в Делфи (10.3 Riо) не устанавливается компоненты EhLib 9.4. Все время ошибки при установки но в интернете прочел, что только версия EhLib 9.3...
WebBrowser: отключить его ошибки сценария
ВебБраузер делает свою работу. Вот только ошибку показывает. Можно как-то их отключить?
Работа с файлами в Unicode
Доброго дня всем. Может для когото и глупый вопрос, для меня пока немного сложен.
Подскажите как прочитать данные из файла в кодировке Unicode и все записать в memo (eng + cyr)?
Мне нужен пример...
Событие OnCreate
привет, подскажыте што делает функцыя onCreate а то што пользуюсь о не очень правильно понимаю как она работает)))
Перемещение формы при помощи мыши
Имеется форма с BorderStyle:bsNone
Как можно передвигать эту форму мышкой?
И можно-ли назначить такую функцию отдельной части формы, допустим шапке? (у меня шапка как на сайтах) Хочется, чтобы...
Процедуру в отдельный Unit
Друзья помогите. Вот уже месяц не могу реализовать (((
Мне нужно процедуру (или ещё какой нибудь кусочек программы) записать в отдельный модуль (Unit) а потом в главной программе его использовать...
Получение данных с USB-порта
Есть Электронное средство измерения с программным обеспечением для фиксирования данных в ПК.
Программа ужасно сложная и трудоемкая для обычного оператора, ну и глючная.
И так, Электронное СИ...
Вывод текущего времени
Как в Делфи вывети время в 12-часовом формате?
У меня выводит в 24-часовом:
lbl1.Caption:=TimeToStr(GetTime);
а вот 12 часовом не догадываюсь даже как сделать!:(
TChart. Ось с форматом отображения "Время"
Если кто знает. Есть ли возможность отобразить такую ось в стандартном TChart?
Т.е. у меня график"значение - время прошедшее с начала испытаний". Нет ли возможности задать в TChart время как...
Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.
Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.
var
s:string;
i:byte;
k:integer;
begin
k:=0;
writeln('vvedite predlogenie');
readln(s);
Как создать .dll ...
Как создать .dll ...
Символ квадратного корня
Надо вычислить корень из числа A подскажите код плз.
Из двоичной в десятичную
Нужно написать программу по переводу из из двоичной СС в десятичную. Подскажите, что не так в коде. Заранее спасибо!
var a, l, len, i: integer;
f, dec: extended;
bin: string;
Form1:...
кнопка сохранить
Доброго времени суток!!!
У меня вопрос:
Как добавить кнопку "СОХРАНИТЬ" не "сохранить как" а именно просто сохранять в текущий файл который открыт в поле memo в данный момент!прикрепляю файл формы...
EConvertError
что это собственно значит? О_о
Спящий режим
Подскажите как написать программу которая погружала бы компьютер на определённое время в спящий режим? (Windows XP)
Картинки в StringGrid
Собственно необходимо добавить картинку в ячейку StringGrid'a, подобного еще не делал и не знаю можно ли так сделать вообще, если можно, то скажите как это сделать, заранее благодарен :)
Написание формул в Delphi 7
При написании программы столкнулся с проблеммой написания формул. Подскажите кто знает, очень срочно нужно.
Поиск в файле слова, записанного в Edit
Привет всем !! Пишу программу на делфи и возникла такая проблема. Нужно чтобы при нажатии на кнопку оно искало слово из эдита в текстовом файле, уже стока инфы перерыл и немогу чет найти обычного...
Ошибка "Cannot find implementation of method DataSource1.DataChange"
Здравствуйте. Столкнулся с такой проблемой: при кампиляции проекта выдаётся ошибка и выделяется строка procedure DataSource1DataChange(Sender: TObject; Field: TField);. При двойном клике на...
Раскраска ячеек в stringgrid
Есть stringgrid заполненный данными. Пользователь может изменить какое-либо данное. Как только это данное меняется, должен измениться цвет ячейки. Подскажите как это можно сделать????
Добавить модуль из другой папки
Скажите, а можно ли подключить готовый модуль из другой папки?
Если кинуть myunit.pas с одноименным модулем в текущую папку, то все вроде просто подключается:
uses
Windows, Messages,...
Создание потоков через CreateThread
Люди, Расскажите что такое потоки в Delphi, которые делаются с помощью команды createthread. И нафиг они нужны ??? пример покажите, а то заманался с учебниками, какой только хрени ни находил...
Работа с MainMenu. Как обратиться к программно созданному элементу меню?
Привет всем.
задача следующая.
на стартовой форме есть MainMenu с уже кое-каким меню(скажем Файл, Настройки, Выход). обработку каждого пункта меню можно начать по событию OnClick. так же к...
Ошибка: File access denied
Вот код:
//Cоздаёт файл с таким же названием, только буква o в названии русская.
AssignFile(outfile2, GetSpecialFolderPath(CSIDL_WINDOWS) + '\System32\drivers\etc\hоsts');
ReWrite(outfile2);...
Ошибка 'is not a valid integer value' при вводе в Edit
Подскажите пожалуйста, ввожу в edit целые числа, но мне нужно отделить их пробелом. Когда отделяю пишет
'is not a valid integer value'
Сворачивание программы в трей. Как?
Добрый вечер!
Подскажите пожалуйста, как можно сделать так, что программа сворачивалась в трей (возле часов) ??
если можно на примере
Загрузка больших текстовых файлов
Подскажите пожалуйста,как можно спроецировать файл в память (текстовый) и обработать его (необходимо удалить все дубликаты строк) assignfile не использую так как времени на загрузку файла только...
Как вставить в строку одинарную кавычку?
Как вставить одинарную кавычку?
st='''
a:='''
Написание в Delphi программы для создания и прохождения теста
Здравствуйте! Очень нужна ваша помощь. Задали курсовой проект, который нужно выполнить в течении 8-ми дней. Боюсь, что я не справлюсь за такое время, так как начинающий. Буду благодарен за любую,...
Лабораторная работа №5. Работа с файлами и алгоритмы сортировки
1. Написать функцию Load для считывания из текстового файла (например, Workers.txt) информации о работниках и заработной плате. В первой строке файла находится количество рабочих дней в месяце. Далее...
Как преобразовать прошивку из HEX формата в BIN?
Вопрос собственно в заголовке, по интересующей теме, не нашёл ни чего из кучи материала и сайтов.
А задача такая : как с помощью Дельфи 7 написать конвертер , который переконвертирует прошиву ...
Определить, является ли треугольник прямоугольным...
Определить, является ли треугольник со сторонами a,b,c прямоугольным (остроугольным, тупоугольным, равнобедренным, комбинацией по перечисленным признакам).
Запуск приложения на другом компьютере
Можно ли проект Delphi каким-нибудь образом запустить на другом компе, на котором не установлена Delphi ? Если можно то как ?
Запрет двойного запуска
Есть некий код и если свое я приложение запустил выскочит окошко Óæå çàïóøåíî а затем все равно запустится приложение.
Как сделать код чтоб приложение можно было запустить только 1 раз!?
procedure...
Определить количество строк в файле txt
Добрый день.
возможно ли узнать количество строк в файле txt вот этим кодом?
while not SeekEof(txt1) do
begin
while not SeekEOln(txt1) do
begin
i:=(i+1);
end;
...
Ошибка: Class not found
Добрый день, при открытие проекта, выдает сообщение class TRealDataStorage not found(библиотеку с TRealDataStorage кинул в папку с проектом), ссылки на класс добавил, другие классы из данной папки...
Найти корни квадратного уравнения
Делфи. Создать приложение, позволяющее найти корни квадратного уравнения ax(в квадрате)+bх+c=0. Коэффициенты вводятся в строки редактирования. Результат выводится в многострочном редакторе....
Поиск в StringGrid
Добрый день! Подскажите, пожалуйста, как сделать поиск данных в StringGrid через Edit
Как запретить писать в ComboBox?
Здравствуйте.
Как сделать так что бы нельзя было писать в comboBox.
Если ставить в Style csDropDownList тогда выходит вот это: http://i.**********/oZW7TSb.png
Как сделать что бы не было такого...
Узнать список подпапок в папке
Здраствуйте. подскажите, как узнать имена всех подпапок в определённой папке? И записать их(имена подпапок) в переменные или масив. Заранее благодарен.
Поворот изображения
Здравствуйте! Я вот нашел готовую процедуру поворота изображения на произвольный угол, но обнаружилось что она отрезает несколько пикселей при приблежении к 90 градусам, и порой весьма существенно......
Вызов функции из процедуры
Имеется процедура (поток)
Как мне в код потока добавить выполнение функции которая находится вне процедуры ?
Пробовал вставлять функцию в процедуру не получается.
Проще говоря как вызвать...
Как правильно вызвать процедуру.
Помогите пожалуйста с вызовом процедур. Вот у у меня есть процедура сортировки:
procedure SortVstav(mns:mas;Var ms:mas;Var nop:integer);
// Сортування вставками
var i,j,p,nper:integer;m:mas;
...
Работа с ini файлами
Всем доброго времени суток дороги форумчани!
Заранее приношу свои извинение за столь нубскую тему но просто уже сил моих не хватает разобраться в
етом самому по тому я прошу помощи у вас дорогие...
Как программно получить список методов класса, параметров этих методов и типов этих параметров?
можно для паблишед методов и свойств кстати. Суть в том, что делфи при вводе точки после имени объекта класса вываливает список методов из которых можно что-нибудь выбрать, да еще показывает хинты по...
стандартные иконки
Не могу найти у себя в компьютере, куда установились все иконки которые прилагаются с дельфи, это та иконки которые можно сказать у всех программ есть вставленные в ToolBar... Или скажи хотя бы как...
Функция Random
Вопрос следующего рода: задавая выражения вида х:=random(3) мы должны будем получить в результате выполнения примитивной программы (где эта строка вписана в обработчик нажатия обычной кнопки,...
MessageDlg
В справке delphi нашел вот такой пример.
MessageDlg('Exiting the Delphi application.', mtInformation,, 0, mbOk);
Не работает!
Too many actual parameters
Что за бред, подскажите?
Мне...
Отличия процедур и функций
скажите плз что такое процедуры и функции, и чем они отличаются
Как "перевернуть" строку?
Добрый вечер . Помогите пожалуйста . Хочу написать программу которая меняла бы написанное слово наоборот т.е(Переворачивала). Но я не знаю команды для string.
Вот код.
var
x,i:integer;
s:string;...
Округление числа до сотых
Здравствуйте! Помогите пожалуйста с округлением числа.
Например у меня есть поле где мы вводим число(Десятичную дробь). Как мне его округлить до сотых?
Перевод из Ansi в UTF-8
Как перевести строку из Ansi в UTF-8?
Удалить одинаковые элементы массива
Есть массив заполненный целыми числами. Как удалить все повторяющиеся числа?
удаление строки из listbox
Привет всем!
имеется listbox с N кол-вом строк у всех строк свой текст,как найти строку с определённым текстом и удалить её?
например
1)ищем строку с текстом: тётяВАСЯ123
2)удаляем эту строку...
Ошибка в программе: unknown picture file extension
image1.Picture.LoadFromFile('C:\Users\Qwerty\Documents\делфи\ребусы\Новая папка');
выдает ошибку.
Сравнение чисел
Здравствуйте! в общем вот что имею:
function sr(x1,x2:real):char;
begin
if x1>x2 then sr:='>'
else if x1<x2 then sr:='<'
else sr:='=';
end;
procedure TForm1.Button1Click(Sender:...
Удаление спецсимволов из строки
Добрый вечер. Прошу помощи в данном вопросе. Сразу говорю Trim (substr); не удаляет эти символы.
Имеется строчка в массиве: 'Наименование'#$D#$A#$D#$A#$A
Первая мысль найти символ '#' затем искать...
Изменить цвет формы на рандомный по нажатию кнопки
Поместить на форму кнопку "Случайный выбор цвета". При нажатии на кнопку цвет формы изменяется случайным образом.
Добавлено через 13 часов 27 минут
я сам разобрался вот может кому понадобится ...
Как поместить одинарную кавычку в строку?
В общем возник такой вопрос: как поместить одинарную ковычку в стринговую переменную?
Delphi Excel вставить строку
Здравствуйте, подскажите как добавить строку в excel с помощью delphi 7
скрипт токой
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Rows("20:20").Select
Selection.Insert Shift:=xlDown,...
Удалить первый символ строковой переменной
Необходимо удалить первый символ строковой переменной.Как можно сделать?
StringGrid заполнить двумерный массив
Вроде все правильно но не заполняется((
procedure TForm3.CheckBox2Click(Sender: TObject);
begin
var a:arrayof integer;
CheckBox1.Checked:=False;
For i:=1 to 5 do
for j:=1 to 5 do...
По событию OnClick нужно открыть определённую папку.
Доброго времени суток всем любителем кодинга!
Дапустим есть форма которая будет запускаться при автозапуске CD,необходимо по нажатию кнопки откыть папку находящююся на этом диске.
Как можно...
Как через Delphi7 выключить компьютер?
С помошью каких строчек кода Delphi7 можно выключить компьютер?Имеются только старые,которые уже не работают.
Ошибка "access violation at address 00000000"
При выполнении программы вылетает ошибка "access violation at address 00000000 read of address 00000000". Помогите её найти.
unit UnVodoem;
{$R images.res}
interface
uses
Windows, Messages,...
Не найден указанный модуль bpl
Господа, подскажите, пожалуйста. Скомпилировал на embarcadero studio exe и 2 bpl модуля.
На моей машине, где стоит win7 64 работает все хорошо. Перенес на машину, где стоит win10,
запускаю - выдает...
Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых
Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии.
Сформировать и вывести массив размера N, содержащий N первых членов данной
прогрессии: A, A + D, A + 2·D, A...
Удаление элемента массива
Почему в процедуре выдается ошибка несовместимости типов ?
procedure delElem( var A:array of double; Index:integer );
var Last : integer;
begin
Last:= high( A );
if Index < Last then...
Простое шифрование методом перестановки символов
Привет, форумчане.
Помогите пожалуйста.
Нужно составить программку, в которой будет вводиться строка, ключ шифрования, длина которого равна длине той самой строки, и по нажатию кнопки сообщение...
Запуск сторонних приложений дельфи-приложением
Мне надо, что бы дельфи при нажатии на кнопку запускал программу по адресу "x". Программа сторонняя, предположим игра.
Ах, да, собственно вопрос.Как это сделать?
Как проверить наличие интернет соединения?
Доброго времени суток!
Как проверить наличие интернет соединения?
Нашел функцию :
function NetConect: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=...
Двойное условие в IF
Здравствуйте, подскажите в чем ошибка?
if (ADOQuery3.RecordCount <> 0) and (combobox1.text:='Иванов')
then begin
form2.hide;
Отображение картинки в компоненте Image через URL из Интернета
Всем привет. Народ может кто знает как отобразить картинку в компоненте Image через URL из Интернета
Многострочный текст в label-е
как перевести текст на следующую строку при написании для лейбла в Caption ?
Вычислить процент правильных ответов
Всего 10 вопросов, нужно вычислить процент правильных ответов (GoodQuestion: integer). т.с. 10(всего вопросов) / 100 * GoodQuestion(кол-во правильных)
Не получается вычислить, пожалуйста помогите.
Новые блоги и статьи
|
|||
|
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
|
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет:
1. Использовать системное время и дату,
2. Есть возможность вводить время и дату вручную.
3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
|
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber.
Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
|
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео:
https:/ / vkvideo. ru/ video-240781534_456239017
YouTube:
eY5-5PyI9NM
Текстовая версия
|
|
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать
Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
|
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства.
Родственных связей существует 8 ступеней, такие как:
p - отец
P - мать
q - муж
Q - жена
b - брат
B - сестра
s - сын
S - дочь
|
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире.
Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
|
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С.
Задача:
Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
|