Лидеры

Еще есть вариант на одномерном примере. Идея ввести параметр, который будет принимать случайное значение от 0 до суммы двух отрезков. Потом проверять, Если параметр попадает в первый отрезок по длине, то добавляем начальную координату отрезка. Если во второй, то добавляем начальную координату второй части.

Добрый день, Забыли про StyledSettings. Итого весь код по поиску SearchBox и изменении цвета текста: function FindSearchBox(const ARootControl: TControl): TSearchBox; var Child: TControl; begin Result := nil; for Child in ARootControl.Controls do if Child is TSearchBox then Exit(TSearchBox(Child)); end; procedure TForm15.Button1Click(Sender: TObject); var SearchBox: TSearchBox; begin SearchBox := FindSearchBox(ListView1); if SearchBox <> nil then begin SearchBox.TextSettings.FontColor := TAlphaColorRec.Red; SearchBox.StyledSettings := SearchBox.StyledSettings - [TStyledSetting.FontColor]; end; end;

Ну ладно, тогда вот вам кусочный рандом на примере одномерной задачи. Область значений Х состоит из двух областей (I) и (III). При этом Х может принимать значение либо из первой области, либо из второй [строчка (1)] Определяем переменную FLAG, которая может быть только или нулем, или единицей [строчка (2)]. Теперь через нее нетрудно выразить уравнение для Х [строчка (3)] Сейчас под рукой нет Delphi, поэтому проверить не могу. Но идея, надеюсь, понятна.

а для Android: Uses Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText; function TfMain.GetMyImei: string; var TelephonyObj: JObject; TelephonyManager: JTelephonyManager; begin Result := ''; TelephonyObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); TelephonyManager := TJTelephonyManager.Wrap((TelephonyObj as ILocalObject).GetObjectID); Result := JStringToString(TelephonyManager.getDeviceId); end;

Маленькое замечание: варианты Вячеслава от 01:45 и Alex7wrt от 23:42 дают неравномерное распределение.случайных точек. Вариант Brovin Yaroslav от 15:33 даёт равномерное распределение.

Эх, точно, а ведь подобный вопрос уже был, невнимателен. Спасибо большое.

Автор TImageList'а вернется с отпуска после майских праздником, и я его попрошу вам ответить.

Не за что в uses, соответственно, надо FMX.Graphics и FMX.Surfaces

IOS не позволяет получить IMEI устройства.