Перейти к содержанию
Fire Monkey от А до Я

Гумар Садиков

Пользователи
 Профиль  Обзор контента

  • Постов

    6

  • Зарегистрирован

  • Посещение

  • Победитель дней

    1

Активность репутации

  1. Like
    FireMy
    Гумар Садиков получил реакцию от FireMy в Failure [INSTALL_FAILED_OLDER_SDK]   
  2. Thanks
    FireMy
    Гумар Садиков получил реакцию от FireMy в Объявления процедур и функций горячими клавишими   
    Вот такую ошибку выводить:

  3. Like
    Гумар Садиков
    Гумар Садиков отреагировална rareMax в Объявления процедур и функций горячими клавишими   
    Пропустили символ ;
  4. Like
    Гумар Садиков
    Гумар Садиков отреагировална FireMy в Failure [INSTALL_FAILED_OLDER_SDK]   
    Такие ошибки возникают если папки сохранения называются русскими буквами. Лучше свои проекты сохраните в папке С/ дайте имена на английском языке. Ещё если отладку производите через USB кабель, на реальном планшете, телефоне удалите проект с Вашего планшета, смартфона. Если такие названия уже имеется например: Проект1.
  5. Like
    Ingalime
    Гумар Садиков получил реакцию от Ingalime в Сканирование папок   
    unit Unit3;
    interface
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,System.IOUtils,
      FMX.ListView.Types, FMX.ListView;
    type
      TForm3 = class(TForm)
        ListView1: TListView;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      Form3: TForm3;
    implementation
    {$R *.fmx}
    {$R *.NmXhdpiPh.fmx ANDROID}
    procedure TForm3.FormCreate(Sender: TObject);
    var
      LList: TStringDynArray; // Cписок .JPG файлов
      LItem: TListViewItem;   // Cписок .JPG файлов
      path: string;           // Папки в которой будем искать файлы
      i: Integer;
    begin
      if TDirectory.Exists('/storage/') then
         path := '/storage/'
      else path := '/sdcard/';
    try
         LList := TDirectory.GetFiles(path, '*.JPG', TSearchOption.soAllDirectories);
    except
         ShowMessage('Произошла ошибка !');
         Exit;
    end;
         ListView1.BeginUpdate;
    try
    for i := 0 to Length(LList) - 1 do
    begin
         LItem := ListView1.Items.Add;
         LItem.Text := TPath.GetFileNameWithoutExtension(LList);
         LItem.Detail := LList;
    end;
    finally
        ListView1.EndUpdate;
    end;
    end;
    end.
    0_3.rar
×
×
  • Создать...