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

9 часов назад, Gumer Lee сказал:

Такие ошибки возникают если папки сохранения называются русскими буквами. Лучше свои проекты сохраните в папке С/ дайте имена на английском языке. Ещё если отладку производите через USB кабель, на реальном планшете, телефоне удалите проект с Вашего планшета, смартфона. Если такие названия уже имеется например: Проект1.

Вот такую ошибку выводить:

2 минуты назад, WinterSun сказал:

Здравствуйте. 

Shift+Ctrl+C

Delphi-Default-IDE-Shortcut-Keys.pdf

Спасибо WinterSun !!!

Добрый день форумчане ! Подскажите пожалуйста, как можно использовать при объявлении процедур и функций горячие клавиши ? ( Редакция : 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;

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

В 15.03.2017 в 12:56, Anasazi сказал:

У меня подобная хрень была. 

Пришлось совсем отказаться от Tedit и Tmemo. Заменил на Tlabel, при клике открываю диалоговое окно с полем ввода.

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