sviat9440

Вроде нашел решение проблемы.
 
FMX.Platform.Win.zip

эта старая версия, вот здесь сделал по другому
 

Download: https://github.com/TurboPack/LockBox/archive/master.zip
https://github.com/TurboPack/LockBox
LockBox-master.zip

Label1.AutoSize := true;  

Слушай, а чем ты руководствовался, когда делал стилизованную рамку? Скажу напрямую, я прошел уроки Ярослава, в котором, целый урок посвящен именно стилизации рамки. Сказать, что ты сделал что-то не то, не могу сказать. Могу лишь сказать, что ты сделал совсем не то! Ты не использовал нужные компоненты вообще! Все перечислять не буду, допустим, для стилизации краев рамки (бока и низ) используется ActiveStyleObject. Ты зачем то использовал TRectangle. Я не обладаю глубокими познаниями в стилях, но по моим сведениям ты что то сделал совсем не то. Единственное, что могу предложить, если ты делаешь проект и тебе очень актуальна эта тема, это пройти курс Ярослава.

Для каких задач нужно шифрование?
Если нужно шифровать текст для передачи по сети, то с этим справятся DataSnap и Indy.
А если файлы шифровать, и чтобы работало на всех платформах, возьмите открытый код стандартных методов шифрования AES, RSA, DES и т.п. Например, здесь, и используйте в своем проекте.
Конечно, давно пора это дело причесать под XE и Berlin и выложить для сообщества. Только не забываете про различие UNIX и Windows нумерации символов в String.
 

если память не изменяет там надо еще %1 добавить или что-то подобное, туда параметры должны писаться
ага, точно
https://msdn.microsoft.com/en-us/library/aa767914(v=vs.85).aspx

Rectangle1.Parent := nil; FreeAndNil(Rectangle1); чтобы пустая ссылка у родителя не висела

из известных blowfish и ГОСТ 28147-89, у меня библиотеки на сях, вот тут обсуждают реализацию blowfish на object pascal http://www.sql.ru/forum/1192261/ishodnik-blowfish-ne-poymu-kak-s-nim-rabotat
ГОСТ 28147-89 - алгоритм шифрования, принят к использованию в госструктурах, но это так, к слову

FDebugConfig := false; {$IFDEF DEBUG} FDebugConfig := true; {$ENDIF}  

я делал вот по этому руководству - http://delphifmandroid.blogspot.com.by/2014/10/splashscreen-xe7.html. все получилось, все растянулось. но все равно после сплэша появляется черный экран перед отрисовкой интерфейса

https://habrahabr.ru/post/113623/

хи хи хи
смешно пошутил

function TForm11.isEditCorrect(Sender: TEdit): Boolean; var   text: String;   i: Integer;   aCharArr: TCharArray; begin   text := TEdit(Sender).text;   aCharArr := text.ToCharArray;   Result := True;   for i := Low(aCharArr) to High(aCharArr) do   begin     if not(aCharArr[i] in charters) then       Result := False;   end;   if text.CountChar('-') > 1 then     Result := False; end; вот так правильно

Вряд ли тут дело в версии. Скорее всего поверх стоит какой-нибудь layout. Лучше попробовать повторить на тестовом примере и если повторится, то выложить сюда код примера для разбора

По моему опыту: автодополнение кода перестает работать при
Длинном методе (вложенные процедуры/функции не в счет) Если между методами (не внутри, а именно между) есть комментарии Если большая вложенность всяких циклов, if и т.п. Если встречаются конструкции, которые форматтер (Ctrl + D) обрабатывает неправильно (некорректно просчитывает отступы). Помогает явная вставка Begin/end или, как было пару раз с array of record x:type1; y:type2; end - вынести объявление типа отдельно. Иногда (но очень редко) с директивами условной компиляции. Когда Луна входит в созвездие Песца. Если случился пункт 6 - помогает закрыть вкладку модуля и открыть ее заново. В особо сложных случаях - перезапустить IDE.
 

тут уже не раз хвалили, и я в том числе, X-SuperObject

Вот пример кода для вашего случая
Var Source : String; JSON : TJSONObject; JSONValue : TJSONValue; JSONArray : TJSONArray; I : Integer; begin Source:='{"data":["val1", "val2", "val3"]}'; JSON:=TJSONObject(TJSONObject.ParseJSONValue(Source)); if Not Assigned(JSON) then Exit; if JSON.TryGetValue('data',JSONValue) then if TJSONObject(JSONValue).ClassName.Equals('TJSONArray') then begin JSONArray:=TJSONArray(JSONValue); if Assigned(JSONArray) then for I := 0 to JSONArray.Count-1 do Memo.Lines.Add(JSONArray.Items[I].Value); end; end; Для проверок неудачного парсинга есть такие инструменты как "if Assigned(JSON) then" и "JSON.TryGetValue('data',JSONValue)"

Давненько еще нашел этот пак компонентов, но не было времени ознакомиться с ним ближе. Сегодня посмотрел демки - думаю нашему сообществу понравится эта библиотека. Описание оригинальное с гитхаба.
Как скачать:
GetIT(нет лицензии на студию? смотрим ниже) Прямая ссылка на последнюю версию С помощью GIT-клиента: https://github.com/gmurt/KernowSoftwareFMX.git .Можете либо встроенным в делфи, либо своим любимым. Могу посоветовать SourceTreeApp. Рекомендую именно этот способ - вам не придется постоянно перекачивать компонент для обновления. Достаточно в приложении нажать одну кнопку - и компонент обновился. 
Kernow Software FMX Components for XE7, XE8 & XE10 Seattle.
(May work with earlier versions but untested)
Firemonkey Slide menu, ListView and Segment buttons for Delphi. Inherits from a non-visual component to keep things simple.
Includes demo with source. Demo App also available on app store: https://itunes.apple.com/gb/app/kscomponents-reference/id1031179701?mt=8
Feel free to support the components with a donation ;-)
If you'd like to support the ksComponents project, you can do so at the following link ;-)
http://www.kernow-software.co.uk/?page_id=397
TksTableView
Cached table view provides native performance regardless of the number of text/items/graphics added support for embedded switches support for embedded buttons support for embedded segment buttons Canvas style methods for adding text/shapes/images Built-in support for Image, Title, SubTitle, Detail and Accessory elements Check list option support - single check or multi check Custom check mark colours Image cropping (square, round rect or circle) "Indicator" colours - add colour indicators to each row "Sticky" headers TksSlideMenu
set menu background colour set selected item colour set font colours add images to items fade background left or right aligned menus inherites from non-visual Tcomponent for quick integration into existing projects uses bitmap caching for optimised performance TksSegmentButtons
segment button component support for iOS style badges TksFormTransition
component for animating transitions between forms TksTabControl
Tab control component with support for different colours/themes Large number of built-in icons Support for iOS style badges TksNetHttpClient
enhanced http client with ASync Get method TksTileMenu
simple but effective main menu component TksChatView
component for building iOS style chat applications TksSpeedButton
TSpeedButton descendant with support for iOS style badges Any suggestions for updates are welcome :-)

Уже понял... ))) все ок!))

Ага, нашел, кажется
class function THello.AdvancedShort(const URL, APIkey: String; const AppID: Int64; Domen, Folder: String; AdvertType: TAdvertType): String; var HTTP: THTTPClient; URI: TURI; begin HTTP := THTTPClient.Create; try //---cut URI.AddParameter('key', APIkey); URI.AddParameter('uid', AppID.ToString); URI.AddParameter('url', URL); Result := HTTP.Execute('GET', URI).ContentAsString.Trim; finally HTTP.Free; end; end;

System.Net.URLClient.TURI  
кажется нашел

Если помог - нажми в ответе "Вопрос решен"

Скачай и установи