Leaderboard

Getting the address of an geographic coordinates, and the reverse, getting the geographic coordinates of an address https://github.com/viniciusfbb/fmx_tutorials/tree/master/delphi_google_geocoding/

We are aware that the UI isn't modern anymore, and work is underway to improve that. However, @Tom F is right to say it just works (up to and including the latest Rio version!). Which allows the users to get their work done and move on. 🙂

If you were in my employ I'd fire you for doing something like that. What happens when a bug in your code causes your license check to fail and you execute corrupted code that wipes the customers disk?

The native System.Sensors.TGeocoder does not have support for VCL because works only in Android, iOS and MacOS. And even in Android have some small devices that does not support. And in the iOS and MacOS the result can be different than the Android because the Apple use the TomTom maps. Then, if you want a full cross platform solution, VCL or FMX, to use in all devices, include linux, having the same result, the Google Maps Geocoding is the solution. In my case, my client have a Windows version, the System.Sensors.Geocoder not work, I should use just Google Maps Geocoding.

Hi, I solved the problem permanently, adding the project to pass the following file. *I add that someone might need it in the future. unit uFont; interface uses FMX.Platform, FMX.Graphics; type TmyFMXSystemFontService = class(TInterfacedObject, IFMXSystemFontService) public function GetDefaultFontFamilyName: string; function GetDefaultFontSize: Single; end; implementation function TmyFMXSystemFontService.GetDefaultFontFamilyName: string; begin Result := 'Segoe UI'; end; function TmyFMXSystemFontService.GetDefaultFontSize: Single; begin Result := 12; end; procedure InitFont; begin if TPlatformServices.Current.SupportsPlatformService(IFMXSystemFontService) then TPlatformServices.Current.RemovePlatformService(IFMXSystemFontService); TPlatformServices.Current.AddPlatformService(IFMXSystemFontService, TmyFMXSystemFontService.Create); end; initialization InitFont; end.

The easiest way is probably just temporarily deactivating the OnClick event that bugs you when you set it yourself: var notifyEvent: TNotifyEvent; begin notifyEvent := radioGroup.OnClick; try radioGroup.OnClick := nil; radioGroup.Something := Your_Choice; finally radioGroup.OnClick := notifyEvent; end; end;

It does, I connect to medical devices, whose output the users want to see on my client software. They may install as many copies as they like, but have to pay for each signalprocessor . Which is why I actually make money with a Python project...not with Delphi

I've had mixed results with that. What we really really need is a way to generate PDB files. If only Emba would add that functionality.

Yes it is. The code you have posted will leak the TFDQuery instance and not return anything.

value of myQuery is undefined at call to createMyQuery. Check your hints and warnings.

Damn, even floating points have to wear masks right now.

https://github.com/Fr0sT-Brutal/awesome-pascal#code-checkreview-debug

Scoured our complete source code and found only one occurence each of pred and succ. One was legit. for e := Low(TElementType) to Pred(High(TElementType)) do // i.e. do not include the last enum value in the loop. The other one was a bullshit one - and I was probably the author of both. function AfterFirst(const Match:char; const st:string):String; var index : Word; begin index := pos(Match,st); if index <> 0 then Result := Copy(st, index + 1, succ(Length(st) - index)) else Result := st; end; It's not even consequent.

I would like to have List.High or List.HighIndex or List.LastIndex or whatever. Why to write every time -1 when you want the last index?