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

Пользователи
  • Публикаций

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

  • Посещение

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

    1

Гумар Садиков стал победителем дня 26 апреля

Гумар Садиков имел наиболее популярный контент!

1 Подписчик

Информация о Гумар Садиков

  • Звание
    Новичок
  • День рождения 05.10.1965

Информация

  • Пол
    Мужчина
  • Город
    КАЗАНЬ
  • Интересы
    ПРОГРАММИРОВАНИЕ

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

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

    Объявления процедур и функций горячими клавишими

    Вот такую ошибку выводить:
  2. Добрый день форумчане ! Подскажите пожалуйста, как можно использовать при объявлении процедур и функций горячие клавиши ? ( Редакция : Delphi XE7 )Как то в разделе private: procedure AddListItem(list: array of string; itype: string); Выделить это все, и какие клавиши нажать ? Чтоб процедура оказалась в теле: procedure TForm1.AddListItem(list: array of string; itype: string); var LItem: TListBoxItem; begin end;
  3. Гумар Садиков

    Сканирование папок

    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
  4. Добрый день! Помоги пожалуйста как организовал дилоговое окно, пишу текст на Memo1 и хочу сохранить задавая название файлу .txt в диалоговом окне. Edit1 теряет Фокус и сворачивается. У меня Андроид 6.0 Lenovo