Andy

Да, согласен. Но если автор хочет "родными", то выглядит это так:
type TTelegaUser = Class private FID: Integer; FFirst_Name: String; FLast_Name: String; FUsername: String; published property ID: Integer read FID write FID; property First_Name: String read FFirst_Name write FFirst_Name; property Last_Name: String read FLast_Name write FLast_Name; property Username: String read FUsername write FUsername; End; ..... procedure TForm1.Button1Click(Sender: TObject); var TelegaUser: TTelegaUser; begin TelegaUser := TJson.JsonToObject<TTelegaUser>(MEMO1.Lines.Text); end; ........ В memo1 лежит ваш JSON
{"id":122041176,"first_name":"Delphi in TelegAPI","username":"test_delphi_api_bot"} Важно чтобы у класса Свойства назывались точно так-же как в JSON.

Можно и без сеттеров и геттеров и тоже будет работать:
TTelegaUser = Class FID: Integer; FFirst_Name: String; FLast_Name: String; FUsername: String; End;  

Здравствуйте!
Как можно определить, были ли модифицированы модули программы приложениями типа APK Editor?
С ресурсами более менее понятно. Можно заранее просчитать хэш-суммы и сверять, но как с модулями?

Да, согласен. Но если автор хочет "родными", то выглядит это так:
type TTelegaUser = Class private FID: Integer; FFirst_Name: String; FLast_Name: String; FUsername: String; published property ID: Integer read FID write FID; property First_Name: String read FFirst_Name write FFirst_Name; property Last_Name: String read FLast_Name write FLast_Name; property Username: String read FUsername write FUsername; End; ..... procedure TForm1.Button1Click(Sender: TObject); var TelegaUser: TTelegaUser; begin TelegaUser := TJson.JsonToObject<TTelegaUser>(MEMO1.Lines.Text); end; ........ В memo1 лежит ваш JSON
{"id":122041176,"first_name":"Delphi in TelegAPI","username":"test_delphi_api_bot"} Важно чтобы у класса Свойства назывались точно так-же как в JSON.

Да, согласен. Но если автор хочет "родными", то выглядит это так:
type TTelegaUser = Class private FID: Integer; FFirst_Name: String; FLast_Name: String; FUsername: String; published property ID: Integer read FID write FID; property First_Name: String read FFirst_Name write FFirst_Name; property Last_Name: String read FLast_Name write FLast_Name; property Username: String read FUsername write FUsername; End; ..... procedure TForm1.Button1Click(Sender: TObject); var TelegaUser: TTelegaUser; begin TelegaUser := TJson.JsonToObject<TTelegaUser>(MEMO1.Lines.Text); end; ........ В memo1 лежит ваш JSON
{"id":122041176,"first_name":"Delphi in TelegAPI","username":"test_delphi_api_bot"} Важно чтобы у класса Свойства назывались точно так-же как в JSON.

Если есть возможность в мобильной версии форума "Последние темы" поднять в начало страницы. Думаю дл многих актуально... 

Если есть возможность в мобильной версии форума "Последние темы" поднять в начало страницы. Думаю дл многих актуально... 

Если есть возможность в мобильной версии форума "Последние темы" поднять в начало страницы. Думаю дл многих актуально... 

Сложного ничего, но ведь суть вопроса не в этом...

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

это конечно вариант, но тогда мы теряем "всю прелесть" RAD, т.е. придется все обработчики (парсинг) http запросов писать вручную. DataSnap нас лишает этих затрат человеко/часов , но берет с нас "мзду" в виде производительности... давно пытаюсь найти простую альтернативу с генерацией "чистого" и форматируемого ответа (в частности JSON)