How to log messages on FireMonkey for debugging
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
;