Лидеры

function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var aJSValue: TJSONValue; aJSObject: TJSONObject; aJSArray: TJSONArray; I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)

это делается так TLayout = Top\Bottom TLayout = Center Button1 = Left\Right Button2 = Left\Right Button3 = Left\Right Button4 = Left\Right Button5 = Left\Right center_demo.zip

Скорее всего, файлы выложат после окончания тура. В общем, как обычно они делали. Другое дело, что особо нового там ничего не выловить... На XE7 было интереснее... p.s. Презентацию Ярослава надо достать, он про сервисы рассказывал

Версия 1.5 (Т.к. исходники предыдущей версии утеряны, было принято решение написать всё заново.) Приложение ориентированно на людей, которые понимают для чего оно предназначено. В противном случае, ошибки, типо неправильного шаблона для имени не избежать. Позже, может быть придумаю, как это всё учесть. Для использования, как минимум, необходимо подготовить файлы, которые планируется занести в файл ресурсов. Изменения в версии 1.5: Всё написано заново Добавлена возможность выбирать как определенную папку (с возможностью сканирования подпапок), так и отдельно несколько файлов. Добавлена возможность выбора места сохранения (с возможностью дозаписать новые файлы в старый RC файл) Возможные длительные операции вынесены в отдельные потоки Во время длительных операций осуществляется оповещение в виде AniIndicator'a Скачать с Google Drive p.s. Если вы обнаружили баг, то отпишитесь мне, пожалуйста.