Vandrovnik

It is a feature, not a bug 🙂 (I have never seen it before.) https://docwiki.embarcadero.com/RADStudio/Sydney/en/W1013_Constant_0_converted_to_NIL_(Delphi)

I also use FreeAndNil - if I ever forget that an object was already freed with .Free, app might be working fine or give an AV "sometimes". When I use FreeAndNil and by mistake try to use freed object later, I am sure it always gives AV. I would not use FreeAndNil in time-critical parts, but there are almost none in my apps.

Thank you, I did not realize that it is possible to use a filter 🙂 That will be enough.

It works, that is really great! I have also add a Ctrl + right-mouse-click to find labels etc.: procedure TdmMain.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var PointClient: tPoint; Control: tControl; Form: tWinControl; begin {$IFDEF PrekladyBTM} if (msg.message=WM_RBUTTONDOWN) and ((msg.wParam and MK_CONTROL) <> 0) then begin Handled:=true; Form:=Screen.ActiveCustomForm; if Form<>nil then begin PointClient:=Form.ScreenToClient(Mouse.CursorPos); Control:=Form.ControlAtPos(PointClient, true, true, true); if Control<>nil then TranslationManagerIntegration.TrackControl(Control); end; end; {$ENDIF} end; Just a small notice: when I need to find a control and there are more properties in BTM, BTM often selects a property with "Don't translate". Please could you change it, so that BTM tries to select a property which should be translated?

I have never tried, but it seems it should work, at least for FB 2.5 they explicitly write about embedded version: https://firebirdsql.org/en/firebird-2-5/

Could you use Firebird for the free version? With server, or even embedded, so there is no need to install it.

No, it is just a forward declaration.

Just put this to the top: type tDrawingObjectList = class;

If you have SynEdit from GetIt, then yes, you may get newer version of SynEdit after installing newer Delphi. SynHighlighterMulti.pas is on C:\Users\MyUserName\Documents\Embarcadero\Studio\22.0\CatalogRepository\SynEdit-2022.03-11\Source\Highlighters\SynHighlighterMulti.pas on my computer in Delphi 11.1.

What if you create the datamodule using Synchronize?

But the result contains addresses - just IPv6, not IPv4...

Yes, but I do not know its name.

It was my function. It takes a string in the form "cn=Valek,ou=OOOO,o=XXX" and divides it to Cn "cn=Valek" and Base "ou=OOOO,o=XXX" (I was dividing it using the first coma in the input string.)

function LdapGetAttribute(aUserFqdn: string; aAttrib: string): string; var Ldap: TLDAPSend; Attribs: tStringList; Cn, Base: string; begin result:=''; Ldap:=TLDAPSend.Create; try Ldap.UserName:=Config.LdapUser; Ldap.Password:=Config.LdapPassword; Ldap.TargetHost:=Config.LdapHost; Ldap.TargetPort:=Config.LdapPort; Ldap.AutoTLS:=true; if Ldap.Login then begin if Ldap.Bind then begin Attribs:=tStringList.Create; try Attribs.Add(aAttrib); RozdelLdap(aUserFqdn, Cn, Base); // cn=Valek,ou=OOOO,o=XXX -> cn=Valek + ou=OOOO,o=XXX Ldap.Search(Base, false, '('+Cn+')', Attribs); if (Ldap.SearchResult.Count>0)and(Ldap.SearchResult[0].Attributes.Count>0) then begin result:=Ldap.SearchResult[0].Attributes[0].Text; end; finally FreeAndNil(Attribs); end; end; end; finally FreeAndNil(Ldap); end; end;

Hello, many years ago, I have used something like this for Novell eDir: function LdapOverPrihlaseni(aUserName, aPassword: string): boolean; var Ldap: TLDAPSend; begin result:=false; if aPassword='' then exit; Ldap:=TLDAPSend.Create; try Ldap.UserName:=aUserName; Ldap.Password:=aPassword; Ldap.TargetHost:=Config.LdapHost; // 'novell.xxxxx.cz'; Ldap.TargetPort:=Config.LdapPort; // '389'; Ldap.AutoTLS:=true; if Ldap.Login then begin if Ldap.Bind then begin result:=true; end; end; finally FreeAndNil(Ldap); end; end; ldapsend.pas was part of Synapse.