Slym

У меня IPhone6 вдулся от постоянного висения на шнурке...
Теперь правило вечером отключить... но нет! нет отладки - нет зарядки и садится в ноль!
Теперь правило в понедельник всегда на зарядку...

Не делайте слепое приведение типов...
 
var JObj:TJSONObject; begin JObj:=TJSONObject(TJSONObject.ParseJSONValue('0')); try try if assigned(JObj) then JObj.AddPair('Access','violation'); except ShowMessage('Surprise MF!: '+JObj.ClassName); end; finally JObj.Free; end; end; ParseJSONValue возвращает TJSONValue, и необходима или проверка типа или использование только в рамках TJSONValue чего в большинстве случаев вполне достаточно.

PerspEffect1.TopLeft := PerspEffect1.TopLeft+ TPointF.Create(5,0);

Procedure TServerConnectionTH.RecieveData(); // сюда приходя данные со сканера //Data - это данные в виже TBytes //str - строка со считанным штрихкодом var   Intent: JIntent;   str:String; begin   str:=TEncoding.UTF8.GetString(Data);   Form1.DisplayR.Lines.Add(Str);   Form1.DisplayR.GoToTextEnd;   Intent := TJIntent.Create;   Intent.setAction(StringToJString('com.google.android.c2dm.intent.RECEIVE'));   Intent.putExtra(StringToJString('text'),StringToJString('1'));    Intent.putExtra(StringToJString('title'),StringToJString('1C'));    Intent.putExtra(StringToJString('data'),StringToJString(str));    TAndroidHelper.Context.sendBroadcast(Intent); end;  

Procedure TServerConnectionTH.RecieveData(); // сюда приходя данные со сканера //Data - это данные в виже TBytes //str - строка со считанным штрихкодом var   Intent: JIntent;   str:String; begin   str:=TEncoding.UTF8.GetString(Data);   Form1.DisplayR.Lines.Add(Str);   Form1.DisplayR.GoToTextEnd;   Intent := TJIntent.Create;   Intent.setAction(StringToJString('com.google.android.c2dm.intent.RECEIVE'));   Intent.putExtra(StringToJString('text'),StringToJString('1'));    Intent.putExtra(StringToJString('title'),StringToJString('1C'));    Intent.putExtra(StringToJString('data'),StringToJString(str));    TAndroidHelper.Context.sendBroadcast(Intent); end;  

Procedure TServerConnectionTH.RecieveData(); // сюда приходя данные со сканера //Data - это данные в виже TBytes //str - строка со считанным штрихкодом var   Intent: JIntent;   str:String; begin   str:=TEncoding.UTF8.GetString(Data);   Form1.DisplayR.Lines.Add(Str);   Form1.DisplayR.GoToTextEnd;   Intent := TJIntent.Create;   Intent.setAction(StringToJString('com.google.android.c2dm.intent.RECEIVE'));   Intent.putExtra(StringToJString('text'),StringToJString('1'));    Intent.putExtra(StringToJString('title'),StringToJString('1C'));    Intent.putExtra(StringToJString('data'),StringToJString(str));    TAndroidHelper.Context.sendBroadcast(Intent); end;  

Логика асинхронности принимает на вход анонимную процедуру для обработки результата, анонимная процедура захватывает переменные в зоне своего определения, а там хоть итем, хоть индекс, хоть блэкджек с простихоспаде чем попало...

Логика асинхронности принимает на вход анонимную процедуру для обработки результата, анонимная процедура захватывает переменные в зоне своего определения, а там хоть итем, хоть индекс, хоть блэкджек с простихоспаде чем попало...

Логика асинхронности принимает на вход анонимную процедуру для обработки результата, анонимная процедура захватывает переменные в зоне своего определения, а там хоть итем, хоть индекс, хоть блэкджек с простихоспаде чем попало...

nox это x86, а надо Arm

Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)...
Могли отображаться также левые спрайты, или обрезки скролившихся контролов...
Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...

Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)...
Могли отображаться также левые спрайты, или обрезки скролившихся контролов...
Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...

Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)...
Могли отображаться также левые спрайты, или обрезки скролившихся контролов...
Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...

Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)...
Могли отображаться также левые спрайты, или обрезки скролившихся контролов...
Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...

Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)...
Могли отображаться также левые спрайты, или обрезки скролившихся контролов...
Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...

1. для упрощения кода работы с JSON давно можно использовать сложные пути
ABase64:=JSON.GetValue<string>('body.nextStep.pdf');
2.  ну нельзя так: 
AStreamSource.WriteBuffer(Pointer(ABase64)^, Length(ABase64) * 2); так безопасней AStreamSource:=TBytesStream.Create(TEncoding.UTF8.GetBytes(ABase64));
3. И сохранять лучше сразу в TFileStream - меньше расход памяти 
4. не забываем finally Free (их выше нету)... хоть оно и может AUTOREFCOUNT (а может и нет!), но правила хорошего тона никто не отменял

1. для упрощения кода работы с JSON давно можно использовать сложные пути
ABase64:=JSON.GetValue<string>('body.nextStep.pdf');
2.  ну нельзя так: 
AStreamSource.WriteBuffer(Pointer(ABase64)^, Length(ABase64) * 2); так безопасней AStreamSource:=TBytesStream.Create(TEncoding.UTF8.GetBytes(ABase64));
3. И сохранять лучше сразу в TFileStream - меньше расход памяти 
4. не забываем finally Free (их выше нету)... хоть оно и может AUTOREFCOUNT (а может и нет!), но правила хорошего тона никто не отменял

1. для упрощения кода работы с JSON давно можно использовать сложные пути
ABase64:=JSON.GetValue<string>('body.nextStep.pdf');
2.  ну нельзя так: 
AStreamSource.WriteBuffer(Pointer(ABase64)^, Length(ABase64) * 2); так безопасней AStreamSource:=TBytesStream.Create(TEncoding.UTF8.GetBytes(ABase64));
3. И сохранять лучше сразу в TFileStream - меньше расход памяти 
4. не забываем finally Free (их выше нету)... хоть оно и может AUTOREFCOUNT (а может и нет!), но правила хорошего тона никто не отменял

Проблема в том что есть 2 TScrollContent, один в FMX.Layouts, другой в FMX.ScrollBox...
поскольку пользуете TPresentedScrollBox, то разворачивайте неймспейс вручную и пишите if (Parent is FMX.ScrollBox.TScrollContent) then

Проблема в том что есть 2 TScrollContent, один в FMX.Layouts, другой в FMX.ScrollBox...
поскольку пользуете TPresentedScrollBox, то разворачивайте неймспейс вручную и пишите if (Parent is FMX.ScrollBox.TScrollContent) then

Проблема в том что есть 2 TScrollContent, один в FMX.Layouts, другой в FMX.ScrollBox...
поскольку пользуете TPresentedScrollBox, то разворачивайте неймспейс вручную и пишите if (Parent is FMX.ScrollBox.TScrollContent) then