JsonTools aus Lazarus in BDS2006 Fehler overload

[cramer]

Hi,

wir haben ein Projekt in Lazarus programmiert, daraus möchte ich den json Teil auch in bds2006 nutzen.

In der dazu verwendeten unit JsonTools.pas habe ich jetzt vor allem die Stellen mit exit(false) etc umgeschrieben.
https://github.com/sysrpl/JsonTools/.../jsontools.pas

Jetzt meckert in der bds2006 der compiler:

[Pascal Error] JsonTools.pas(866): E1030 Invalid compiler directive: 'OVERLOAD'

Ich finde aber das Problem nicht, kann mir jemand auf die Sprünge helfen?

Delphi-Quellcode:

  TJsonNode = class
   public
     JsonTools.pas(127):           function Add(Kind: TJsonNodeKind; const Name, Value: string ): TJsonNode; overload;
     JsonTools.pas(128):           function Add(const Name: string; K: TJsonNodeKind = nkObject): TJsonNode; overload;
     JsonTools.pas(129):           function Add(const Name: string; B: Boolean                 ): TJsonNode; overload;
     JsonTools.pas(130):           function Add(const Name: string; const N: Double            ): TJsonNode; overload;
     JsonTools.pas(131):           function Add(const Name: string; const S: string            ): TJsonNode; overload;
  implementation
     JsonTools.pas(866): function TJsonNode.Add(Kind: TJsonNodeKind; const Name, Value: string ): TJsonNode; overload;
     JsonTools.pas(906): function TJsonNode.Add(const Name: string; K: TJsonNodeKind = nkObject): TJsonNode; overload;
     JsonTools.pas(917): function TJsonNode.Add(const Name: string; B: Boolean                 ): TJsonNode; overload;
     JsonTools.pas(924): function TJsonNode.Add(const Name: string; const N: Double            ): TJsonNode; overload;
     JsonTools.pas(929): function TJsonNode.Add(const Name: string; const S: string            ): TJsonNode; overload;

[DeddyH]

Lass die ganzen overloads im implementation-Abschnitt einmal weg.

[cramer]

Supi, i feel good :-D