Вопросы с меткой [delphi-xe]
Delphi XE, выпущен 30 августа 2010 года. При использовании этой метки, добавляйте метку Delphi.
124
вопроса
0
голосов
0
ответов
54
показа
Сгенерировать все возможные комбинации из заглавных и строчных букв
Как получить все возможные комбинации из заглавных и строчных букв в слове не меняя их порядок.
К примеру имеем слово на входе
abc12
А на выходе получим
abc12
abC12
aBc12
aBC12
Abc12
AbC12
ABc12
...
0
голосов
1
ответ
59
показов
Проверка и сохранение строк
Я проверяю дубликаты строк до символа =. И если строки есть то сохранить не удаляя дубликаты.
var f, s: TStringDynArray;
i, j, k: integer;
L, L1: TStringList;
index: array of integer;
...
0
голосов
0
ответов
62
показа
Как декодировать Base64 в Zlib в строку?
Есть строка закодированная в base64, соответственно при декодировании мы получаем массив байтов, который сжат в Zlib-e (это ответ webSocket'a), нужно вытащить строку в читаемом формате, ...
0
голосов
2
ответа
155
показов
Delphi xe 10.4 webSocket пишет Connection closed by gracefully
Использую для теста компонент: https://github.com/arvanus/Indy/blob/WebSocketImpl/Lib/Core/IdWebSocketSimpleClient.pas
При подключении пишет ошибку Connection closed by Gracefully. Хотя в целом ...
-1
голос
1
ответ
25
показов
Загрузка значений в GetDriveType и GetVolumeInformatio из файла
Как можно загрузить значения 'c:/' диска в GetDriveType и GetVolumeInformatio из текстового файла, из первой строки текстового файла.
var
Form2: TForm2;
SerialNum,dtyp:Dword;
a,b:DWORD;
Buffer,...
0
голосов
1
ответ
120
показов
декодирование архива zip Base64
Я получаю XML в нем есть атрибут закодированный в Base64 - архив zip. Подскажите как декодировать и сохранить zip архив локально?
0
голосов
1
ответ
67
показов
Webbrowser не способен отобразить reCAPTCHA
Можно как то заставить компонент Webbrowser1 отобразить reCAPTCHA ? В моем случае страница просто загружается а reCAPTCHA нет.
WebBrowser1.Navigate('Ссылка на сайт');
WebBrowser1.Silent := True;
0
голосов
1
ответ
80
показов
Текст в одну строчку
Есть строки такого типа:
*Number:Date // То есть тут начало, где есть символ *
Number:Date
Number:Date
Number:Date
Number:Date
Number:Date
*Number:Date // То есть тут начало, где есть символ *
Number:...
1
голос
1
ответ
46
показов
Удаление и сравнения одинаковых папок
Интересует решения такого вопроса: Есть список папок с подобными именами
dsrecr7e7 787
dsrecr7e7 587
ctqcfw7w4 6578
Как удалить дубликаты папок и все что в них сравнивая их до первого пробела. То ...
-2
голоса
1
ответ
53
показа
Объединение строк в Memo
В Memo1 есть текст
aaa: 111 одинаковые слова до двоеточие
aaa: 222 одинаковые слова до двоеточие
aaa: 333 одинаковые слова до двоеточие
bbb: 444
ccc: 555 одинаковые слова до двоеточие
ccc: 777 ...
0
голосов
1
ответ
52
показа
Быстро обрезать ссылки до доменов Memo
Как в Memo1 обрезать ссылки до доменов удалив все https и http.
https://site1.ru/threads/fdfddd2/
http://site2.ru/threads/fdfddd23434/
https://site3.ru/threads/fdfddd434/
Что бы на выходе получилось
...
1
голос
2
ответа
98
показов
Ввод значений в Edit
Как сделать вывод спец символов в Edit? что бы можно было указывать в Edit1.Text символы которые удалить ?
if s[i] in ['!', '+'] then
Delete(s, i, 1)
Если делаю вот так
if s[i] in CharinSet(edit1....
0
голосов
1
ответ
65
показов
Сохранение дубликатов строк
Как сохранить все дубликаты строк, именно сохранить а не удалить.
Вот так удаление идет дубликатов а вот интересно как их сохранить в отдельный файл ?
var
f1: TextFile;
st: string;
s: ...
1
голос
1
ответ
95
показов
Удалить цифры с конца строки до первой буквы
Есть строки:
dsds444dhhdhshhdhs1233
dd33ssddsdsdhs332
dsd777hhjjhs1233
Нужно удалить цифры с конца строки до первой буквы. И результат:
dsds444dhhdhshhdhs
dd33ssddsdsdhs
dsd777hhjjhs
Делаю вот так ...
0
голосов
1
ответ
52
показа
Перевод буквы в нижний регистр
Есть строки вот такого плана:
Price=123:Acf3456
Ac_number=123(A):Gpm456
Price=5678:Bms3456
Ac_number=5678(B):Kprt456
Как перевести первую букву после двоеточия в нижний регистр. На выходе результат:
...
-1
голос
2
ответа
193
показа
Как соединить несколько строк в одну?
В текстовом файле расположены строки в таком виде:
>>>
Stroka1
Stroka2
Stroka3
>>>
>>>
Stroka4
Stroka5
Stroka6
Stroka7
>>>
Как соединить строки что между символами ...
0
голосов
1
ответ
123
показа
Удаление переносов строк в Memo
Загружаю в Memo1 список строк из текстового файла.
Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'stroki.txt');
Длина каждой строки до 2000 символом. Почему memo режет каждую строку ...
0
голосов
2
ответа
117
показов
Удаление только слов
Собственно вопрос в чем: В текстовом файле имеются строки вот такого вида:
Delphi1Prolanguage
Delphi2Prolang
Delphi3Proln
Delphi1
Delphi2
Delphi3
Как из этого списка удалить только слова только целые ...
0
голосов
1
ответ
63
показа
Странности с проектом Delphi - не изменяется позиционирование главной формы
Началось всё с невозможности изменить иконку в проекте.
Теперь заметил, что я постоянно пододвигаю окно главной формы в центр, но при каждом новом открытии проекта она опять забивается в угол. Т.е. ...
0
голосов
0
ответов
347
показов
Не устанавливается иконка для приложения Delphi
Программирую в Delphi не первый год, а уже наверное полтора десятилетия.
Но вот вопрос - не устанавливается иконка. Т.е. взял старый проект, переделал его немного, а позже заметил, что слетела иконка ...
2
голоса
0
ответов
66
показов
Генерация текста
Данный код генерирует текст по такому принципу:
Есть шаблон к примеру:
ru.stackoverflow.com - {лучший|классный|восхитительный} форум - {2019|2020|2022} года
После, генерация идет только по первым ...
0
голосов
1
ответ
65
показов
Скопировать текст из сайта в Memo
Текстовый файл Text.txt расположен на сайте и в нем текст:
Год:2020
Число:19
Месяц:09
Делаю запрос вот так:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IdHTTP1.Get('http://...
0
голосов
1
ответ
33
показа
FastReport 4 - проблема с "property FillType does not exist"
Установил по интернет инструкциям FastReport v4 (восстановление после падения Windows). FastReport заработал, если создавать новый проект.
Но случилось страшное - все проекты созданные до, перестали ...
0
голосов
0
ответов
34
показа
Настройка FastReport на Delphi XE - Fatal Error - Fatal Error: F2051 Unit RvDLDBX was compiled with a different version of SqlExpr.TSQLConnection
Устанавливал FastReport по многочисленным, раздробленным инструкциям по установки из интернета. Всё пошагово скомпилировал, установил все его компоненты (обычного инсталятора не нашёл). Проверял ...
0
голосов
1
ответ
48
показов
ProgressBar и Memo
В Memo расположено три строки:
11
22
33
По нажатию на кнопку удаляю первую строку Memo:
Memo1.Lines.delete(0);
Как сделать что бы ProgressBar заполнялся по мере удаления строк из Memo (То есть ...
2
голоса
1
ответ
78
показов
Ошибка подключения в Indy
Код ошибки вот такой:
Error connecting with SSL.
error:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert handshake failure.
Какой бы тип sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1 не ...
0
голосов
1
ответ
157
показов
Как подключить прокси при отправке сообщения на почту
Как подключить прокси при отправке сообщения на почту?.
Вот код отправки сообщения:
procedure TMainForm.ButtonSendClick(Sender: TObject);
var
SMTP : TIdSMTP;
msg : TIdMessage;
SSLOpen : ...
1
голос
1
ответ
119
показов
Удаление строк в TStringList
При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2)
var
L, K: TStringList;
i: integer;
begin
L := TStringList.Create;
L.LoadFromFile(...
0
голосов
1
ответ
43
показа
Копирование части строки из 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
ответ
401
показ
Смена текста Edit при нажатии на кнопку
На форме расположена кнопка Button1Click и Edit1.Text а также и текстовый файл 1.txt в котором есть строки:
Например:
1234567
98765432
3232323
434343434
Нужно что бы при нажатия на кнопку в Edit ...
0
голосов
1
ответ
31
показ
Как дублировать строку в Memo
В Edit1 есть текст:
Сегодня 19.07.2020
Нужно что бы при нажатии на кнопку эта строка дублировалась 5 раз в memo1. На выходе получим результат в memo1:
Сегодня 19.07.2020
Сегодня 19.07.2020
Сегодня ...
0
голосов
1
ответ
44
показа
Замена слова на слова с нумерацией
База такого типа:
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 ...
0
голосов
1
ответ
107
показов
Удаление заблокированной папки или файла
Пытаюсь удалить папку и при удалении выскакивает окошко и в нем текст:
Операция не может быть завершена, так как эта папка или файл открыты в другой программе.
Закройте папку или файл и повторите ...
-1
голос
1
ответ
62
показа
Синхронизация (изменение значений) Edit используя Dll
Как передать (изменить) данные в Edit (любой текст или сумму или отнять) используя .dll. Получаю ошибку при компиляции set.dll в виде:
[dcc32 Error] Project1.dpr(8): E2003 Undeclared identifier: '...
0
голосов
1
ответ
57
показов
Замена после символа
В текстовом файле есть строки:
112.12.34.555.123+1245.И тут текст
11.111.54.888+54544.И тут текст
333.231+554333.И тут текст
Как заменить первую точку (.) после знака плюс (+) на точку с запятой (;). ...
0
голосов
1
ответ
65
показов
Как можно ускорить алгоритм?
Не устраивает только одно - скорость работы алгоритма, как можно ускорить алгоритм в этом коде (Может из за того что использую AssignFile ?).:
Может использовать TStreamReader (но с ним работать не ...
3
голоса
1
ответ
72
показа
Копирование Handle окна используя клавиатуру
Получаю Handle окна другой программы при наведении курсора мышки на форму (то есть форму другой программы). И вывожу его в LabelHandle.Caption.
Интересует ответ на вопрос: Как, при нажатии на ...
0
голосов
1
ответ
44
показа
Cоздание копии файла
Как сделать запись в файл создав копию файла 1.exe (как на примере) ?
В коде что предоставлен ниже: Идет Запись текста из Memo1 в файл 1.exe, перезаписывая его. А нужно чтобы создавалась копия файла ...
0
голосов
1
ответ
91
показ
TOracleDataSet.Filter по двум полям
После выполнения запроса в полученном наборе данных необходимо применить фильтрацию по двум полям.
with OracleDataSet do
begin
filtred := false;
filter := 'buh = 1 and fin = 1';
...
0
голосов
1
ответ
44
показа
Как определить, нужны ли права администратора для изменения файла или нет?
У меня есть программа на Delphi, работающая с файлами. Использую я функцию AssignFile(). Проблема в том, что файлы на системном разделе требуют права администратора для их изменения. Из-за этого ...
1
голос
1
ответ
144
показа
Как правильно разбить строку на слова
Как строки вот такого вида:
1. Космос 2. Nastasia 3. mamochka.dochka0702 4. kyklabratz 5. ProstoTanya 6. Olga135
Разбить таким образом что бы на выходе получились только имена и в столбик. То есть ...
1
голос
1
ответ
183
показа
Работа OpenDialog в цикле
Как обработать несколько файлов открыв их через OpenDialog. Добавила в код:
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
if OpenDialog1.Execute then
И после:
procedure ...
0
голосов
1
ответ
52
показа
Поиск числовых значений
Функция ищет все числовые значения в строках. Как сделать что бы функция искала только числовые значения длина которых равна = 5.
То есть строка состоит из:
12345 FC-text212 12345FC-text212
На ...
0
голосов
1
ответ
209
показов
Добавить данные в файл формата .exe и получить их обратно
Имеется список exe файлов, небольшого размера.
Пример, список:
1.exe
2.exe
3.exe
Нужно в конце каждого из низ в добавить данные, в виде Hex строки. В Memo1 расположен текст.
2010
2011
2012
Нужно ...
1
голос
0
ответов
69
показов
Корректный поиск китайских и польских писем imap
var
MSG_COUNT: Integer;
SearchInfo: array of TIdIMAP4SearchRec;
begin
createImap;
SetLength(SearchInfo, 1);
Imap.SelectMailBox('INBOX');
SearchInfo[0].SearchKey := skFrom;
SearchInfo[0].Text ...
3
голоса
1
ответ
242
показа
Передача параметра контекстного меню проводника
У меня есть приложение, которое добавляет в контекстное меню проводника Windows созданный мною пункт. Вопрос: можно ли каким-либо способом определить имя файла, в котором я открыл данный пункт меню, и,...
6
голосов
3
ответа
185
показов
Можно ли использовать это поле в IDE Delphi для своих целей?
В инспекторе объектов имеется поле, похожее на многострочное, которое тупо копирует название свойств при навигации, т.е. оно абсолютно бесполезно. Что ещё хуже, его даже нельзя скрыть!
Хотелось бы в ...
0
голосов
1
ответ
53
показа
CheckColumn in StringGrid
Как программно заполнить(выставить чеки) поле CheckColumn из Базы данных? Использую SQLite и поле Status INTEGER. В примере от Embarcadero делается с Visual Bind. Никаких SetCheck или isCheck не нашел ...
0
голосов
1
ответ
156
показов
Как объявлять константу перечислимого сложного типа?
Часто нужно объявить сложный перечислимый тип.
Например
type
TMyType = (mtFirst, mtSecond);
У каждого элемента перечисления должны быть строковые представления и числовые значения (например). ...
0
голосов
2
ответа
281
показ
Сохранить WindowState формы в ini файл и получить обратно
Необходимо сохранить состояние формы (WindowState)+Top,Left,Height,Width при закрытии и восстановить при повторном открытии.
Делаю так:
procedure main_form_write(Sen: TForm);
var
ini_u: TIniFile;
...