Einzelnen Beitrag anzeigen

Benutzerbild von cramer
cramer

Registriert seit: 23. Jun 2004
Ort: Velbert (NRW)
108 Beiträge
 
Delphi 2006 Enterprise
 
#1

JsonTools aus Lazarus in BDS2006 Fehler overload

  Alt 28. Jun 2021, 18:11
Delphi-Version: 2006
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;
Erfahrung ist etwas, daß man erst bekommt, kurz nachdem man es dringend gebraucht hätte.

Geändert von cramer (28. Jun 2021 um 18:15 Uhr)
  Mit Zitat antworten Zitat