Помогите перевести код

[Martifan]

 

Всем привет. Помогите перевести код на Delphi

C# (Xamarin):

public override void RegisteredForRemoteNotifications(UIApplication application, NSData deviceToken)
{
    //DeviceToken = Regex.Replace(deviceToken.ToString(), "[^0-9a-zA-Z]+", "");
    //Replace the above line whick worked up to iOS12 with the code below:
    byte[] bytes = deviceToken.ToArray<byte>();
    string[] hexArray = bytes.Select(b => b.ToString("x2")).ToArray();
    DeviceToken = string.Join(string.Empty, hexArray);
}

let deviceTokenString = deviceToken.map { String(format: "%02x", $0) }.joined()

заранее спасибо

Изменено 2 мая, 2020 пользователем Martifan