How to log messages on FireMonkey for debugging

1
2
3
4
5
6
7
8
9
10
uses FMX.Platform;
 
var
  LoggingService: IFMXLoggingService;
begin
  LoggingService := FMX.Platform.TPlatformServices.Current.GetPlatformService(IFMXLoggingService) as IFMXLoggingService;
 
  if Assigned(LoggingService) then
      LoggingService.Log('QuickSort done!', []);
end;