Лидеры

Здравствуйте, хотел узнать как в FM можно работать с HTML элементами? Пример на VCL: WebBrowser.OleObject.Document.item(5).Click; Или ткните в норм help по FM. Заранее спасибо!

Когда стоит ожидать?

Beta hotfix for FireMonkey apps on Android 5.0 (Lollipop) Available to registered users of RAD Studio XE7, Delphi XE7 and C++Builder XE7 (except non-mobile editions) and Embarcadero All-Access XE Скачать: http://cc.embarcadero.com/item/30110

Добрый день, Рекомендую к прочтению: Почему для некоторых контролов нельзя поменять высоту или ширину? Если же, все-таки очень хочется задать 24 шрифт для TEdit, тогда следуем руководству: [Android] Не получается увеличить высоту TProgressBar

юзай Rest.Json. пишешь свой класс настроек, например: TSettings = class private fname: string; fpass : string; public property name: string read fname write fname; property pass: string read fass write fpass; end; // вытягиваешь json-строку из файла Settings:= TJson.JsonToObject<TSettings >( 'строка с json, которая из файла' ); // что-то поменял s:= TJson.ObjectToJsonString( Settings ); // сохранил json-строку в файл

Уже давно в Windows есть функция QueryPerformanceCounter. Аналогичные вашему вопросы решались тут: http://delphikingdom.com/asp/answer.asp?IDAnswer=63327 http://delphikingdom.com/asp/answer.asp?IDAnswer=67074 http://delphikingdom.com/asp/answer.asp?IDAnswer=62538

Пример по использованию JSON uses System.IOUtils, System.JSON; procedure TForm1.btLoadClick(Sender: TObject); var AOptions: TJSONObject; AGroup: TJSONObject; AParam: TJSONValue; begin if FileExists(FFileName) then begin AOptions := TJSONObject(TJSONObject.ParseJSONValue(TFile.ReadAllText(FFileName))); AGroup := TJSONObject(AOptions.GetValue('group1')); if AGroup <> nil then begin AParam := AGroup.GetValue('edit1'); if AParam <> nil then Edit1.Text := TJSONString(AParam).Value; AParam := AGroup.GetValue('edit2'); if AParam <> nil then Edit2.Text := TJSONNumber(AParam).Value; end; AGroup := TJSONObject(AOptions.GetValue('group2')); if AGroup <> nil then begin AParam := AGroup.GetValue('checkbox1'); if AParam <> nil then CheckBox1.IsChecked := AParam is TJSONTrue; end; end; end; procedure TForm1.btSaveClick(Sender: TObject); var AOptions: TJSONObject; AGroup: TJSONObject; AParam: TJSONValue; APair: TJSONPair; begin AOptions := TJSONObject.Create; AGroup := TJSONObject.Create; AGroup.AddPair('edit1', Edit1.Text); if Edit2.Text.Trim <> '' then AGroup.AddPair('edit2', TJSONNumber.Create(Edit2.Text)); AOptions.AddPair('group1', AGroup); AGroup := TJSONObject.Create; if CheckBox1.IsChecked then AGroup.AddPair('checkbox1', TJSONTrue.Create) else AGroup.AddPair('checkbox1', TJSONFalse.Create); AOptions.AddPair('group2', AGroup); TFile.WriteAllText(FFileName, AOptions.ToString); end; procedure TForm1.FormCreate(Sender: TObject); begin {$IFDEF ANDROID} //Если файл во внутреннем накопителе то GetDocumentsPath //Если файл на внешнем накопителе то GetSharedDocumentsPath FFileName := TPath.Combine(TPath.GetSharedDocumentsPath, 'Options.json'); {$ENDIF} {$IFDEF MSWINDOWS} FFileName := ExtractFilePath(ParamStr(0)) + 'Options.json'; {$ENDIF} end; Также почитай http://www.webdelphi.ru/2011/10/rabota-s-json-v-delphi-2010-xe2/ Primer.zip

посмотри. может что интересное найдешь ) стр. 129 Delphi Cookbook.pdf

Всем привет. Можно ли не зная имени элемента в структуре JSON - определить тип(объект, массив, значение, строка или число) зная только его индекс. Спасибо

Начало вопроса http://fire-monkey.ru/topic/193-u-menia-perestaet-rabotat-fokus-posle-smeny-fok/ В XE6 WebBrowser действительно работал правильно, с выходом апдейта опять начались проблемы, имеется тело Samsung Galaxy S3, при вызове клавиатуры в WebBrowser не отображаются вводимые буквы в поле ввода браузера. С телом HTC Incredible S работает правильно. Вот такая незадача, придется видимо откатываться обратно на XE6