slav_z
Пользователи-
Постов
233 -
Зарегистрирован
-
Посещение
-
Победитель дней
33
Весь контент slav_z
-
не за что... какая ошибка то?
-
если нужно просто установить фон для формы можно сделать это без всякого кода и дополнительных ресурсов:
-
Unit1.zip
-
скорее всего стиль у TListBox еще не загружен... и ему нечего еще прокручивать... попробуйте это:
-
с такими вопросами лучше к семейному психологу.. тут на них не ответят...
-
здесь на форуме это все уже обсуждалось... на андроид 11 изменилось расположение системных библиотек... дельфи 10.2 об этом не знает... 10.3.3 еще можно было заставить работать с андроид 11 (исправлением и перекомпиляцией System.pas)... но надо ставить 10.4... надо... sdk и файл манифеста тыркать бесполезно....
-
Все разработчики при работе с FMX рано или поздно сталкиваются с одной и той же проблемой: необходимо исключить "случайное" срабатывание нажатий элементов внутри скроллбокса во время его скроллинга. Идут годы, а решения так и нет. Давайте попробуем это исправить. Поехали! Запускаем IDE, создаем новый проект, кидаем на форму TVertScrollBox и на него чего-нибудь побольше... запускаем на мобильном устройстве, пытаемся скроллировать, получаем проблемы в виде срабатывания разных событий типа OnClick элементов. Решение состоит в том, чтобы сделать элементы "невидимыми" для событий связанных с действиями пользователя с экраном во время скроллинга. Делаем следующее: Все. Переносим код в базовую форму, делаем его более гибким, убираем все те костыли, которые мы уже успели сделать ранее... Удачи! https://github.com/slav-libx/scroll-click.git
-
без разницы... windows понимает и туда и обратно...
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
сделайте простейший проект в котором воспроизводится ошибка... и киньте сюда.. а то как в наперстки играем...
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
ListBox1.Items.AddStrings(TDirectory.GetFiles('c:/','*'+Exp,TSearchOption.soAllDirectories)); но работать она будет не быстро.. ей надо всю структуру диска С обойти... лучше ее в отдельном потоке запускать...
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
тогда понятно... эта функция только из определенного каталога файлы получает... ща попробую..
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
смотрите причину у себя.. значение Exp указано? в корне диска С точно есть такие файлы? после нигде нет очистки ListBox?
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
да... но именно эта строка не только получит все нужные файлы из указанной директории, но и добавит их в ListBox
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
вот ваш код с ListBox... все работает без ошибок procedure TForm1.FormCreate(Sender: TObject); begin Exp:='.txt'; ListBox1.Items.AddStrings(TDirectory.GetFiles(TDirectory.GetCurrentDirectory,'*'+Exp)); end; procedure TForm1.Button1Click(Sender: TObject); var FileIndex, FileName : String; I : Integer; begin randomize; FileIndex := IntToStr(random(5000)); for I := 0 to ListBox1.Items.Count-1 do begin FileIndex := IntToStr(StrToInt(FileIndex) + 1); FileName := FileIndex + Exp; TFile.Copy(ListBox1.Items[I], FileName); end; //Timer2.Enabled := False; end; проверьте ВСЕ ваши файлы doc на наличие флага "только для чтения"... место на диске есть?... без вашего проекта сложно угадать причину...
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
ага можете указать там свою директорию где лежат ваши doc файлы
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
цикл по текстовым файлам из указанной директории для вас будет for S in TDirectory.GetFiles(TDirectory.GetCurrentDirectory,'*.doc') do
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
инкремент значения Inc(I) это I:=I+1
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
TPath.GetFileName(ListBox1.Items)
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
без вашего проекта можно долго гадать... похожий код у меня работает без ошибок... procedure TForm1.Button6Click(Sender: TObject); var S: string; I: Integer; begin I:=random(5000); for S in TDirectory.GetFiles(TDirectory.GetCurrentDirectory,'*.txt') do begin Inc(I); TFile.Copy(S,I.ToString+'.txt',True); end; end;
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
подозрение на таймер... (перенесите Timer2.Enabled := False; в начало метода, может он где то запускается повторно) подозрение на функцию random()... почему именно так сделано получение начального индекса для файлов?
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом:
-
если есть антивирус... он тоже может мешать...
- 40 ответов
-
- delphi
- delphi 10.3.3
-
(и ещё 6 )
C тегом: