Форум программистов и сисадминов Киберфорум

Темы раздела Delphi для начинающих

Криптостойкий ГПСЧ
Здравствуйте, подскажите пожалуйста хорошие реализации криптостойких ГПСЧ на Дельфях попробовал Вихрь Мерсенна он меня совсем не устроил поискал реализацию Blum-Blum-Shub на Дельфи так и не нашёл =(

Теоретический пробел в TObject.Create
Приветствую! Возник у меня некий теоретический пробел по поводу конструктора TObject.Create. C одной стороны, он ведет себя, как функция, возвращающая указатель на созданный экземпляр. С...

Проблема с циклом разбиения текстового файла по символу Chr 12 окончания страницы в QuickReport
Всем добрый день.Есть приложение в котором имеется возможность открыть текстовый файл dos-кодировки и сразу перевести его в кодировку winodws-1251 и отобразить уже перекодированный файл по страницам....

Как найти строки, сохраняя их порядок?
Здравствуйте, возник вопрос как сохранить порядок всех слов найденных в строке если например ищу через pos по файлу, а в файле само собой слова не по порядку идут ? Просто я использую массив для...

Работа на form. RAD Studio. Delphi
помогите пожалуйста. Известны данные о росте 15-ти юношей класса, упорядоченные по убыванию. Нет ни одной пары учеников, имеющих одинаковый рост. В начале учебного года в класс поступил новый ученик...

Автозагрузка
Доброго времени суток. Следующая проблема: Есть программа, которая записана в автозагрузку. После перезагрузки ПК прога висит в процессах, но функцию свою не выполняет. Где-то вычитал про...

TChart рисование дуги
Привет всем, сражаюсь с рисованием дуги в ТиЧарт. Так как в геометрии не силен, а что такое тригонометрия вообще не знаю, имею вот такую проблему. Есть три дуги, нарисованы подряд, одна за...

Как переместить фотографию на форму Form, чтобы можно было обрабатывать?
Здравствуйте , как переместить фотографию на форму Form, что-бы мог обрабатывать? Спасибо.

Обои рабочего стола как фон программы
Я хочу "транслировать" изображение с рабочего стола в фон моей программы. А именно, вот так: unit Unit1; interface uses Messages,SysUtils,Graphics,Forms,

Как работать с JSON?
Подскажите, пожалуйста, как можно добавлять и удалять в имеющийся JSON объекты? К примеру такой JSON {"links":} мне нужно добавить ещё {"type":"href3","description":"desc","link":"http:"} и...

Отобразить загрузку в progress
Здравствуйте! кто нить делал загрузку в версии 11 сашка? function GetFileSize(FileName: string): Integer; var FS: TFilestream; begin try FS := TFilestream.Create(Filename, fmShareDenyRead);...

Прочитать три байта
Так работает: type FArrLw=Array of LongWord; PArrLw=^FArrLw; var Bm:TBitMap; ArrRCM:Array of LongWord; procedure DoReplace(Bm:TBitmap);

Присвоить форму переменной
Всем привет. Как обычно перерыл весь инет и не нашел ответа. В программе есть несколько форм с image, и функция, как этой функции передать в какой форме должна выводиться картинка: Пример. Form1...

Дана строка текста, в котором нет начальных и конечных пробелов. Необходимо изменить ее так, чтобы длина строки стала ра
Помогите решить задачу Дана строка текста, в котором нет начальных и конечных пробелов. Необходимо изменить ее так, чтобы длина строки стала равна заданной длине (предполагается, что требуемая...

Cannot change Visible и Access violation в одном флаконе
Добрый вечер! Возникла интересная проблема: в проекте две (на самом деле больше) формы. Первая главная, вторая нужна. Первая форма должна прогружаться и после этого прятаться, а закрытие второй формы...

Не работает управление в игре Пинг-Понг
Можете Исправить код или еще что либо там, я немогу понять в чем проблема или ошибка при запуске dpr, при запуске exe не работает управление

Ошибка: RichEdit line insertion error
Всем добрый день.В результате работы кода возникает ошибка "RichEdit line insertion error".Задача программы открывать файлы в формате cpp866 сразу перекодировать в windows 1251 и выводить информацию...

Сформировать массив, циклически сдвинув элементы массива на две позиции влево
решение задачи обработки массива вещественных чисел, содержащий 25 элементов. Сформировать массив, циклически сдвинув элементы массива на две позиции влево. Нужно написать код программы ...

Зная 3 стороны треугольника найти значения углов. ( в градусах )
Неправильно считает углы, угол Alpha и Gamma не понимаю почему одинаковые function TTriangle.FindAngles:Angles; var Alpha, Beta, Gamma, c:Double; begin Alpha:=(fA*fA + c*c -...

Погода
Добрый день, подскажите пожалуйста, как сделать так, чтобы в adress заполнялся город из поля Введите город, а токен из поля Введите токен. ...

delphi 10.4 Sydney. JCL Ошибка при установке компонентов
Добрый вечер! Пытаюсь установить библиотеку, но пока не получилось, может кто помочь? 1) Скачал библиотеку с офф сайта. ( https://wiki.delphi-jedi.org/wiki/JEDI_Visual_Component_Library ) 2) ...

Прием и передача данных через USB
здравствуйте, по советуйте какой компонент луче использовать, для приема и передачи данных по USB? и где можно скачать? компонент: jvHiddevicecontroller

Проверить переменную на ее тип
Доброе время, всем участником группы Подскажите как проверить переменную на ее тип Допустим условная n она может водном случаи передаваться как string или TStringList

Ошибки при передаче в dll массива и его возвращение
Приветствую форумчан. Возник вопрос: как передать массив из действительных чисел в dll, а потом вернуть полученный результат - такой же массив. Попытался найти что-нибудь в интернете по этому поводу,...

Проблема двух одинаковых модальных форм
Запускаю одну модальную форму так: f_Form1 := Tf_Form1.Create(Self); with f_Form1 do begin ActionMode = A; if ShowModal = mrOk then begin ... end; end;

Написать программу, которая преобразует введенное с клавиатуры двухразрядное шестнадцатеричное число в десятичное
Написать программу, которая преобразует введенное с клавиатуры двухразрядное шестнадцатеричное число в десятичное.

Рандомизация строки по двум символам
Всем Здрасте, нужно рандомизировать строку сразу по двум символам без повторений: var stroka,resultat:string; i:integer; begin stroka:='a1b2c3d4e5f6'; Randomize; for i:=1 to Length(stroka)...

Отправка Email
Доброго времени суток. Совсем недавно начал изучать Delphi и программирование в целом. Интереса ради решил попробовать создать мелкую прогу на отправку текста. unit Unit1; interface uses ...

Интересности с Delphicon 2023
Сегодня смотрел Delphicon 2023 и там показали интересную штуку. Что будет если написать такой код? var SL: TStringList; begin SL := TStringList.Create; SL.Add('1'); SL.Free; SL.Add('2');...

Python4Delphi в многопотоке не могу
Всем здрасте, у меня никак не выходит заставить корректно работать компонент Python4Delphi (https://github.com/pyscripter/python4delphi) в многопоточном приложении просто сыпятся ошибки с самого...

Проблемы при чтении из файла в запись
День добрый. Стоит задача в Delphi прочесть часть структурированного файла в запись. В последующем изменить и записать обратно. Имеется описание формата для С. Описал формат заголовка записью,...

Как работать с TControlList?
Здравствуйте! Подскажите как TControlList добавлять новый item? Что, то везде пишут как из ListView передать список в TControlList.

Ошибка access violation at address
Здравствуйте! Писал программу, для получения файлов с определенного ресурса, на моем ПК все работало отлично, однако, когда перенес программу на другой ПК(просто не было возможности дальше работать...

Сравнение двух файлов идёт очень медленно
Здрасте, сделал сравнение двух файлов на одинаковые строки с дальнейшей записью, почему то сравнивает как то медленно, в качестве поисковика использовал ATStreamSearch из компонентов ATViewer, но...

RAD 11+ TThread уничтожение объекта, очистка ссылки
Среда: RAD 11+ Задача: отобразить процесс выполнения процедуры/функции пользователю. type TMyThread = class(TThread) FFrmHnd:THandle; private procedure Execute; override; ...

Синхронизация потоков Threads
Есть глобальная переменная и 2 потока, которые присваивают ей значения по порядку возрастания. Этой переменной присваивается значение в процедуре GenerateNumber. Каждый из потоков выполняет...

Нужно чтобы выводилось 10 из 40 рандомно
Нужно чтобы выводилось 10 вопрососвс из 40 рандомно uses Windows,Messages; var wnd,edit,listbox,answer,rightcount: dword; msg: tagMSG; Rect: ...

Что то вроде колеса фортуны только
Здравствуйте, как организовать что то вроде колеса фортуны только без визуальной составляющий, например есть 3 стрелки положения одна из них главная передвигаем рандомно только её, а остальные...

У кого есть книга «Изучаем DELPHI», автор Александр Жуков? Очень прошу сканы нескольких страниц!
Уважаемые коллеги, здравствуйте! У кого есть школьная книжка «Изучаем DELPHI», автор Александр Жуков? Книга времён начала 2000-х годов, в интернете нет еë скана. Обложка книги внизу. Там была...

Разработать программу-игру "Слова из слова"
Суть игры в том что на каждом уровне свое слово например ДИАГРАММА и из букв находящихся в этом слове нужно составить другие. Например: дано слово ДИАГРАММА из него можно составить такие слова...

Delphi Comport
Добрый вечер Использую библиотеку CPortLib Два компонента ComPort и ComDataPacket ComPort виртуальный устройство (Arduino UNO) подключено по USB. Событие ComDataPacket1Packet Срабатывает...

Как передать переменную типа word в функцию через параметр типа string?
Мне нужно передать переменную типа word (адрес LPT-порта) в функцию-поток, которая получает данные через указатель Parameter на запись TMsgRecord. Я попробовал сделать следующее, но у меня не...

Дан символьный файл f. Записать в файл g с сохранением порядка следования файла f:
Дан символьный файл f. Записать в файл g с сохранением порядка следования файла f: а) которым в этом файле предшествует буква а. б) вслед за которым в этом файле идет буква а.

Ошибка при копировании файла CopyFile в Delphi 7
При копировании CopyFileW файла .exe выдаёт код ошибки 2: if CopyFileW('D:\DifDiagnoseStr\ExtHisMed.exe\', 'D:\ExtHisMed\ExtHisMed1.exe', True) then ShowMessage('Файл скопирован') else...

Проблема с циклом разбиения текстового файла по страницам
Всем добрый день.Есть приложение в котором имеется возможность открыть текстовый файл dos-кодировки и сразу перевести его в кодировку winodws-1251 и отобразить уже перекодированный файл по...

bmp в строку и обратно через Encode/DecodeStream
Добрый день! специалисты и программисты. У меня не получается реализовать методы перевода bmp в строку и обратно - из строки загрузить в TImage. Это мне надо для создания динамически TImage с уже...

Вывод excel на форму и ее скроллинг
Здравствуйте, тема может показаться пройденной, но прочитав несколько форумов решение вопроса для себя так и не нашел(возможно по причине низкого уровня знаний языка) в связи с чем прошу Вашей...

Вывод теста файла в memo по условию
Выводим минимальный возраст и максимальный, в memo должны выводится только те, чей возраст подходит в указанный диапазон. Я смог только сделать так, чтобы работало с конкретным значением из...

Форма авторизации
Доброго времени суток, есть форма в ней через OnShow запускается процедура procedure TForm1.FormShow(Sender: TObject); begin if ( not Assigned(PasswordDlg)) then // проверка условия наличия...

Антивирус принимает мою программу на Delphi за троян. Что делать?
Антивирус ESET NOD принимает мою программу на Delphi за троян. Скажу сразу: у меня простой графический редактор с возможностью рисования линий, прямоугольников, окружностей. Даже не сетевая...

Разработать модель измерительной системы, состоящей из генератора сигналов и осциллографа
Прошу помочь решением. Разработать модель измерительной системы, состоящей из генератора сигналов и осциллографа. Назначением системы является отображение на экране осциллографа сложного сигнала...

Как добавить свои свойства для существующего компонента?
У каждого компонента есть свойства Tag. Но мне этого мало, я хочу больше. Пробовал так: type TMyEdit=class(TEdit) private aaa1:Byte; bbb2:String; end;

Разделить байт на две части
здравствуйте имеется считанный байт к проимеру 85327977 его надо разделить на две части z3:=a and $FFFF; z4:=a shr 16; z3:=z3+z4; а можно как то по другому сделать?

Программа взаимодействия
Добрый день, есть описание, помогите сделать программу. https://pakvcmk.ru/docs/monitoring.html

Delphi путает шаблоны WORD
Доброго всем вечера ! Друзья помогите. Имеется программа для заполнения шаблона WORD. При нажатии на кнопку открывается шаблон и текст из разных Edit полей заполняет этот шаблон ( всё организовано...

Speech API
Доброе время суток уважаемые знатоки программировании Хочу для себя сделать программку по типу балаболка В инете есть код как считать с поля текст Но мне бы хотелось сменить стандартный голос ...

Шашки на Delphi 10.3
Вот исходный код в нём реализовано всё кроме дамок и битья шашек пока есть возможность(не понял как это сделать), остальные функции реализованы,кто хочет доработать код милости прошу, не судите...

Распознавание речи в Delphi11
Доброго времени суток. Возникла идея создания приложения, что будет принимать голосовые команды и на их основе выполнять различные функции (прим. - "Shutdown": завершение работы ПК). Час-второй...

написать в DELPHI
Написать ее в Я нуб Сорян

Write запись и запись в следующую строку не могу
Здрасте, может быть задача для 2 класса, но я не могу никак добиться от Write сделать запись и затем следующую запись ровно в следующую строку например: Write(Format(#13'Result:%d'+chr(32), ));...

Нужна имитация нажатия левой кнопки мыши, но движение мыши мешает
Доброго времени суток! Чтобы вам было проще понять суть проблемы - опишу что я делаю. Есть моя программа. Её смысл - управлять другой внешней программой, которая работает независимо от моей. Суть...

Прикрутить интерпретатор какого-нибудь скрипта к программе
Привет всем. Нужно предоставить пользователю возможность вводить свои формулы для расчёта, т.е. требуется интерпретатор какого угодно языка. Основные требования: бесплатность компонента...

Как сделать "Вырезать файл" в сыром виде?
Для удобства использования моей программы я хочу программно запускать Ctrl + X для конкретного файла. Нет, симуляция клавиш не является решением, ибо целевой файл может находится где угодно, а у...

Удаление файлов без возможности восстановления
Приветствую. Задумался тут над сабжем. Порылся в инете, нашёл небольшой procedure WipeFile(FileName: string); var buffer: array of Byte; max, n: LongInt; i: Integer; fs: TFileStream; ...

Функция для парсинга
Здравствуйте! Пишу программу для парсинга на делфи, используя несложную функцию, но она получает только один результат.По идее мне нужно добавить цикл и удалять то, что было скопировано, чтобы цикл...

Конвертация кода из Python на Delphi
Мир всем ! Наверное кто то смотрит футбол щас финал Аргентины против Франции как сможете помогите конвертировать этот кусок кода на Делфи b=0 text="" for i in text: if i=='+': ...

Массив: Найти сумму элементов четной строки и произведение нечетных столбцов матрицы
дана правильная матрица B целых чисел, заданная случайными числами. Найти сумму элементов четной строки и произведение нечетных столбцов

Динамическое наполнение формы. Какой компонент использовать?
Здравствуйте. Надо создать программу с внешним видом как у игрового лаунчера, тип Steam, EpicGames и тп. Форма. На форме несколько заголовков (меню), при нажатии на которые на форме...

Найти количество ненулевых элементов в строках матрицы и распечатать их с указанием номера строки
Дана матрица Aij, . Найти количество ненулевых элементов в строках и распечатать их с указанием номера строки. В полученной матрице отсортировать нечетные столбцы по возрастанию. Вывод в файл....

Мини окно второго экрана монитора
Здравствуйте! Есть две формы. Одна располагается на основном мониторе. Вторая на втором. Мне нужно с основной формы управлять второй перемещая компоненты на основной форме. Короче нужно что то типа...

Настройка или установка 64-битной платформы
Всем доброго времени суток. Возникла проблема в разработке программы использующей xlsx файлы. Для подключения использую ConnectionString в ADOTable в выборе подключаемых данных отсутствует Microsoft...

Условие с множеством
Сделал так: if Int in then и тогда ошибка: u_IMG_snake.pas(509): E1012 Constant expression violates subrange bounds Ок, здесь я нашёл инфу. Типо вышел за пределы 256. Сделал так: if...

Создать проект
Здравствуйте, не как не могу создать проект для следующий программ пожалуйста помогите на Delphi 7. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Составить программу по делфи по теме Программирование разветвляющихся алгоритмов
1. Составить программу вычисления выражения согласно указанному варианту по делфи. 2. При выполнении задания предусмотреть: – выбор вида функции f(x): x^2, e^x, sh(x); – вывод информации о...

Шифрование текста с заменой на рандомные числа
Здравствуйте, решил попробовать написать шифрование текста с заменой на рандомные числа, при шифровании всё хорошо, при дешифровке тоже, однако при перезапуске программы и замены файла с числами...

Найти сумму и количество элементов каждого столбца, которые являются простыми числами
Вот задание - Дан двумерный массив. Найти сумму и количество элементов элементы каждого столбца, которые являются простыми числами. Помогите для зачета сделать

Вычислить моду ряда чисел
Доброго времени суток! Написала программу для вычисления экспериментальных данных. Осталось вычислить моду, не могу с этим разобраться. Мода – наиболее часто встречающееся в числовом ряду значение. У...

checkBox отменить повтор процедуры
Добрый день. При нажатии на checkBox(chb) выходит 2раза сообщение showmessage('Данная секция активна !!'); Как сделать что процедура проходила без возврата на строку 02 ? procedure...

Проверка подключения к интернету
Имеется данный код что работает. То есть даже если включен VPN то проверка идет как нужно. Вопрос в следующем: Что означают параметры $00000001 и 0. var dwConnectionTypes: DWORD; begin...

Как сделать текст жирным в Мемо и убрать жирный текст?
Не могу разобраться, я знаю, что можно сделать текст жирным, но как убрать жирный текст? Memo1. Font. Style:= Memo1. Font. Style + ;

Обрезка строки действует и на другие переменные
Помогите разобраться с кодом. Есть вот такой код: function GetMinimizeName(const AEdit: TEdit; const APath: String): String; var Bitmap: TBitmap; Rect: TRect; begin Result :=...

Дано 2 множества, содержащих названия компаний. Найти только те компании, которые содержатся в обоих множествах
Дано 2 множества, содержащих названия компаний. Найти только те компании, которые содержатся в обоих множествах.

Найти две самые дорогие покупки
Сведения о купленном товаре состоят из его названия, количества и цены за единицу товара. Определить в модуле Tovar класс TTovar с данными в секции Private. В модуле Unit1 дан список List:TList...

delphi 10.4 EdgeBrowser
Добрый день! Установил Дельфю 10.4 из-за EdgeBrowser, который по идее должен поддерживаться всеми сайтами... Создал новый проект, закинул на форму буттон и компонент EdgeBrowser1 После чего...

Как сделать в Delphi
Здравствуйте, ребят помогите пожалуйста, не могу не как сделать, у меня есть на форми несколько edit,ов И мне собственно нужно сделать так чтобы если в эдит написали "N/A" он не выводил в мемо...

При создании dll возникает ошибка access violation at address 50062444 in module rtl280
Здравствуйте. Помогите решить проблему. При создании dll возникает ошибка access violation at address 50062444 in module rtl280. (Ссылка на файлопомойку удалена, фотография со стороннего ресурса в...

Для знатоков Delphi
Добрый вечер ! Есть программа со следующим кодом: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Создание файла xlsx вместо xls
У меня excel файл создаётся так: GExcel := CreateOleObject('Excel.Application'); Что необходимо дописать, чтобы создавался xlsx ? Добавлено через 42 минуты Файл xls вмещает 65 536 строк, а у...

Работа с временем
Мир всем ! Как изменит номер в таблице DBGrid по истечение года ? например: у меня хранится номер 25 в столбце а через год будет 26 заранее благодарю !)

Как исправить ошибки компиляции?
ошибка

Заблокированы пункты меню Run в Delphi 7
Помогите начинающей программистке в Delphi 7 eXP.NET Edition Пункт меню Run, где по всем учебникам и справочникам находятся пункты меню Step Over, Trace Info, Run to Cursor и другие для целей...

Обработка данных
Имеются входные данные следующего типа: 4722, 4723, 5468, 5703, 5704, 5710, 6288, 6709, 6715, 6716(Повторяется 10 раз), 6717(Повторяется 4 раза), 6718, 6891, 6954, 6955, 7475, 7895, 8966,...

Delphi грузит из кэша на Windows 10
Добрый день. Столкнулся с проблемой. Есть приложение, которое при запуске скачивает из интернета картинку с дизайном своей внешней оболочки и использует ее. На Windows 7 я менял картинку в...

Текстовый редактор
И вот, я снова тут, и не думала что у Delphi тут такой большой раздел, это наверное хорошо. Хотя я больше по VB6 и VBA и JS, но в какой-то момент поняла, что не воспринимаю ничего хоть как либо...

Опять про эмуляцию нажатий клавиш на клавиатуре
Да,да, я знаю, что тема миллион раз обсосана! Проблема в чем: пишу что-то вроде макросной клавиатуры, и я знаю про keybd_event и postmessage, они в данном случае не подходят, т.к. работают только в...

Вывод в мемо стоп слов из текста
День добрый. У меня есть Memo1 с текстом, Memo2 со списком стоп слов и Memo3 для вывода результата Мне необходимо считать текст из Memo1, проверить текст на наличие стоп-слов из memo2, если такие...

Как записать структуру в файл
Нужно записать несколько файлов в один файл по такой структуре: TFile = record FileName: String; <- Имя файла FileSize: Int64; <- Размер файла FileData: ???; <- То что находиться...

Массив в Json
Всем привет. Подскажите как в массиве jsone добраться до "quote":"USDT"? Вообще никак не получается, единственное что я смог это запихать его полностью в memo. Мне нужно в memo запихать только...

Округление чисел
Работаю с Delphi 10.2. С функции Round могу округлить но мне надо округление до заданной точности знаков после запятой. Delphi 10.2. не принимает SimpleRoundTo. Подскажите пожалуйста как округлить...

Определение типа данных по указателю на них
Добрый день! Помогите пожалуйста, уперся в стену, не обойти: 1. Выделяю память под структуру данных типа record, заполняю выделенный блок данными. 2. Указатель на данный блок памяти него вешаю в...

Перевод String to PAnsiChar (Запуск других приложений)
Привет! При запуске других приложений с помощью WinExec ('путь', SW_SHOW) или ShellExecute (Form1.Handle, nil, 'путь', nil, nil, SW_RESTORE) c путем прописанным сразу в команде - все проходит...

Как пользоваться функцией ShellExecute (Delphi 5-7)?
воопщем задание звучит так: составить програму и использовать ShellExecute для вывода нескольких рабочих окон, допустим, с одгой формы чтою через ShellExecute открывались 2 другие%). уже 2 дня...

Как сделать тест на delphi
мне нужна инструкция как сделать тест из 10 вопросов с количеством правельных ответов и оценкой

Имитация нажатий клавиш клавиатуры
Как соорудить программу, чтобы по нажатию ранее назначеной клавише происходила имитация нажатия некоторой комбинации клавиш. Пример: я нажимаю правый Ctrl программа сама имитирует 5 поочерёдных...

Нажать ctrl+s в чужом окне
почему не работаетprocedure TForm1.Button1Click(Sender: TObject); var h : thandle; begin h := findwindow('Документ - WordPad', nil); SetForegroundWindow(h); ...

Запись в текстовый файл
помогите плс! в файлах я вообще ни бум-бум.. = (( как содержимое Edit1.Text Edit2.Text записать в текстовый файл? содержимое Edit1.Text является string а Edit2.Text - integer... надеюсь только на...

Открытие формы
Как в Delphi 7 из одной формы открыть другую (при нажатии кнопки) Я пробовал в обработчике Onclick создать объект класса процедурой Create, не вышло попробовал тогда в той форме, которая вызывается...

Определить, по какую сторону от прямой расположена точка
Существует точка i и прямая, координаты которой задаются пользователем. Определить, по какой стороне относительно прямой расположена эта точка (справа или слева). Заранее благодарен у меня єсть...

Округлить значение до десятых или до сотых
Подскажите пожалуйста как в данной процедуре округлить значение до десятых или до сотых. 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/ Есть ли...

Вставляем картинку в Delphi
Добрый день, Можно ли вставить картинку в свою программу, т.е фон, а на нем уже кнопки делать, надписи самой программы? Заранее благодарю. :)

Калькулятор, возведение числа в степень
Пишу простенький калькулятор! с умножением, вычитание, делением, сложением разобрался! но вот проблема... нужно еще реализовать возведение числа в степень! procedure...

Ввод в Edit только чисел
как сделать, чтобы в Edit можно было вводить только числа?

Ошибка "access violation at address in module. Read of address"
При запуске программы появляется ошибка "access violation at address in module. Read of address" Подскажите как её устранить. Добавлено через 6 минут Всё) нашёл ошибку) проблема в анимации...

List index out of bounds (0)
Всем доброго времени суток! пожалуйста помогите разобраться с проблемой: при задаче в TTimer свойству Enabled значение True, программа при запуске ругается:"List index out of bounds (0)".... Ttimer...

Как получить список файлов и папок в директории
Как получить список файлов и папок в директории (именно в директории, без файлов подпапок)?

Cоздать txt, записать в него текст и сохранить файл
Подскажите, как создать txt-шник, записать в него строку и сохранить всё это дело. Добавлено через 16 минут и чтобы это всё делало при нажатии на Button

Поиск подстроки в строке
Добрый день...скажите, пожалуйста, есть ли такая функция, которая определяет номер позиции символа в строке...мне нужно в строке взять весь текст после знака '=' ...заранее спасибо...

Перевод чисел из одной системы счисления в другую
нужна прога с исходником на делфи для перевода чисел из одной системы счисления в другую

Как вставить картинку?
Подскажите пожалуйста как вставить картинку в форму? Картинка из файла

Как узнать директорию исполняемого файла?
Доброго времени суток! Появилась проблема.... Функция GetCurrentDirectory Возвращает текущий каталог. Обычно это каталог в котором была запущена программа. Но это при том условии если программа...

Нужен диалог выбора папки, а не файла
У меня возникла такая задача. Нужен диалог, в принципе похожий на OpenDialog, только чтобы он мне выдавал адрес открытой там папки, а не выбранного файла. В принципе с этой задачей справляется...

Модуль числа
Скажите пожайлуста какой оператор надо использовать что бы Delphi 7 брал модуль числа?

Способы ввода и вывода массива
Уважаемые Форумчане, прошу вашей помощи покажите способы ввода и ввода массива

Ошибка "Unable to rename delphi32.$$$ to delphi32.dro"
Помогите пожалуйста! Запускаю делфи, открываю нужный проект и жму создать новую форму... Выскакивает ошибка "unable to rename delphi32.$$$ to delphi32.dro" :( Что это значит и как от нее...

Unsatisfied forward or external declaration
Unsatisfied forward or external declaration - что это значит? процедуры у меня обьявлены в Type, описание их тоже есть, как поправить?

Вставка текста из файла
Немогу найти ошибку, не хочет брать отдельно каждую строку из файла и записывать в PansiChar, после каждого нажатия кнопки Код всей программы unit Unit1; interface uses Windows,...

Переход с одной формы на другую
подскажите как зделаь переход с одной формы на другую методом нажатия на клавишу button

преобразование заглавных букв в строчные
скажите пожалуйста как преобразовать заглавные буквы в строчные! Добавлено через 3 минуты для delphi!

Ошибка - Missing operator or semicolon
Подскажите, почему происходит такая ошибка? Unit1.pas(67): E2066 Missing operator or semicolon. Вот код: NewName:='123.txt'; RenameFile(FName, NewName);// здесь ошибка, компилятор не пропускает

Чтение и запись СОМ порта
Привет ребят, нужна небольшая помощь от вас, начал работать с СОМ портом, и немного не догоняю тут в одном месте, нашел пример работы с СОМ портом а пример не описан как следует, возможно вы мне...

Проверка на существование файла
В общем делаю проверку на существования файла через if но если файла нет то появляется ошибка... можно ли это как то исправить? if FileExists('C:\test.txt') then begin end else begin...

Как получить текущую дату?
Всем привет! Хочу сделать так что бы в Edit-е у меня автоматически записывалась дата, от компа. Подскажите, какую функцию или процедуру мне использовать. Спасибо заранее!

ProgressBar
Скажите, что нужно делать, чтобы она заработала?

Сделать графики в TChart
Дело вот в чем - нужно по заданию сделать графики в TChar'e Но я с ним не работал никогда, и не в курсе, как в него забываются данные, а хелпник добрые люди на моем диске порезали безжалостно( Буду...

Как сделать форму по центру экрана ?
Как сделать форму по центру экрана. Прога написана для разрешения 1024, а экран размером 1366

сделать кнопку выход в делфи
помогите пожалуйста сделать кнопку выход делфи

каким кодом обозначается ENTER в ASCII?
подскажите плиз каким когод обознрачается ENTER в ASCII? Добавлено через 2 минуты ненадо,уже нашел)

более 3х условий в If then else
Прошу не пинать если уже обсуждалось, но я не нашел, если всеже обсуждалось, то прошу дать ссылку на тему. if ( ( (условие1) and (условие2) ) and/or (условие3) ) then есть канешно вариант...

Как свернуть прогу в трей?
Народ как свернуть прогу в трей ну соответственно вытаскивать оттуда и проводить всякие опирации над ней из трея??

Ошибка I\O error 103
procedure Ttest1.Button2Click(Sender: TObject); var f: textfile; begin AssignFile(f1,'users\'+log+'\'+log+'v1.txt'); // привязка названия к переменной {$I-} Rewrite(F1); // {$I+}...

MessageBox
Как сделать messagebox,чтобы было 3 кнопки Да Нет Отмена еще надо сделать что то с case!!!!!

Сохранить excel файл
надо как-то програмно сохранить excel файл XL := CreateOleObject('Excel.Application'); XL.DisplayAlerts := true; XL.WorkBooks.Add; XL.WorkBooks.WorkSheets.Name := 'Прайс'; ...

Очистка Edit-ов
Здравствуйте! Я пытаюсь сделать очистку Edit-oв. Но при нажатии на кнопку вижу такое сообщение " is not a valid floating point value Пытаюсь очищать вот так "edit1.clear;" помогите решить!

Глобальные переменные
Здравствуйте. Объясните пожалуйста как объявлять глобальные переменные. Спасибо.

Выход из программы при нажатии кнопки или клавиши
Подскажите пожалуйста, как сделать так чтобы при нажатии кнопки программа закрывалась, чтобы каждый раз не нажимать Programm reset

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

Изменить цвет кнопки
Как изменить цвет кнопки при наведении указателя, а потом вернуть исходный цвет? Подскажите, пожалуйста, очень нужно.

Как правильно закрыть программу
Из головного модуля запускаю последовательно три модальные формы: ... FormServer.ShowModal; FormLogin.ShowModal; FormUsers.ShowModal; Application.Run; end. Если в любой из форм...

Имитация клика мышки
Здравствуйте! Подскажите, как возможно реализовать программу, которая будет имитировать клик мышки в заданной точке экрана? То есть если в область клика попадает объект стороннего приложения...

Где найти мануал по парсингу XML? Как работать с XML в Delphi (в частности, TXMLDocument)?
Всех приветствую! Раньше несколько лет работал в Матлабе, но теперь приспичило писать программу на Дельфи. Надо открывать xml-файлы, считывать из них информацию (имена элементов, их количество,...

Редактирование ячеек StringGrid
Здравствуйте=))) У меня вопрос: "Можно ли добавлять значения в StringGrid непосредственно щёлкая мышью на нужное пересечения столбца и рядка"??????

Проверка переменной на число
Народ! Подскажите нормальный простой действенный способ проверить ввел ли пользователь число или нет. Обычное целое число, если нет то чтоб был ноль. Ну или чтоб просто нельзя было ввести в поле...

messageBox
Здравствуйте! У меня проблемка - не пойму как сделать для messageBox(Handle,'Сохранить изменения в БД перед выходом?','Выход', mb_YesNoCancel or mb_iconquestion) три обработчика событий: по...

Команда задержки Sleep
Здравствуйте. Вот код procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:='Один'; sleep(3000); label1.Caption:='Два'; sleep(3000); label1.Caption:='Три'; ...

Замена символов в строке
Требуется заменить некоторые символы в строке на другие. Никакой математической закономерности в порядке замены нет! Например, просто, символ «A» нужно заменить на «B», «B» заменить на «H», «H» на...

Работа с ComboBox
Имеются 5 компонентов Combobox. Каждой строке в них нужно присвоить определенное числовое значение. Например, Combobox «Транспорт»: самолет:=2000; поезд:=1500; автобус:=1500, Combobox...

Как вставить картинку на форму
Подскажите как вставить картинку на форму? Кидаю обьект image, а дальше что?

Как в программе изменить цвета Label, Edit, Button?
Но чтобы код не нужно было вводить вручную, может где-то в меню можно?

Как изменить имя проекта?
Как изменить имя проекта в делфи? Никак найти не могу... А то в процессах Project1 светится.

Очистка Image.Picture
Как очистить компонент Image от картинки что біла уже туда занесена?

Знаки после запятой.
Помогите плиз,я весь инет обшарил на форуме все ветки прошустрил,ничего не помогает,меня этот дельфи одолел уже((( уже устал(( помогите пожалйста, мне нужно после запятой пару чисел только... эти...

Открытие файла и работа с ним (opendialog)
Здравствуйте. Подскажите пожалуйста каким образом работать с файлом, открытым opendialog ? Если заносить его сначала в мемо, то все понятно memo1.Lines.LoadFromFile(opendialog1.FileName) а...

Ошибка в программе: Assignment to FOR-Loop variable 'i'
Задача: Дан массив случайных чисел. Нужно найти макс. и мин. элемент и поменять их местами. Так вот, в этом фрагменте программы: imin:=0; imax:=0; for i:= 0 to (n-1) do begin ...

Выполнить какую-то команду в командной строке (cmd)
Ребят, подскажите, как выполнить какую-нибудь команду, чтобы она воспринималась как будто из коммандной строки (cmd.exe). Например если бы я ввел в командную строку 'ping ...' то началось бы...

Добавление строк в StringGrid
Доброго времени суток! Подскажите, пожалуйста, как добавить новую чистую строку в StringGrid при нажатии на кнопку в самое начало таблицы или как сдвинуть все имеющиеся данные на строчку вниз.

Delphi проверить наличие компонента
Ребят, помогите разобраться. Условие срабатывает всегда, даже когда компонент есть. if ((self.FindComponent('dynamicedit' + IntToStr(i)) as TEdit) = nil) then //если поля нет, то создаем его ...

Работа с COM-портом...
Добрый вечер, люди добрые! Помогите пожалуйста разобраться. Нужно мне подключить датчик пожарной сигналки к компорту(только теоритически, есстественно), и соответственно написать прогу, которая бы...

Как создать свое событие для своего класса?
Добрый день всем! Подскажите как создать событие для своего класса? Экземпляр класса должен реагировать на определенные события, обработчик которых вызывается при определенных условиях. Познания не...

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

Открыть файл Excel в Delphi
Подскажите пожалуйста как открыть файл Exel в Delphi.

Как описать Float тип а дельфи
Вопрос в теме. Подскажите как сделать? Добавлено через 3 минуты и в какой библиотеке функция RealToStr и обратно

Как добавить в ComboBox пункты
Как добавить в ComboBox пункты

Сделать скриншот экрана
Народ помогите. Как можно сделать в Delphi 7 скришнот экрана, размером 100-200 кб? Просто нужно сделать много скришншотов, а качество скриншота неважно. Чем меньше размером тем лучше.

Кнопка запуска приложения
У меня есть приложение.exe. как мне сделать функцию кнопки чтоб по ёё нажатию запускалось приложение???

base64 Decode\Encode
Привет.Подскажите пожалуйста, как декодировать и снова кодировать base64 в делфи? Кинул на форму компоненты Indy, но в функциях так и не разобрался.Прошу помощи

Break и Exit
Break; - это функция выхода из цикла, при чем если за этим цикл по строкам кода стоит еще какой-то другой цикл то следующий цикл уже будет работать? Exit; - выход из всего кода что стоит после этого...

Проверка edit'ов на пустоту
Всем привет Есть форма регистрации сотрудника и 9шт Эдитов. Как проверить все эдиты на пустоту? писал раньше if length(edit1.text)=0 then label1.caption:='Поле не заполнено' esle...

операторы div и mod
Привет всем, ломаю голову с утра уже, прочитал задачу, и решил ее решить, ну не тут то было все, вот код : program razlozenie_chisel; {$APPTYPE CONSOLE} uses SysUtils; var...

Связать две формы
как осуществить работу в делфи с 2 формами одновременно?

Имитировать на экране работу электронных часов
Здравствуйте, помогите реализовать программу. Имитировать на экране работу электронных часов.

Загрузка изображения в Image
C помощью OpenDialog пытаюсь загрузить изображение в Image но выдаёт ошибку Unknow picture file extention if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.FileName); ...

Конструкция On E:Exception Do
Добрый день! Подскажите пожалуйста, в чем смысл конструкции On E:Exception Do? Что такое E? Правильно ли я понимаю, что эта конструкция реагирует на любое исключение? Добавлено через 44 минуты...

Справка Delphi 7 не работает в Windows 10
Пробую бесплатный сыр от Microsoft: обновил систему до Windows 10. Я так и думал, что справка Delphi 7 сразу не заработает, но надеялся победить установкой WinHelp32. Однако - не получилось (запустил...

Обратный отсчет с компонентом Timer в Delphi7
Помогите реализовать обратный отсчет. Надо что бы цифры отсчета были видны, как убывает время, а когда время истекло выполнялось какое либо действие. В Dlephi ноыичок, поэтому прошу помочь =)

Как узнать разрешение экрана?
как узнать разрешение экрана?

Ошибка i/o error 105
Программа компилируется. И когда выбираешь txt док чтобы открыть выходить ошибка i/o error 105 . Как можно исправить? Программа состоит из нескольких юнитов поэтому я прикрепил проект

Как поменять иконку у exe файла
Мне нужна другая иконка для моего приложения на exe файле.Как её поменять?:yahoo:

Проверить число на чётность.
точно не помню...но что-то в этом роде... на форме сделать эдит1 и баттон...вводя число оно должно проверятся на нечетность... Тема должна иметь осмысленное название. Название изменено.

Программа светофор
Добрый вечер.Может сделать эту задачу Можете помочь сделать прогу!? 1. Разместите на форме объекты Tshape в форме светофора, управление которым будет осуществляться через RadioButton. 2. Создайте...

Отображение строки UTF-8 (получение данных с сервера)
Всем привет! Возникла следующая проблема. Никак не могу вывести текст, содержащийся в UTF-8 строке. Ситуация следующая. Нужно получать с сервера определённые данные и отображать их в своей проге....

Как записать данные в файл MS Word
Есть файл word. как его можно заполнить через делфи? если такое конечно вообще возможно. я в делфи разбираюсь плохо. проект делфи связан с бд access. нужно чтобы было так: занёс через делфи данные...

Загрузка картинки PNG в Image
Всем добрый вечер. Не так давно на форуме, одним из посетителей был затронут вопрос о загрузке png в image. Думаю, некоторые помнят эту тему (в частности UI и angstrom). Тогда было предложено TC...

Преобразовать текст из кодировки Win1251 в DOS-866
Господа программисты, Вашему вниманию предлагаю следующий код (юнит выложен полностью): unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...

Ошибка: Exception EAccessViolation in module
Добрый день! Люди, помогите, пожалуйста! Ошибка при запуске программы: Exception EAccessViolation in module Программа прекрасно работает на компьютере, где она была компилирована!

Пустой edit
Подскажите, пожалуйста, что нужно написать в процедуре, чтобы пользователь не смог оставить пустой edit, т. е. после нажатия кнопки вычислить, при наличии пустого поля, появлялось сообщение -...

Фон формы
Здарова всем) У меня есть форма и картина) У меня вопрос:как на форме залить фон этой картинкой? ) на подобии как в VB6 (выделяем форму-нажимаем picture-выбираем картинку для фона формы)...

Прозрачная форма с непрозрачными компонентами
Можно ли сделать прозрачную форму но компоненты чтоб было видно?

Запуск внешней программы в форме программы
Всем привет :) может Вы меня и не поймете, но не пинайте, я только учусь :) Делаю я оболочку для CarPc. И главная затея, сделать или сотворить одну классную вещь, а вещь заключается в том, что...

Округление до 2-х знаков после запятой
Доброго времени суток.. Пользуюсь функцией : function RoundMax100(Num: real): real; begin result := round(num * 100 + 0.5) / 100; end; далее S := StrToFloat(edt5.Text);

Ошибка: Operator not applicable to this operand type
Ребят, помогите что не так! Не серчайте на меня, У меня Delphi только одно занятие было. Если сможете то поправьте, и как то по проще , шоб я и препод понял. Delphi: unit Unit1; interface ...

Объект TDictionary. Что такое ключ и что такое значение?
Из прочитанного в гугле понял что это нечто наподобие какого-то словаря: Коллекция пар ключ-значение. и что работать будет только на делфях старше 7 версии. Вопрос такой: Что же такое ключ и что...

Получить количество строк в ComboBox и ListBox
Как узнать сколько строк в ComboBox или ListBox/ Например: if Количество строк > 5 then ShowMessage('Больше добавить невозможно!');

Как создать справку?
Как создать справка?

Как программно сменить раскладку клавиатуры
Подскажите пожалуйста, как сменить раскладку клавиатуры на английскую, если в системе установлено три более языка? Вот эта штука почему-то не работает: ActivateKeyboardLayout(0,HKL_NEXT);

Перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ
"перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ" Вот такую бяку задали в колледже на практике народ плиз напишшите алглритм выполнения этой бяки!!! А то я чёт сооброзить...

Как определить кодировку текста?
Доброго времени суток. Подскажите как автоматически определить кодировку будь то русский или латинский текст? нужна поддержка кодировок ANSI, Unicode, UTF-8. Может у кого есть готовый код для...

Создание калькулятора
в общем вопрос состоит вот как... для практики решил создать инженерный калькулятор, есть некоторые не совсем понятные нюансы... знатоки, помогите пожалуйста.. самый легки и стандартный способ -...

Узнать путь к файлу в директории приложения
Здравствуйте, мне необходимо узнать в программе путь к папке где находится программа и сохранить его в переменную. Подскажите с помощью каких методов это можно сделать?

Запрет ввода цифр в поле Edit
Как запретить ввод цифр с клавиатуры, в поле Edit? (но чтоб буквы и дополнительные символы вводились)

Floodfill
Подскажите что делать. Я ввожу paintBox1.Canvas.FloodFill(_x,_y,colordialog1.Color); и выдаёт ошибку "Not enough actual parameters"

Sendmessage
Здравствуйте, не могли бы вы обьяснить мне как пользоваться Sendmessage, какие модули нужно подключить как правильно прописать отправку команды в окно "Bot" и что важно знать об этом, Спасибо. ...

Как разбить документ Word на несколько файлов
Здравствуйте Уважаемые! Подскажите. Имеется документ Word, состоящий из "n" страниц. Как разбить его на "n" файлов, в каждом из которых соответствующая страница? Заранее благодарен Al_Sha

XMLDocument
Использую компонент XMLDocument и не как не могу понять как мне загрузить например вот это Все что находится между тегами WMExchnagerQuerys. Как прочитать конкретный тег например курс доллара...

Пароль под звездочками
PasBuf:=InputBox('Повтор пароля','Введите пароль еще раз: ', PasBuf); можно ли в этом окне скрыть вводимый текст звездочками? или приедется рисовать отдельную форму( не хотелось бы изза этого...

Узнать разницу в секундах между датами
привет всем. допустим в моей программе срабатывает звуковой сигнал в 12:30:00 текущее время - 12:20:00 как сделать так, чтобы например в лейбле отображалась разница между первым и вторым временем?...

Классы и объекты
Задаюсь этим вопросом с того момента как начал изучать ООП, т.е. на протяжении 2-3 лет. Пытался найти сам для себя ответы, но никак не пойму. В чем же разница между классами и объектами?

Как можно убрать текст из поля memo
Как можно убрать текст из поля memo, поле только создано! нужно чтоб это поле было пустым. Заранее спасибо!!!

Форма поверх всех окон
Подскажите как сделать так чтобы после срабатывания таймера форма восстанавливалась из трея поверх всех открытых окон :cool: (добиться сворачивания и разворачивания у меня получилось)

ShowMessage, заменить текст в шапке
Здарвствуйте. Подскажите пожалуйста, как сделать так, чтобы вместо Project1 в шапке сообщения было какое-нибудь другое сообщение, например 'Hello world'? Ниже привожу скриншот, с помощью которого вы...

Delphi 7 работа с txt файлами
скопировать строки текстового файла F, длинна которых меньше указанной, в текстовый файл G. Буду благодарен...

Открытие ссылок в браузере по умолчанию
Помогите пожалуйста, при нажатии на ссылку в компоненте Webbrowser открывается IE, но мне необходимо что бы открывался браузер по умолчнию. Искал в гугле там было что то про ShellExecute, но можно...

Удаление всех файлов из папки
Всем здравствуйте. Подскажите пожалуйста, как удалить все файлы с одинаковым расширением (например *.tmp) из папки?

Как парсить Json?
Нужно из строки ...

Найти в файле строки, начинающиеся на "А"
Формирую файл, записью в него из Memo, затем необходимо найти строки начинающиеся на "А" и вывести их в Edit'е. Код приведен ниже. procedure TForm1.Button1Click(Sender: TObject); var f,g:...

[Error] Unit1.pas(46): Incompatible types
Вот делаю Лабораторку по масивам напесал unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Buttons; type

Показать диалог выбора папки
как в delphi 7 вызвать диалог выбора папки? в палитре инструментов во вкладке dialogs его нет.

Ошибка "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,...

Из строки удалить символы
Дана строка S. Удалить из неё все символы <!> . помогите кодом плз, знаю что надо на форму выкинуть рамку где вписывается текст, кнопку батон что бы под кнопкой была команда удаление...

Проверка на нажатие клавишу Enter
Здравствуйте. В универе начали бегло проходить delphi и для понимая сути объектно-ориентированного программирования дали дз: написать программку не большую. Всю основную часть я понимаю как написать,...

Календарь в Delphi
Всем доброго времени суток, нужен ваша помощь... Хочу написать календарь, чтоб на форме было 12 месяцев и выбор года. Праздники отметить другим цветом... Стандартные компаненты не подходят т.к....

Создать массив строк
возможно ли создать массив строк при условиях 1)тип string 2) длина строки не определена 3) кол-во строк не определено и пользователь его не введет (добавляются автоматически) и что самое главное...

Определить, является ли число точной степенью числа 2 (цикл while)
Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае. Операцией возведения в степень пользоваться нельзя! Добавлено через...

Как сделать форму поверх всех окон?
Подскажите. У меня простая прога. Одна форма. Хочу сделать её поверх всех окон. Подскажите также вариант, как это делать программно. Дополнительный вопрос. Где мне выставить значения, чтобы...

Внешняя граница таблицы Excel
как прорисовать что бы выделыло только внешние границы использую xls.activeSheet.Range.Borders.LineStyle:=1; почитл немного но не нашел как правильно прописать что бы было только выделение...

Как узнать размер файла?
Доброго времени суток!Я задался вопросом как определить размер файла имея путь к нему?нашел в инете пример вот такой function GetFileSize(FileName: string): Integer; var FS: TFilestream; begin...

Деление в Delphi 7
Delphi 7. Console Application. var a,b : integer; c : real; begin writeln('vvod ishodnih '); readln(a,b); c := a / b;

Timer в Delphi и как им пользоваться.
Я решил сделать прикол, а нужно вставить таймер, и чтобы он отсчитывал время. Помогите и объясните мне пожалуйста как и что надо писать, чтобы таймер отсчитывал время обратно.

Запуск стороннего .exe - файла
Как с наименьшими заморочками запустить .exe - файл из Дельфи? Пример или указание на функцию, плиз.

вопрос по case ... of
имеем оператор выбора стандартного вида, например: case Selection.ItemIndex of 0:<оператор1>; 1:<оператор2>; и т.д. Если есть необходимость в листе выбора указать сразу несколько ключей для...

Как преобразовать Real в Integer
Как преобразовать Real в Integer FloatToInt не работает что-то

Отображение русского языка в консольных приложениях
Решил поэксперементировать с консольными приложениями в делфи.Но встретил проблему неотоброжается русский язык, в место него иероглифы какие то.

Как правильно закрыть книгу Excel - WorkBook или WorkBooks
Что правильнее: WorkBook := unassigned; или WorkBooks := unassigned; У меня сначала работал этот вариант (правда работал ли точно, не понятно). Компилятор ошибок не выдавал. Когда перенес код в...

Вывести текущее время и текущую дату
создать программу, которая выводит текущее время и текущую дату. var DateTime : TdateTime; procedure Tform1.Button1Click(Sender: Tobject); begin DateTime:=Time;...

При нажатии на кнопку отображать новое окно
Помогите! Как сделать чтоб при нажатии на кнопку выскакивало новое окно

Создать отдельный exe файл программы
Написал в Delphi программу, нужно сделать отдельный exe файл, чтобы программа работала самостоятельно, без запуска Delphi. Чтобы файл запускался на другом ПК, где не установлен Delphi. Помогите...

Квадратное уравнение
Подскажите,плиз.Вот я составила программу по вычислению квадратного корня,но у меня почему-то выдает только ответ "Уравнение не имеет решение" при любом значении переменных.Вот сама программа: unit...

Построить график функции (с помощью TChart и с помощью TImage)
Построить график функции (вид функции определяется по варианту) с помощью: - компонента chart; - компонента image. Предусмотреть изменение с формы интервала отображения

Как создать видео плеер
Как ? .avi ... .mpeg4 ... PLEASE ! Пожалуста, помогите, 3 дня ищу, и нигде, никак не получается. Delphi 7 . Если объесняете, то скажите, какие паки, компоненты. КОД ? Просто, что б... pause,...

Дельфи не компилирует проект: "F2039 Could not create output file"
Создал две формы и пару кнопок, первый раз запустило нормально, а теперь выдает ошибку F2039 Could not create output file '.\Win32\Debug\Project6.exe' как это исправить?

Сапер на Delphi
Хочу написать сапера на делфи. Принимаю любую помощь и предложения.

Вычисления площади треугольника и квадрата.
Написать программу для вычисления площади треугольника и квадрата.

Сортировка массива по убыванию
Люди, есть в delphi функция сортировки массива по убыванию? Простой одномерный числовой массив, надо чтоб у первого индекса было максимальное значение, у второго индекса значение меньше первого и...

Как сделать прозрачный фон у рисунка TImage?
Как у рисунка TImage сделать прозрачный фон либо перекрасить его фон в цвет панели перед рисованием?

Как осуществить поиск файла во всех папках данной директории?
Добрый день! Как осуществить поиск файла во всех папках данной директории? Есть директория, в ней много папок, мне нужно найти там один файл программно. Использовал FindFirst( ); Но он ищет...

Чтение из файлов doc и docx
подскажите как можно прочитать текст из этих файлов.

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...

Решение СЛУ методом Гаусса
Программа не работает,посмотрите пожалуйста 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...

Даны действительное число a, натуральное число n. Вычислить P=a*(a+1)*(a+2)*......*(a+n-1)
Напишите,пожалуйста,код программы Даны действительное число a, натуральное число n. Вычислить P=a*(a+1)*(a+2)*......*(a+n-1)

DateTimePicker
Как из DateTimePicker выдернуть в Edit только лишь ДЕНЬ, а во второй Edit только лишь МЕСЯЦ ??

Чтения массива из файла и запись массива в файл.
Поделитесь плиз процедурами чтения одномерного массива из текстового (можно типизированного) файла в StringGrid, а также записи одномерного массива из StringGrid в файл. Добавлено через 1 час 39...

Перевод string в integer
nomer : Byte; bufer : string; bufer2 : string; SetLength(bufer2,10); bufer2:='10 абвгд 2'; bufer:=bufer2; bufer:=bufer2; nomer:=StrToInt(bufer); //на этой строчке ругается

Запуск приложения от имени администратора
Здравствуйте! Скажите пожалуйста, а есть ли возможность в delphi7 программно запустить программу от имени администратора. То есть при старте программа сразу запрашивает разрешение на то.

Вывести в Memo содержимое текстового файла
Разработать программу, которая в поле Memo выводит содержимое текстового файла. Вид формы приведен ниже

Как поменять цвет строки в listbox?
подскажите как сделать что бы можно было менять цвет строки в листбоксе. сейчас добавляю так- procedure addlog(txt:string); begin Form1.Listbox1.Items.Add(txt); ...

Делфи 7 для начинающих с нуля
Здравствуйте уважаемые программисты! Я тока начал учится работать на Делфи 7 и нашел иллюстрированный самоучитель для начинающих по Делфи7. Но тот кто писал эту книгу он наверно самый настоящий...

Количество дней между 2-мя датами
Помогите найти количество дней меджу двумя датами, если например даты вводяться в 2 поля Edit1 и Edit2. Объясните как написать даную процелуду или скиньте пожалуста код процедури.

Убрать иконку "крестика" (закрытия формы)
Привет всем!! Пишу программу и возникла проблемма с "крестом" который закрывает формую. Если я его убираю в свойствах BorderIcons то у меня не отображается иконка "свернуть". Подскажите как мне...

как посчитать факториал в delphi?
как посчитать факториал в delphi? к примеру K!

Установка компонентов
Приветствую Вас Уважаемые посетители форума! Вот лазил я по форуму и много кто спрашивает как устанавливать компоненты в delphi в следствии чего решил добавить статью (с позваления модераторов)))) ...

Перевод чисел из десятичной в двоичную систему счисления
Помогите написать программу для перевода чисел из десятичной в двоичную систему счисления. В Delphi 7.

Программное создание кнопок
Всем привет. В последнее время в "самодельных" калькуляторах программистов-новичков очень часто вижу, что все кнопки расставлялись вручную. Мне кажется, вручную настраивать положение и размер каждой...

Найти максимальный элемент массива и его индексы
Найти максимальный элемент массива и его индексы.

Как установить компонент на Delphi 7
Помогите не могу установить компонент TLCDScreen v3.0 на Delphi 7

Delphi & COM-порт
Приветствую всех ! Помогите пожалуйста написать простую программу, с помощью которой можно было бы отправлять v COM port данные. С возможностью выбора порта, бит рейдом, стоп битами, направлением...

Правое выравнивание текста в компоненте Edit
TEdit1 = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; end; procedure TEdit1.CreateParams(var Params: TCreateParams); begin inherited...

Сравнение дат
Добрый день, друзья! Разрабатываю приложение для аптеки, приходится проверять не вышел ли срок годности у товара. Данные о конце срока годности хранятся в базе данных Access, в формате...

Перевод каретки на новую строку
С помощью какой функции каретка переводится на новую стоку?

Электронный учебник написанный в Делфи
Как создать электронный учебник в Делфи? С чего начать? материал есть, Высшая математика для биологов учебник будет называться И нужно что б в конце каждой главы открывалась программа написанная в...

[Fatal Error] Unit1.pas(160): File not found: 'Unit3.dcu'
Unit1.pas(160): File not found: 'Unit3.dcu' Посмотрите пожалуйста архив во вложениях. Большое спасибо всем, кто хотя бы посмотрит

Динамическое создание формы
вот например мне надо динамически создать новою TForm1 и обязательно присвоить событию oncreate другое,так как в основном есть открывание файлов,що приводит к ошибке если оно еще раз запускается,ниже...

[Excel] Изменить формат ячеек на числовой
Доброго времени суток, форумчане! Пишем программу, в которой часть работы завязана на считывание и обработки ячеек Excel, и наткнулись на проблему: не получается сменить формат ячеек с текстового на...

E2029 Statement expected but 'PROCEDURE' found
В общем в delphi я новичок,первый раз использую процедуры и столкнулся с такой проблемой: E2029 Statement expected but 'PROCEDURE' found хоть убейте не пойму,бегины энды пересчитал,количество...

Как открыть файл при нажатии кнопки?
Помогите знающие плз. прога типа самоучителя. (задание в универе дали) нужно как то сделать так чтоб при нажатии на кнопку отображалось содержимое файла. (сейчас это файлы Word). и надо чтоб при...

Как создать окно авторизации
Народ помогите с программным кодом необходимо ввести имя пользователя и пароль и что бы после этого создалась(открылась) 2-ая форма а то я ток начал delphi и его еще не понимаю

Рисование с Canvas
Подскажите новичку в Delphi-рисовании, как можно стереть с формы всё, что было нарисовано с помощью Canvas.MoveTo(); Canvas.LineTo(); Canvas.Ellipse(). В учебниках не нашёл.

Сегодняшняя дата в Label
Надо чтобы в Label или в Edit была написана сегодняшняя дата в формате ДД.ММ.ГГГГ

Как в Memo вывести буквы разными цветами?
Хочу в TMemo (TEdit) вывести строку, где, например все гласные буквы будут зелёным цветом. Знаю, как раскрасить целую строку. А вот отдельно буквы, не знаю

компонент ListView
Здраствуйте!:) мне надо изучить компонент LIstView я создала таблицу с несколькими столбцами. как добавлять в первой столбец я сделала, а в другие не получается( я хотела чтоб при введении данных...

Запрет на редактирование Memo
Как поставить запрет на редактирование Memo, кроме Enabled? Enabled запрещает редактирование Memo, но при этом текст становится серым. Еще можно выставить параметр ReadOnly в True, но тогда текст...

Создать button кнопку, которая при нажатии меняет название
Изменить программный код кнопки button таким образом, что бы при нажатии менялись надписи "привет" и "пока" для этого применить оператор if проверять какой текст выведен на кнопке(значение свойства...

Товар стоит "a" руб. "b" коп. За него заплатили "c" руб. "d" коп. Сколько сдачи требуется получить?
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно....

Операторы Exit, Close, Application.Terminate в чем разница между ними?
Хочу понять разницу между этими операторами. Например, оператор Application.Terminate выходит из программы, то же делает и Close. ТОгда как выбирать, что из них ставить?

JPEG error #53
здравствуйте. вылетает ошибка JPEG error #53 , как я понял из за того что подгружается "неправильный" Jpeg файл а можно ли как то отсортировать файла на "правильность" так чтобы если файл не...

StringGrid заполнение случайными числами.
Дана таблица StringGrid. Как зполнить одну строку (например первую) случайными числами в диапазоне от 10 до 20?

Как сохранить в exe?
Подскажите, пожалуйста, как сохранить результат работы в RAD Delphi 2009 в исполняемый файл?

Изменение цвета текста
Здравствуйте! Подскажите, пожалуйста, как можно изменить цвет текста в memo, лишь определенного слова. Например слово hello, надо чтобы было красного цвета, а все остальные слова оставались прежними.

Ошибка Connection Closed Gracefully
Не знаю по какой причине выдаёт ошибку:

Форма (close)
Имеется самая обычная форма и одна кнопка на ней (эт так, для примера). Мне нужно, чтобы при нажатии на эту кнопку (Button1), программа закрывалась! вот моя процедура: procedure...

Ошибка: "brcc32" exited with code 1.
Что это за ошибку выдает при компилировании?? Checking project dependencies... Compiling Project1.dproj (Debug, Win32) brcc32 command line for "Project1.vrc" d:\program files\embarcadero\rad...