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

rareMax

Пользователи
  • Постов

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

  • Посещение

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

    35

Сообщения, опубликованные rareMax

  1. 12 часов назад, wamaco сказал:
    
    TBar = class
      private
        FValue1: Integer;
      // FFoo: TFoo;
      public
        Value2: Integer;
        property Value3: Integer read FValue1 write FValue1;
      //  property Foo: TFoo read FFoo write FFoo;
      end;

    Попробуй так...

    Ну на самом деле FFoo в приватной секции мне нужна.

    12 часов назад, r@di0 сказал:

    TFoo = class(TObject)
      private
        [JSONMarshalled(False)]
        FAge: Byte;
      public
        FName    : string;
        FSurname : string;
      end;

    Отлично, то что нужно

  2. Как убрать поле класса из сериализации через Rest.Json?

    Вот как я пробую избавиться от поля Foo:

    program Project1;
    
    {$APPTYPE CONSOLE}
    
    {$R *.res}
    
    uses
      REST.Json,
      System.JSON.Serializers,
      System.SysUtils;
    
    type
      TFoo = class
      private
        FValue1: Integer;
      public
        Value2: Integer;
        property Value3: Integer read FValue1 write FValue1;
      end;
    
      [JsonSerialize(TJsonMemberSerialization.&Public)]
      TBar = class
      private
        FValue1: Integer;
        FFoo: TFoo;
      public
        Value2: Integer;
        property Value3: Integer read FValue1 write FValue1;
      //  property Foo: TFoo read FFoo write FFoo;
      end;
    
    procedure Test;
    var
      LBar: TBar;
    begin
      LBar := TBar.Create;
      try
        Writeln(TJson.ObjectToJsonString(LBar));
      finally
        LBar.Free;
      end;
    end;
    
    begin
      try
        { TODO -oUser -cConsole Main : Insert code here }
        Test;
        Readln;
      except
        on E: Exception do
          Writeln(E.ClassName, ': ', E.Message);
      end;
    end.

    Но на выходе все равно есть поле Foo.

    Цитата

    {"value1":0,"foo":null,"value2":0}

     

  3. 1 час назад, haword сказал:

    А вот что реально бы меня заинтересовало, очень причем, это фреймворк, который смог бы все что ты налабал на делфи, переводить в нативный код и потом этот код можно было бы собрать уже нативными студиями. например написал прогу на делфи, делаешь сборку для андроида и тадам, появляется папка java а в ней проект для android studio, который там же собирается и работает так как ты задумывал это в делфи. или собираешь а там папка apple а там проект для XCode и все собиралось бы для ios и macos. ВОТ!! где было бы счастье 

    Тогда учи Яву и ХуКод

     

    1 час назад, haword сказал:

    а это очередной клон который будет так же глючить как и fmx.

    Клон чего? 

  4. У меня во время установки приложения через ИДЕ мобильное устройство спрашивает разрешение на это действие, и если я не соглашусь в течении нескольких(10) секунд - идет отказ и выдает ошибку как у тебя. Попробуй так же по-наблюдать за поведением мобильного устройства во время установки приложения на него. Возможно нужно дать на это разрешение и тебе?

  5. Цитата

    А что нужно в uses добавить чтоб не подчеркивал  TDialogService.MessageDialog?

    FMX.Dialogs
    Цитата

    Наберусь еще наглости попросить пример диалога [Да] [Нет]

    procedure ShowMsgYesNo;
    begin
      { Show a multiple-button alert that triggers different code blocks according to
        your input }
      TDialogService.MessageDialog('Choose a button:', System.UITypes.TMsgDlgType.mtInformation,
        [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo],
        System.UITypes.TMsgDlgBtn.mbYes, 0,
    
        // Use an anonymous method to make sure the acknowledgment appears as expected.
        procedure(const AResult: TModalResult)
        begin
          case AResult of
            { Detect which button was pushed and show a different message }
            mrYES:
              ShowMessage('You chose Yes');
            mrNo:
              ShowMessage('You chose No');
          end;
        end);
    end;

     

  6. Сетка не плохая(но для серьезных вещей ее стремно использовать). Исходники раньше были, если нужно - могу старую версию дать. И перенеси тему в другую ветку форума(http://fire-monkey.ru/forum/8-сторонние-компоненты/)

  7. Запущен канал в мессенджере Telegram, в котором оповещается о новых темах этого форума. На данный момент могут быть некоторые сбои, будьте терпеливы

    Предложения пишите тут, в комментариях. 

    Канал: https://t.me/FMonkeyX

     

     

  8. Я бы на твоем месте для мобильных платформ не использовал сетку(ну максимум для отображения). Лучше использовать TListView + форму/фрейм для редактирования данных выбраного элемента.

     

    P.S. для FMX у меня и под винду идет редактирование в   форме/фрейме

  9. 48 минут назад, wamaco сказал:

    С сайта скачиваю файл. Он может быть маленьким, может быть большим.

    Вопрос: каким образом осуществить докачку файла?

    Например, сегодня есть связь, начали скачивать файл в потоке при запуске приложения, связь оборвалась или закрыли приложение,часть файла уже скачена, при следующем запуске докачиваем файл и т.д. пока не получим весь файл.

    Смотрите методы:

    •     THTTPClient.CheckDownloadResume();
    •     THTTPClient.GetRange()

    ну и обратите внимание на их асинхронные аналоги

×
×
  • Создать...