[lazarus] lack tForm.OldCreateOrder

[Mattias Gaertner]

On Tue, 16 Dec 2003 22:02:20 +0100 (CET)  Michael.VanCanneyt at wisa.be wrote:

> 
> 
> On Tue, 16 Dec 2003, Mattias Gaertner wrote:
> 
> > On Tue, 16 Dec 2003 19:17:22 +0100  "Darek Mazur" <darekm at emadar.com>
> > wrote:
> > 
> > BTW, your workaround for the ident2int function works nice.
> > The IDE also needs this feature. Although it would be even better, if
> > there are functions to read/use the ident2int function list from outside
> > classes.pp.
> > 
> > Then the IDE would be able to examine component streams without actually
> > creating objects.
> 
> If I need to change anything in the FCL/Classes, let me know.

One thing: Why uses the fcl include files of the rtl (tthread.inc)?


> Currently the following functions exist:
> 
> procedure RegisterIntegerConsts(IntegerType: Pointer; IdentToIntFn:
> TIdentToInt; IntToIdentFn: TIntToIdent); function IdentToInt(const Ident:
> string; var Int: Longint; const Map: array of TIdentMapEntry): Boolean;
> function IntToIdent(Int: Longint; var Ident: string; const Map: array of
> TIdentMapEntry): Boolean;
> 
> If I need to add some functions, let me know.

Something like this would be nice:

function GetIdentToIntListCount: integer;
procedure GetIdentToIntFunction(ListIndex: integer; 
  var IntegerType: PTypeInfo;   
  var IdentToIntFn: TIdentToInt;
  var IntToIdentFn: TIntToIdent); 


Mattias