Вопросы с меткой [delphi-xe5]
Delphi XE5, выпущен 11 сентября 2013 года. При использовании этой метки, добавляйте метку Delphi.
38
вопросов
0
голосов
0
ответов
66
показов
Сгенерировать все возможные комбинации из заглавных и строчных букв
Как получить все возможные комбинации из заглавных и строчных букв в слове не меняя их порядок.
К примеру имеем слово на входе
abc12
А на выходе получим
abc12
abC12
aBc12
aBC12
Abc12
AbC12
ABc12
...
0
голосов
1
ответ
81
показ
Сохранение дубликатов строк
Как сохранить все дубликаты строк, именно сохранить а не удалить.
Вот так удаление идет дубликатов а вот интересно как их сохранить в отдельный файл ?
var
f1: TextFile;
st: string;
s: ...
2
голоса
0
ответов
74
показа
Генерация текста
Данный код генерирует текст по такому принципу:
Есть шаблон к примеру:
ru.stackoverflow.com - {лучший|классный|восхитительный} форум - {2019|2020|2022} года
После, генерация идет только по первым ...
0
голосов
1
ответ
56
показов
Как в Delphi объявить константу равную меньшей из двух других?
Для удобства работы, хочу задать некоторые ограничения константами. Например:
const
MAX_BUFFERS = 16;
MAX_SOURCES = 32;
MAX_SOUNDS = 16;
Часть из констант со-зависимы. Хочу их связать. ...
0
голосов
1
ответ
169
показов
Как масштабировать видео с веб камеры?
Есть код (исходник) на Delphi, который отлично захватывает видео с веб камеры.
Как реализовать ползунок, при передвижении которого бы видео масштабироваось?
interface
uses
Windows, Messages, ...
1
голос
1
ответ
157
показов
Удаление строк в TStringList
При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2)
var
L, K: TStringList;
i: integer;
begin
L := TStringList.Create;
L.LoadFromFile(...
0
голосов
1
ответ
45
показов
Копирование части строки из memo в Edit
Есть:
Edit1.Text
Edit2.Text
Edit3.Text
Edit4.Text
В Memo1 первая строка:
User1/15/21.06.12/568
Я нажимаю кнопку и переносим значения с Memo.Lines[0]. То есть с первой строки Memo в Edit:
Edit1.Text ...
0
голосов
1
ответ
50
показов
Замена слова на слова с нумерацией
База такого типа:
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 ...
3
голоса
1
ответ
83
показа
Копирование Handle окна используя клавиатуру
Получаю Handle окна другой программы при наведении курсора мышки на форму (то есть форму другой программы). И вывожу его в LabelHandle.Caption.
Интересует ответ на вопрос: Как, при нажатии на ...
1
голос
1
ответ
192
показа
Как правильно разбить строку на слова
Как строки вот такого вида:
1. Космос 2. Nastasia 3. mamochka.dochka0702 4. kyklabratz 5. ProstoTanya 6. Olga135
Разбить таким образом что бы на выходе получились только имена и в столбик. То есть ...
1
голос
1
ответ
236
показов
Работа OpenDialog в цикле
Как обработать несколько файлов открыв их через OpenDialog. Добавила в код:
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
if OpenDialog1.Execute then
И после:
procedure ...
0
голосов
1
ответ
98
показов
Как определить, какой пункт контекстного меню был нажат в Delphi?
Здравствуйте. Пишу приложение в среде Delphi. Для его запуска использую два пункта контекстного меню, которые добавляю через реестр. Вопрос, как сделать так, чтобы приложение различало, какой из двух ...
2
голоса
2
ответа
191
показ
Как добавить нулевой байт в файл Delphi?
Столкнулся с проблемой в Delphi. Имеется файловая переменная F: File. Как в нее добавить нулевой байт? Это нужно осуществить с помощью процедуры BlockWrite.
1
голос
3
ответа
773
показа
Как в Delphi узнать количество занимаемой приложением оперативной памяти?
Во время работы приложения по обработке больших объемов данных, хочу стартовать отдельный фоновый поток и мониторить объем занимаемой приложением оперативной памяти. По аналогии с тем, как Task ...
0
голосов
1
ответ
190
показов
Delphi XE5 ресайз PNG с альфа каналом
Проблема с ресайзом, как изменить размер чтобы сохранился альфа канал в нормальном его виде. На картинке слева - исходный png(900x900) загруженный в TImage, справа - ресайз через BitMap с ...
0
голосов
2
ответа
1k
показов
Как создать простой текстовой файл в Делфи?
Мне нужно создать простой текстовый файл в Делфи и записать в него буквально пару строк. Как это сделать максимально просто?
Например, создать 1.txt по пути D:\folder\ с содержимым 123456 и 777.
1
голос
1
ответ
181
показ
Как правильно привести поля запроса к нужному типу?
Использую TSQLQuery из библиотеки dbExpress
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text := 'select cast(0.001 as float)';
SQLQuery1.Open;
SQLQuery1.First;
Memo1.Lines.Add(FloatToStr(SQLQuery1....
1
голос
1
ответ
324
показа
Как из главого потока определить состояние дополнительных потоков?
Имеется главная форма с кнопкой, которая запускает и останавливает дополнительный поток:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(MyThread) then
begin
Button1....
0
голосов
2
ответа
2k
показов
Приведение типов TJSONObject и TJSONArray
На входе имеется строка с JSON-документом неопределенного типа. Возможны варианты: JSONObject, JSONArray или пустая строка не являющаяся JSON-документом. Как определить тип документа и привести его к ...
1
голос
1
ответ
2k
показов
Indy EIdHTTPProtocolException HTTP/1.1 400 Bad Request
Пытаюсь воспользоваться API ресурса. Для запроса с авторизацией руководствуюсь данной инструкцией https://bitfinex.readme.io/v1/docs/rest-auth В качестве эксперимента скомпилировал приведенный там ...
0
голосов
0
ответов
252
показа
Как из потока (Thread) корректно читать состояния визуальных компонентов главной формы?
Допустим из потока с циклом необходимо проверять состояние CheckBox который находится на главной форме. Будет ли корректна нижеследующая реализация, через булевую глобальную переменную, чтение и ...
2
голоса
1
ответ
291
показ
Как в Delphi узнать последнюю строчку своего кода, в котором возникло исключение?
В некоторых случаях при возникновении ошибок, во время отладки, компилятор показывает строчку дельфовых библиотек, где именно возникло исключение. Например обращение к несуществующему индексу массивов ...
1
голос
1
ответ
344
показа
Повторная отправка запроса из IdHttp при возникновении EIdReadTimeout
В отдельном потоке имеется функция возвращающая ответ от сервера, но временами ресурс работает очень нестабильно и ответы от него приходят через раз, вываливаясь в исключение по таймауту ...
2
голоса
1
ответ
224
показа
Прямое присваивание значений полям записи в конструкции TList<record>
Чтобы была понятна суть вопроса привожу упрощенный код:
type
TMyRecord = record
Field1, Field2, Field3: String
end;
TMyList = class(TList<TMyRecord>);
var
MyList: TMyList;
...
2
голоса
2
ответа
1k
показов
Как правильно уничтожать вложенные объекты JSON-документа в Delphi?
var
JSONObject: TJSONObject;
JSONArray: TJSONArray;
...
JSONObject:=TJSONObject.ParseJSONValue(S) as TJSONObject;
try
JSONArray := JSONObject.Get(0).JsonValue as TJSONArray;
try
Memo1....
5
голосов
5
ответов
579
показов
Как разрешить циклические зависимости в Делфи?
Допустим у нас есть 2 класса, расположенных в разных юнитах:
TMaster - хозяин собаки, который должен о ней знать
TDog - собака, которая должна знать о своем хозяине
Unit_Master:
uses Unit_Dog;
type ...
0
голосов
0
ответов
323
показа
Indy socket error
Динамически создаю IdHTTP, выполняю POST-запрос на свой php-скрипт. Source example:
http := TIdHTTP.Create(Nil);
try
sl.add('name=value');
try
html.Text := http.Post('http://page.ru', sl);
...
-2
голоса
1
ответ
2k
показов
Пример Android приложения на Delphi XE - БД изображений и способы ее передачи на ПК
Помогите с примерами на Delphi XE5-8.
Система будет состоять из 2-х частей: приложение на Андроид - дневник, где пользователь делает записи, приклепляет фото c камеры или галереи.
Приблизительно раз в ...
1
голос
1
ответ
48
показов
E2033 Types of actual and formal var parameters must be identical
При компиляции кода из Delphi 2010 в XE5 возникает ошибка.
if( not GetExitCodeProcess( ProcessInfo.hProcess, pExitCode^ ) )then begin
pExitCode^ := 0;
end;
В модуле ...
0
голосов
2
ответа
676
показов
Как соединить две процедуры или переделать одну процедуру в функцию?
Подскажите, как соединить две процедуры или переделать одну процедуру в функцию так, чтобы из первой процедуры (функции) передать значение во вторую.
Function TForm1.Button1Click(Sender: TObject);
...
0
голосов
2
ответа
2k
показов
Работа с кардридером
Добрый день!
Подскажите, плиз. Кто писал проекты на делфи по работе с кардридером, чтобы считывать и записывать чипованые пластиковые карточки?
Это нужно не для взлома и уж тем более не для кражи ...
0
голосов
1
ответ
325
показов
Как создать библиотеку иконок?
Всем привет! Не нашел подробного описания в интернете по созданию библиотеки иконок. Прошу помогите ссылкой или инструкцией.
0
голосов
1
ответ
881
показ
Предупреждение: [dcc32 Warning] W1030 Invalid compiler directive: 'true'
Всем привет! При компиляции выдало предупреждение: [dcc32 Warning] W1030 Invalid compiler directive: 'true'. Работе приложения это не мешает, однако считаю, что "врага надо знать в лицо". Прогуглил - ...
0
голосов
2
ответа
1k
показов
Создание и уничтожение форм. Освобождение переменных.
Добрый день, уважаемые программисты!
По нажатию кнопки создаю форму и отображаю:
newform:=Tnewform.Create(Self);
newform.ShowModal;
Потом закрываю новую форму и снова жму на кнопочку. И так ...
0
голосов
1
ответ
461
показ
Изменение размеров иконок в ListView
Загрузил в ListView иконки. Хочу при нажатии на кнопку изменить их размер. Размер изменяется, но иконки не отображаются, отображаются только подписи к ним. Решил проблему следующим образом: при ...
0
голосов
1
ответ
242
показа
Проблемы с плавным перемещением TSplitter.
Доброго времени суток, уважаемые программисты! Вероятно, моя проблема Вам покажется очень глупой, но всё же я её озвучу: поставил между двумя панелями TSplitter (одна панель выровнена по верху, вторая ...
0
голосов
1
ответ
463
показа
Функция ExtractIconEx
Добрый день, уважаемые программисты! Написал процедуру для извлечения иконок. Всё работает, но не смог до конца разобраться с функцией:
ExtractIconEx
Конкретно меня интересует, каким должен быть ...
1
голос
1
ответ
752
показа
Утечка памяти TStringList
Решил создать простую программку для проверки папки в режиме реального времени, ну, или почти. Создал форму, написал поток (Thread), в общем коде написал функцию реализующую почти весь необходимый мне ...