Вопросы с меткой [delphi-7]
Delphi 7, выпущен в августе 2002 года, является одной из самых популярных и широко используемых версий Delphi. Этот релиз Delphi считается самым стабильным, и все еще широко используется для объектно-ориентированного программирования для ОС Windows.
416
вопросов
-1
голос
1
ответ
15
показов
Загрузка значений в GetDriveType и GetVolumeInformatio из файла
Как можно загрузить значения 'c:/' диска в GetDriveType и GetVolumeInformatio из текстового файла, из первой строки текстового файла.
var
Form2: TForm2;
SerialNum,dtyp:Dword;
a,b:DWORD;
Buffer,...
-1
голос
1
ответ
59
показов
Как вставить перед числом такое же число
Как вставить перед числом такое же число, т.е если ввели 1 то будет 11, есть код но он немного не так работает как надо
0
голосов
1
ответ
23
показа
Как добавить элемент scrollbar win32 API Delphi7
Как добавить элемент scrollbar win32 API Delphi7. Мне необходимо добавить три scrollbar min=0 max=255 у каждого. И чтоб при передвижении ползунка менялись значения в соответствующих edit
program ...
0
голосов
1
ответ
87
показов
Delphi мессенджер. Какие компоненты использовать?
Пишу мессенджер на Delphi7. Прошу помощи: как сделать пользовательский интерфейс примерно как в телеграме, ватсаппе и т.д.
Какие компоненты использовать чтобы при нажатии на i-ую вкладку слева ...
1
голос
1
ответ
44
показа
Эффект с надписью "Скопировано" в Delphi7
Как сделать так, чтобы при нажатии на tLabel (sLabel в моем случае, т.к. подключены AlphaSkins), текст копировался в буфер обмена (это я сделал) и пользователю показывалась надпись "Скопировано&...
0
голосов
0
ответов
14
показов
Можно ли и как реализовать связь через UDP-протокол на Delphi7
Есть задача – реализовать мессенджер на делфи 7.
Использую TServerSocket и TClientSocket.
Я так понимаю, что они используют TCP/IP ( https://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D0%BA%D0%B5%D1%82_(%D0%...
0
голосов
1
ответ
32
показа
Копировать все с начала строки до последнего пробела
Вот так копировать все до первого пробела
s:=copy(s,1,pos(' ',s)-1);
Вот так копировать все до второго пробела
s:=copy(s,2,pos(' ',s)-1);
А вот как копировать все до последнего пробела с начала ...
0
голосов
0
ответов
33
показа
Как сделать событие в потоке?
Проблема в том что если я буду перемещать или изменять форму событие не будет срабатывать.
У меня есть событие procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); компонента TComPort в ...
-2
голоса
1
ответ
31
показ
Не получается правильно записать эту формулу
Заданные действительные величины x,y,z,a,b,c,d. Разработать программу, которая упорядочивает величины a,b,c,d так, чтобы a<=b и c<=d, и вычисляет значение функции
if a>b then begin r:=a;a:=b;...
-1
голос
2
ответа
62
показа
Как соединить несколько строк в одну?
В текстовом файле расположены строки в таком виде:
>>>
Stroka1
Stroka2
Stroka3
>>>
>>>
Stroka4
Stroka5
Stroka6
Stroka7
>>>
Как соединить строки что между символами ...
0
голосов
1
ответ
65
показов
Удаление переносов строк в Memo
Загружаю в Memo1 список строк из текстового файла.
Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'stroki.txt');
Длина каждой строки до 2000 символом. Почему memo режет каждую строку ...
-1
голос
1
ответ
48
показов
Нарисовать четырехугольник Delphi
Нужно нарисовать четырехугольник с изменяющимися длинами сторон. То есть линии могут быть ломаными.
Пример моего кода, где сторона (d - верхняя не изменяется ).
Image2.Canvas.MoveTo(30,30); // ...
1
голос
1
ответ
231
показ
Delphi, формула, ошибка [Error] Unit1.pas(90): Undeclared identifier: 'Power'
procedure TForm1.BitBtn1Click(Sender: TObject);
var a,b,c,d,rez:real;
begin
if Application.MessageBox('Вы подтверждаете расчет функции?',
'Подтвердите операцию', MB_YesNo+MB_IconQuestion+...
-1
голос
1
ответ
43
показа
Алгоритм присвоения победы в Delphi
Я создаю игру крестики-нолики. Мне надо ввести проверку на победную комбинацию. При компиляции кода, победной комбинацией является только последний if, а первый пропускается, а это я только считываю ...
0
голосов
2
ответа
45
показов
Работа БД Access и DLL
Есть самописная программа, которая перестает нормально функционировать после установки на компьютер windows 10.
Это DLL, которая была написана в 2010 году что-то делает, и возвращает значения, в этом ...
0
голосов
1
ответ
44
показа
Универсальность цикла, увеличение дальшейней поддержки
Имеется следующий цикл, который распределяет полученную информацию из запроса, который соответствует i.
общий цикл for i := 1 to maxI do, где maxI задан перед началом цикла и равняется 13-и
при ...
0
голосов
2
ответа
56
показов
Как исправить перевод чисел в буквы (столбцы Excel)?
Мне необходимо иметь возможность проставления букв(английские) в зависимости от позиций в цикле
т.е если 1 итерация цикла, то проставляет буква А, если 26, то буква Z. Если 27 итерация, то АА, если 28,...
0
голосов
0
ответов
31
показ
Как передать файл с USB-устройства на компьютер (Delphi)?
Необходимо чтобы по нажатию кнопки файл с телефона, подключенного к компьютеру через Usb, копировался на жёсткий диск. Как можно это реализовать в Delphi?
-1
голос
2
ответа
35
показов
Ошибка в statusbar
Прога должна связываться с бд и выводить инфу оттуда. В строке TStatusBar.Panels[1].Text := IntToStr(dstBrigades.RecordCount); пишет ошибку при запуске [DCC Error] main030.pas(49): E2233 Property '...
0
голосов
1
ответ
40
показов
Скопировать текст из сайта в Memo
Текстовый файл Text.txt расположен на сайте и в нем текст:
Год:2020
Число:19
Месяц:09
Делаю запрос вот так:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IdHTTP1.Get('http://...
0
голосов
1
ответ
87
показов
Как масштабировать видео с веб камеры?
Есть код (исходник) на Delphi, который отлично захватывает видео с веб камеры.
Как реализовать ползунок, при передвижении которого бы видео масштабироваось?
interface
uses
Windows, Messages, ...
1
голос
0
ответов
53
показа
Пробую расшифровать на Delphi 7 (AES(DCPrijndael) key SHA256 мод=CBC) компонент DCPcrypt
Пробую расшифровать фразу на Delphi 7, (ключи и исходный текст верные, на PHP расшифровываются). Почему то при перезагрузке программы(рестарте) даже разный результат получается. Можете подсказать что ...
2
голоса
1
ответ
68
показов
Анимация сворачивания окна в Windows 7 и Delphi 7
Как известно, в Windows 7 при включённых эффектах окно сворачивается не мгновенно, а с анимацией длительностью в несколько сотых секунд.
У меня есть программа, написанная в Delphi 7, которая при ...
3
голоса
0
ответов
41
показ
Существуют ли версии CEF4 Chromium для Delphi 7 совместимые с Windows XP?
Интегрирую CEF3 (chromium) в Delphi в общем то успешно и статьи по этому поводу есть. Тем не менее хотелось бы понимать может быть есть версии CEF4 которые были бы совместимы с Windows XP (вроде как ...
1
голос
0
ответов
30
показов
Как вызвать приложение у пользователя на рабочем столе от службы в Delphi?
Пишу службу на Delphi 7.
Мне нужно чтобы у пользователя по определённому событию появлялось окно программы (отдельной - то есть не службы) то есть другого форм-приложения так же написанного на Delphi.
...
1
голос
1
ответ
59
показов
Удаление строк в TStringList
При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2)
var
L, K: TStringList;
i: integer;
begin
L := TStringList.Create;
L.LoadFromFile(...
0
голосов
1
ответ
25
показов
Копирование части строки из memo в Edit
Есть:
Edit1.Text
Edit2.Text
Edit3.Text
Edit4.Text
В Memo1 первая строка:
User1/15/21.06.12/568
Я нажимаю кнопку и переносим значения с Memo.Lines[0]. То есть с первой строки Memo в Edit:
Edit1.Text ...
1
голос
1
ответ
172
показа
Смена текста Edit при нажатии на кнопку
На форме расположена кнопка Button1Click и Edit1.Text а также и текстовый файл 1.txt в котором есть строки:
Например:
1234567
98765432
3232323
434343434
Нужно что бы при нажатия на кнопку в Edit ...
0
голосов
1
ответ
20
показов
Как дублировать строку в Memo
В Edit1 есть текст:
Сегодня 19.07.2020
Нужно что бы при нажатии на кнопку эта строка дублировалась 5 раз в memo1. На выходе получим результат в memo1:
Сегодня 19.07.2020
Сегодня 19.07.2020
Сегодня ...
0
голосов
1
ответ
30
показов
Замена слова на слова с нумерацией
База такого типа:
Text 01.02 Text 03.01
Text 01.02 Text 03.01
Text 01.02 Text 03.01
Нужно заменить слово Text на: Text1, Text2, Text3 и так далее. И на выходе результат:
База такого типа:
Text1 01.02 ...
-1
голос
1
ответ
187
показов
Как выйти из цикла for по нажатию на кнопку?
Как выйти из цикла при нажатии на другую кнопку (Остановить выполнение Button1Click) при нажатии на кнопку Button2Click:
Кнопка с циклом:
procedure TForm1.Button1Click(Sender: TObject);
var
A: ...
0
голосов
1
ответ
64
показа
Удаление заблокированной папки или файла
Пытаюсь удалить папку и при удалении выскакивает окошко и в нем текст:
Операция не может быть завершена, так как эта папка или файл открыты в другой программе.
Закройте папку или файл и повторите ...
-1
голос
1
ответ
42
показа
Синхронизация (изменение значений) Edit используя Dll
Как передать (изменить) данные в Edit (любой текст или сумму или отнять) используя .dll. Получаю ошибку при компиляции set.dll в виде:
[dcc32 Error] Project1.dpr(8): E2003 Undeclared identifier: '...
1
голос
0
ответов
38
показов
Старая Delphi 7. Работа с рестром windows. Как узнать удалось ли получить доступ к ключу HKEY_LOCAL_MACHINE?
Нашёл в интернете по ссылке http://blog.ivru.net/?id=203 довольно не плохой пример по работе с реестром windows из старой версии Delphi.
Там же на писано, что для начала работы с реестром windows ...
1
голос
0
ответов
55
показов
Старая Delphi 7 можно ли дозпросить права администратора не прекращая работу приложения и не перезапуская его
Знаю, что есть способ в старой Delphi 7 проверить наличие прав администратора и используя WinAPI перезапустить приложение с запросом прав администратора а текущее приложение закрыть.
Возник другой ...
0
голосов
1
ответ
26
показов
Замена после символа
В текстовом файле есть строки:
112.12.34.555.123+1245.И тут текст
11.111.54.888+54544.И тут текст
333.231+554333.И тут текст
Как заменить первую точку (.) после знака плюс (+) на точку с запятой (;). ...
0
голосов
1
ответ
46
показов
Как можно ускорить алгоритм?
Не устраивает только одно - скорость работы алгоритма, как можно ускорить алгоритм в этом коде (Может из за того что использую AssignFile ?).:
Может использовать TStreamReader (но с ним работать не ...
5
голосов
2
ответа
86
показов
Есть ли в старой Delphi 7 функция аналогичная php explode для работы с строками и разбиения их в массив по разделителю?
Взялся поправить один проект на Delphi 7 и там данные приходится много дробить которые по сети приходят чтобы их в нужные места вставить.
Я конечно уже всё сделал на copy pos и тому подобному, только ...
1
голос
0
ответов
47
показов
Порядок включения ресурсов в исполняемый файл в Delphi 7
Всем доброго времени суток.
Не могу понять, в каком порядке компилятор Delphi 7 упаковывает ресурсы в исполняемый файл?
Использую классическую схему - из текстовых RC-файлов автоматически собираются и ...
0
голосов
2
ответа
99
показов
Delphi 6/7 - какую книгу прочитать про потоки и их допустимое колличество
Требуется быстро поднять знания по достаточно не новой среде Delphi 6 или 7, в общем то я с ней работал, но вот нужно глубже понимать работу с потоками.
Не совсем понятно в каких случаях нужно ...
3
голоса
1
ответ
62
показа
Копирование Handle окна используя клавиатуру
Получаю Handle окна другой программы при наведении курсора мышки на форму (то есть форму другой программы). И вывожу его в LabelHandle.Caption.
Интересует ответ на вопрос: Как, при нажатии на ...
2
голоса
1
ответ
92
показа
Win Socket API Delphi 6 отправка сообщений по UDP между клиентом и сервером. Почему порт клиента отличается в серверной и клиентской программе?
Чтобы более понятна была ситуация выкладываю следующий скринсшот:
Разбираясь в UDP и программированию протокола с использованием Win Socket API в Delphi 6 столкнулся с ситуацией, что почему то в ...
0
голосов
1
ответ
35
показов
Cоздание копии файла
Как сделать запись в файл создав копию файла 1.exe (как на примере) ?
В коде что предоставлен ниже: Идет Запись текста из Memo1 в файл 1.exe, перезаписывая его. А нужно чтобы создавалась копия файла ...
0
голосов
1
ответ
38
показов
Как определить, нужны ли права администратора для изменения файла или нет?
У меня есть программа на Delphi, работающая с файлами. Использую я функцию AssignFile(). Проблема в том, что файлы на системном разделе требуют права администратора для их изменения. Из-за этого ...
-1
голос
1
ответ
57
показов
Как изменить видимость объекта в Delphi 7 через скрипт? [закрыт]
Помогите, пожалуйста, написать скрипт, который при нажатии кнопки будет ставить значение параметра Visible на False у объекта, который будет указан в коде.
-1
голос
1
ответ
30
показов
Компиляция исходника на Delphi 7
По работе мне необходимо внести несколько правок в программу написанную на Delphi 7 в 2003 году. Исходник есть, но я не могу его скомпилировать. При компиляции выясняется что Delphi нехватает кучи ...
1
голос
1
ответ
68
показов
Как правильно разбить строку на слова
Как строки вот такого вида:
1. Космос 2. Nastasia 3. mamochka.dochka0702 4. kyklabratz 5. ProstoTanya 6. Olga135
Разбить таким образом что бы на выходе получились только имена и в столбик. То есть ...
1
голос
1
ответ
80
показов
Работа OpenDialog в цикле
Как обработать несколько файлов открыв их через OpenDialog. Добавила в код:
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
if OpenDialog1.Execute then
И после:
procedure ...
0
голосов
1
ответ
41
показ
Привязка внешнего ключа при добавлении нового значения в таблицу master-detail
Всем доброго дня. Имеются 2 таблицы, связанные master-detail. При добавлении нового значения в таблицу detail не привязывается внешний ключ, выбранный с таблицы master.
Сама связь M-D осуществляется ...
0
голосов
1
ответ
31
показ
Добавление нового значения через TEdit (Не DBEdit!) c помощью связи Master-Detail
Всем доброго дня. Подскажите, пожалуйста. Есть две таблицы (Страна, город), взаимосвязь между ними осуществляется с помощью Master-Detail, и всё работает отлично. Проблема заключается при добавлении ...