Вопросы с меткой [delphi-xe]

Delphi XE, выпущен 30 августа 2010 года. При использовании этой метки, добавляйте метку Delphi.

Фильтрация
Сортировка
Метки
0 голосов
0 ответов
54 показа

Сгенерировать все возможные комбинации из заглавных и строчных букв

Как получить все возможные комбинации из заглавных и строчных букв в слове не меняя их порядок. К примеру имеем слово на входе abc12 А на выходе получим abc12 abC12 aBc12 aBC12 Abc12 AbC12 ABc12 ...
Gleb's user avatar
  • 35
0 голосов
1 ответ
59 показов

Проверка и сохранение строк

Я проверяю дубликаты строк до символа =. И если строки есть то сохранить не удаляя дубликаты. var f, s: TStringDynArray; i, j, k: integer; L, L1: TStringList; index: array of integer; ...
Gleb's user avatar
  • 35
0 голосов
0 ответов
62 показа

Как декодировать Base64 в Zlib в строку?

Есть строка закодированная в base64, соответственно при декодировании мы получаем массив байтов, который сжат в Zlib-e (это ответ webSocket'a), нужно вытащить строку в читаемом формате, ...
KPOC's user avatar
  • 11
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. Хотя в целом ...
KPOC's user avatar
  • 11
-1 голос
1 ответ
25 показов

Загрузка значений в GetDriveType и GetVolumeInformatio из файла

Как можно загрузить значения 'c:/' диска в GetDriveType и GetVolumeInformatio из текстового файла, из первой строки текстового файла. var Form2: TForm2; SerialNum,dtyp:Dword; a,b:DWORD; Buffer,...
Татьяна's user avatar
0 голосов
1 ответ
120 показов

декодирование архива zip Base64

Я получаю XML в нем есть атрибут закодированный в Base64 - архив zip. Подскажите как декодировать и сохранить zip архив локально?
djoni's user avatar
  • 103
0 голосов
1 ответ
67 показов

Webbrowser не способен отобразить reCAPTCHA

Можно как то заставить компонент Webbrowser1 отобразить reCAPTCHA ? В моем случае страница просто загружается а reCAPTCHA нет. WebBrowser1.Navigate('Ссылка на сайт'); WebBrowser1.Silent := True;
Татьяна's user avatar
0 голосов
1 ответ
80 показов

Текст в одну строчку

Есть строки такого типа: *Number:Date // То есть тут начало, где есть символ * Number:Date Number:Date Number:Date Number:Date Number:Date *Number:Date // То есть тут начало, где есть символ * Number:...
Татьяна's user avatar
1 голос
1 ответ
46 показов

Удаление и сравнения одинаковых папок

Интересует решения такого вопроса: Есть список папок с подобными именами dsrecr7e7 787 dsrecr7e7 587 ctqcfw7w4 6578 Как удалить дубликаты папок и все что в них сравнивая их до первого пробела. То ...
Татьяна's user avatar
-2 голоса
1 ответ
53 показа

Объединение строк в Memo

В Memo1 есть текст aaa: 111 одинаковые слова до двоеточие aaa: 222 одинаковые слова до двоеточие aaa: 333 одинаковые слова до двоеточие bbb: 444 ccc: 555 одинаковые слова до двоеточие ccc: 777 ...
Татьяна's user avatar
0 голосов
1 ответ
52 показа

Быстро обрезать ссылки до доменов Memo

Как в Memo1 обрезать ссылки до доменов удалив все https и http. https://site1.ru/threads/fdfddd2/ http://site2.ru/threads/fdfddd23434/ https://site3.ru/threads/fdfddd434/ Что бы на выходе получилось ...
Татьяна's user avatar
1 голос
2 ответа
98 показов

Ввод значений в Edit

Как сделать вывод спец символов в Edit? что бы можно было указывать в Edit1.Text символы которые удалить ? if s[i] in ['!', '+'] then Delete(s, i, 1) Если делаю вот так if s[i] in CharinSet(edit1....
Татьяна's user avatar
0 голосов
1 ответ
65 показов

Сохранение дубликатов строк

Как сохранить все дубликаты строк, именно сохранить а не удалить. Вот так удаление идет дубликатов а вот интересно как их сохранить в отдельный файл ? var f1: TextFile; st: string; s: ...
Татьяна's user avatar
1 голос
1 ответ
95 показов

Удалить цифры с конца строки до первой буквы

Есть строки: dsds444dhhdhshhdhs1233 dd33ssddsdsdhs332 dsd777hhjjhs1233 Нужно удалить цифры с конца строки до первой буквы. И результат: dsds444dhhdhshhdhs dd33ssddsdsdhs dsd777hhjjhs Делаю вот так ...
Татьяна's user avatar
0 голосов
1 ответ
52 показа

Перевод буквы в нижний регистр

Есть строки вот такого плана: Price=123:Acf3456 Ac_number=123(A):Gpm456 Price=5678:Bms3456 Ac_number=5678(B):Kprt456 Как перевести первую букву после двоеточия в нижний регистр. На выходе результат: ...
Татьяна's user avatar
-1 голос
2 ответа
193 показа

Как соединить несколько строк в одну?

В текстовом файле расположены строки в таком виде: >>> Stroka1 Stroka2 Stroka3 >>> >>> Stroka4 Stroka5 Stroka6 Stroka7 >>> Как соединить строки что между символами ...
Татьяна's user avatar
0 голосов
1 ответ
123 показа

Удаление переносов строк в Memo

Загружаю в Memo1 список строк из текстового файла. Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'stroki.txt'); Длина каждой строки до 2000 символом. Почему memo режет каждую строку ...
Татьяна's user avatar
0 голосов
2 ответа
117 показов

Удаление только слов

Собственно вопрос в чем: В текстовом файле имеются строки вот такого вида: Delphi1Prolanguage Delphi2Prolang Delphi3Proln Delphi1 Delphi2 Delphi3 Как из этого списка удалить только слова только целые ...
Татьяна's user avatar
0 голосов
1 ответ
63 показа

Странности с проектом Delphi - не изменяется позиционирование главной формы

Началось всё с невозможности изменить иконку в проекте. Теперь заметил, что я постоянно пододвигаю окно главной формы в центр, но при каждом новом открытии проекта она опять забивается в угол. Т.е. ...
I_CaR's user avatar
  • 2,673
0 голосов
0 ответов
347 показов

Не устанавливается иконка для приложения Delphi

Программирую в Delphi не первый год, а уже наверное полтора десятилетия. Но вот вопрос - не устанавливается иконка. Т.е. взял старый проект, переделал его немного, а позже заметил, что слетела иконка ...
I_CaR's user avatar
  • 2,673
2 голоса
0 ответов
66 показов

Генерация текста

Данный код генерирует текст по такому принципу: Есть шаблон к примеру: ru.stackoverflow.com - {лучший|классный|восхитительный} форум - {2019|2020|2022} года После, генерация идет только по первым ...
Татьяна's user avatar
0 голосов
1 ответ
65 показов

Скопировать текст из сайта в Memo

Текстовый файл Text.txt расположен на сайте и в нем текст: Год:2020 Число:19 Месяц:09 Делаю запрос вот так: procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(IdHTTP1.Get('http://...
Татьяна's user avatar
0 голосов
1 ответ
33 показа

FastReport 4 - проблема с "property FillType does not exist"

Установил по интернет инструкциям FastReport v4 (восстановление после падения Windows). FastReport заработал, если создавать новый проект. Но случилось страшное - все проекты созданные до, перестали ...
I_CaR's user avatar
  • 2,673
0 голосов
0 ответов
34 показа

Настройка FastReport на Delphi XE - Fatal Error - Fatal Error: F2051 Unit RvDLDBX was compiled with a different version of SqlExpr.TSQLConnection

Устанавливал FastReport по многочисленным, раздробленным инструкциям по установки из интернета. Всё пошагово скомпилировал, установил все его компоненты (обычного инсталятора не нашёл). Проверял ...
I_CaR's user avatar
  • 2,673
0 голосов
1 ответ
48 показов

ProgressBar и Memo

В Memo расположено три строки: 11 22 33 По нажатию на кнопку удаляю первую строку Memo: Memo1.Lines.delete(0); Как сделать что бы ProgressBar заполнялся по мере удаления строк из Memo (То есть ...
Татьяна's user avatar
2 голоса
1 ответ
78 показов

Ошибка подключения в Indy

Код ошибки вот такой: Error connecting with SSL. error:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert handshake failure. Какой бы тип sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1 не ...
Татьяна's user avatar
0 голосов
1 ответ
157 показов

Как подключить прокси при отправке сообщения на почту

Как подключить прокси при отправке сообщения на почту?. Вот код отправки сообщения: procedure TMainForm.ButtonSendClick(Sender: TObject); var SMTP : TIdSMTP; msg : TIdMessage; SSLOpen : ...
Gleb's user avatar
  • 35
1 голос
1 ответ
119 показов

Удаление строк в TStringList

При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2) var L, K: TStringList; i: integer; begin L := TStringList.Create; L.LoadFromFile(...
Gleb's user avatar
  • 35
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 ...
Gleb's user avatar
  • 35
1 голос
1 ответ
401 показ

Смена текста Edit при нажатии на кнопку

На форме расположена кнопка Button1Click и Edit1.Text а также и текстовый файл 1.txt в котором есть строки: Например: 1234567 98765432 3232323 434343434 Нужно что бы при нажатия на кнопку в Edit ...
Татьяна's user avatar
0 голосов
1 ответ
31 показ

Как дублировать строку в Memo

В Edit1 есть текст: Сегодня 19.07.2020 Нужно что бы при нажатии на кнопку эта строка дублировалась 5 раз в memo1. На выходе получим результат в memo1: Сегодня 19.07.2020 Сегодня 19.07.2020 Сегодня ...
Gleb's user avatar
  • 35
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 ...
Gleb's user avatar
  • 35
0 голосов
1 ответ
107 показов

Удаление заблокированной папки или файла

Пытаюсь удалить папку и при удалении выскакивает окошко и в нем текст: Операция не может быть завершена, так как эта папка или файл открыты в другой программе. Закройте папку или файл и повторите ...
Gleb's user avatar
  • 35
-1 голос
1 ответ
62 показа

Синхронизация (изменение значений) Edit используя Dll

Как передать (изменить) данные в Edit (любой текст или сумму или отнять) используя .dll. Получаю ошибку при компиляции set.dll в виде: [dcc32 Error] Project1.dpr(8): E2003 Undeclared identifier: '...
Gleb's user avatar
  • 35
0 голосов
1 ответ
57 показов

Замена после символа

В текстовом файле есть строки: 112.12.34.555.123+1245.И тут текст 11.111.54.888+54544.И тут текст 333.231+554333.И тут текст Как заменить первую точку (.) после знака плюс (+) на точку с запятой (;). ...
Gleb's user avatar
  • 35
0 голосов
1 ответ
65 показов

Как можно ускорить алгоритм?

Не устраивает только одно - скорость работы алгоритма, как можно ускорить алгоритм в этом коде (Может из за того что использую AssignFile ?).: Может использовать TStreamReader (но с ним работать не ...
Татьяна's user avatar
3 голоса
1 ответ
72 показа

Копирование Handle окна используя клавиатуру

Получаю Handle окна другой программы при наведении курсора мышки на форму (то есть форму другой программы). И вывожу его в LabelHandle.Caption. Интересует ответ на вопрос: Как, при нажатии на ...
Татьяна's user avatar
0 голосов
1 ответ
44 показа

Cоздание копии файла

Как сделать запись в файл создав копию файла 1.exe (как на примере) ? В коде что предоставлен ниже: Идет Запись текста из Memo1 в файл 1.exe, перезаписывая его. А нужно чтобы создавалась копия файла ...
Татьяна's user avatar
0 голосов
1 ответ
91 показ

TOracleDataSet.Filter по двум полям

После выполнения запроса в полученном наборе данных необходимо применить фильтрацию по двум полям. with OracleDataSet do begin filtred := false; filter := 'buh = 1 and fin = 1'; ...
djoni's user avatar
  • 103
0 голосов
1 ответ
44 показа

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

У меня есть программа на Delphi, работающая с файлами. Использую я функцию AssignFile(). Проблема в том, что файлы на системном разделе требуют права администратора для их изменения. Из-за этого ...
RenGrand's user avatar
1 голос
1 ответ
144 показа

Как правильно разбить строку на слова

Как строки вот такого вида: 1. Космос 2. Nastasia 3. mamochka.dochka0702 4. kyklabratz 5. ProstoTanya 6. Olga135 Разбить таким образом что бы на выходе получились только имена и в столбик. То есть ...
Татьяна's user avatar
1 голос
1 ответ
183 показа

Работа OpenDialog в цикле

Как обработать несколько файлов открыв их через OpenDialog. Добавила в код: OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect]; if OpenDialog1.Execute then И после: procedure ...
Татьяна's user avatar
0 голосов
1 ответ
52 показа

Поиск числовых значений

Функция ищет все числовые значения в строках. Как сделать что бы функция искала только числовые значения длина которых равна = 5. То есть строка состоит из: 12345 FC-text212 12345FC-text212 На ...
Татьяна's user avatar
0 голосов
1 ответ
209 показов

Добавить данные в файл формата .exe и получить их обратно

Имеется список exe файлов, небольшого размера. Пример, список: 1.exe 2.exe 3.exe Нужно в конце каждого из низ в добавить данные, в виде Hex строки. В Memo1 расположен текст. 2010 2011 2012 Нужно ...
Татьяна's user avatar
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 ...
KPOC's user avatar
  • 11
3 голоса
1 ответ
242 показа

Передача параметра контекстного меню проводника

У меня есть приложение, которое добавляет в контекстное меню проводника Windows созданный мною пункт. Вопрос: можно ли каким-либо способом определить имя файла, в котором я открыл данный пункт меню, и,...
RenGrand's user avatar
6 голосов
3 ответа
185 показов

Можно ли использовать это поле в IDE Delphi для своих целей?

В инспекторе объектов имеется поле, похожее на многострочное, которое тупо копирует название свойств при навигации, т.е. оно абсолютно бесполезно. Что ещё хуже, его даже нельзя скрыть! Хотелось бы в ...
Isaev's user avatar
  • 2,421
0 голосов
1 ответ
53 показа

CheckColumn in StringGrid

Как программно заполнить(выставить чеки) поле CheckColumn из Базы данных? Использую SQLite и поле Status INTEGER. В примере от Embarcadero делается с Visual Bind. Никаких SetCheck или isCheck не нашел ...
Mirzjali's user avatar
0 голосов
1 ответ
156 показов

Как объявлять константу перечислимого сложного типа?

Часто нужно объявить сложный перечислимый тип. Например type TMyType = (mtFirst, mtSecond); У каждого элемента перечисления должны быть строковые представления и числовые значения (например). ...
stoi's user avatar
  • 11
0 голосов
2 ответа
281 показ

Сохранить WindowState формы в ini файл и получить обратно

Необходимо сохранить состояние формы (WindowState)+Top,Left,Height,Width при закрытии и восстановить при повторном открытии. Делаю так: procedure main_form_write(Sen: TForm); var ini_u: TIniFile; ...
idrees's user avatar
  • 386