delphi-10.2-tokyo

问题 From a certain point I got tired of writing set conditions ( and , or ), because for more conditions or longer variable names it begins to be clumsy and annoying to write all over again. So I started writing helpers so I could write ASet.ContainsOne([ceValue1, ceValue2]) instead of (ceValue1 in ASet) or (ceValue2 in ASet) . type TCustomEnum = (ceValue1, ceValue2, ceValue3); TCustomSet = set of TCustomEnum; TCustomSetHelper = record helper for TCustomSet function ContainsOne(ASet: TCustomSet):

问题 I am trying to create a zip file with Delphi Tokyo using the command ZipDirectoryContents which has 4 parameters. They are ZipDirectoryContents(const ZipFileName: string; const Path: string; Compression: TZipCompression = zcDeflate; ZipProgress: TZipProgressEvent = nil); static; Is there someone who can tell me how to use these parameters especially the TZipProgressEvent to show the progress of the zip file as it is adding the files from the directory. Thanks 回答1: Here is the answer provided

问题 I am trying to deploy to iOS but getting the following error: [PAClient Error] Error: E0776 "Error Domain=IDECodesignResolverErrorDomain Code=1 \"No certificate for team 'Company Name' matching '3rd Party Mac Developer Installer' found\" UserInfo={IDEProvisioningError_UserInfoKey_IDEProvisioningErrorSpecifier=3rd Party Mac Developer Installer, NSLocalizedDescription=No certificate for team 'Company Name' matching '3rd Party Mac Developer Installer' found, NSLocalizedRecoverySuggestion=Specify

问题 All the information I have found so far is that the desktop app needs to be registered with Microsoft Azure Active Directory, and that there is a library called ADAL that has all that is needed. https://msdn.microsoft.com/en-nz/library/gg327838.aspx https://docs.microsoft.com/en-nz/azure/active-directory/develop/active-directory-authentication-libraries But what I want to do is just log into a third-party app that is already running on top of Dynamics, and then use a REST method to read

问题 I wish to make a fix to StyleUtils.inc in Delphi Tokyo. My project is linking with runtime packages. My app is 64-bits and so I would like to rebuild the vcl250.bpl in the ..\Redist\win64 directory. I do realize that StyleUtils.inc is listed as not 64-bit compatible at the top of the file. //TODO -oUnassigned -cImplement : x64 : Implement PlatformNotImplemented in this unit or disable for x64. However, until some changes were made in Tokyo, the code had been very stable in Berlin. The error

问题 I'm using delphi 10.2 tokyo with dbmemo control and I would like to know if is even possible show the emojis in color just like in any html webpage like this: 🤔 🤨 😐 😑 😶 🙄 😏 😣 😥 😮 🤐 😯 😪 😫 😴 😌 😛 😜 😝 🤤 😒 😓 😔 😕 🙃 🤑 😲 ☹ 🙁 😖 😞 😟 it could be pretty nice 😮 because using tahoma font in the memo show in gray, which is boring hehe 回答1: It depends on the font you are using and also what modifiers you use. Take these two Unicode characters 👋 and 🏾 which when displayed next to each other gives 👋🏾 来源： https

问题 I have a field in my database called 'Times', it's a date/time format and its format is set to 'short time'. In my database the date does not show, nor is it being add to the database as I know. It is only the time value. My DBGrid shows the time field with the time value and the date '12/30/1899'. How do I get rid of the date in my time field. Here is the code I used to submit to the database. Get time value: bookingtimes:= timeof(dttime.Time); Submit to Database: tblbooking.FieldByName(

问题 There are a number of Segmentation Fault 11 posts, but none seem to answer my question: I've posted the code for the simple test application previously, but is provided for completeness. Windows 10, Delphi 10.2.3 with OSX High Sierra 10.13.6 and Xcode 9.4.1. The HOST: unit uDylibTest1; interface uses System.SysUtils, System.Types, System.Diagnostics, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Platform, FMX

问题 I'm facing up a problem to run my program. My code is so old that I'm not sure how it works. Cannot resolve unit name 'DBTables' at line 20 Underclared indetifier 'EDBEnginerError' Underclared identifier 'Error' I think it is missing BDE, but how do I Import it to my project? Things that I already tried: - Migrate BDE to FireDac with no success. These classes were not replaced. 回答1: BDE is deprecated. Recent versions of Delphi do not install BDE support files by default. See: BDE Installer

问题 I get the "Property Images does not exist" for an old project that I opened today with Delphi Tokyo 10.2 Trial. How to (re)produce it: Select multiple controls on a form (at design time). At least one of the controls needs to have an 'Images' property. For example, I select with Shift+Click a TLabel and a Tbutton. For the button I see its 'Images' property listed in Object Inspector. And it seems to work ok: I can assign a list of images to it. So, what is the actual problem? Why do I see