delphi-2010

I would like to be able to use TValue to store Data in a TList<>. Like in : type TXmlBuilder = class type TXmlAttribute = class Name: String; Value: TValue; // TValue comes from Rtti end; TXmlNode = class Name: String; Parent: TXmlNode; Value: TXmlNode; Attributes: TList<TXmlAttribute>; Nodes: TList<TXmlNode>; function AsString(Indent: Integer): String; end; ... public ... function N(const Name: String): TXmlBuilder; function V(const Value: String): TXmlBuilder; function A(const Name: String; Value: TValue): TXmlBuilder; overload; function A<T>(const Name: String; Value: T): TXmlBuilder;

Has anyone an idea, how I can make TValue using a reference to the original data? In my serialization project, I use (as suggested in XML-Serialization ) a generic serializer which stores TValues in an internal tree-structure (similar to the MemberMap in the example). This member-tree should also be used to create a dynamic setup form and manipulate the data. My idea was to define a property for the Data: TDataModel <T> = class {...} private FData : TValue; function GetData : T; procedure SetData (Value : T); public property Data : T read GetData write SetData; end; The implementation of the

Does anybody knows a way to change the font size of the editor tabs in Delphi 2010 IDE? With my 1080p 22' monitor the font is too small to read and it causes pain in the eyes. Some notes It doesn't respect the system's DPI settings so changing that system setting doesn't help, moreover, I'm using 140% DPI already now, and it's Win7. I couldn't find any existing 3rd party tools to tweak that. I'll be willing to write an IDE expert to fix that problem if I know how to do it... There is not an option to change the font size of these elements, but as you say this can be done writting an expert.

To better explain what I'm trying to accomplish, I'm going to start with something that works. Say we have a procedure that can call another procedure and pass a string parameter to it: procedure CallSaySomething(AProc: Pointer; const AValue: string); var LAddr: Integer; begin LAddr := Integer(PChar(AValue)); asm MOV EAX, LAddr CALL AProc; end; end; This is the procedure that we will call: procedure SaySomething(const AValue: string); begin ShowMessage( AValue ); end; Now I can call SaySomething like so(tested and works (: ): CallSaySomething(@SaySomething, 'Morning people!'); My question is,

When i try with this query i get an error says that Perameter email doesn't exist, i am sure that the variables : email, login_pass, payment_method,operateur are valid and exists. SQLQuery2.sql.Text := 'INSERT INTO registered (email,login_pass,payment_method,operateur) VALUES (":email",":login_pass",":payment_method",":avecpuce")'; SQLQuery2.ParamByName('email').AsString := email; SQLQuery2.ParamByName('login_pass').AsString := login_pass; SQLQuery2.ParamByName('payment_method').AsString := payment_method; SQLQuery2.ParamByName('avecpuce').AsString := avecpuce; SQLQuery2.ExecSQL(true); I tried