<commit_before>// This is part of the Obo Component Library
//
// This Source Code Form is subject to the terms of the Mozilla Public
// License, v. 2.0. If a copy of the MPL was not distributed with this
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
//
// This software is distributed without any warranty.
//
// @author <NAME> (<EMAIL> - www.mammola.net)

unit mBaseClassesAsObjects;

{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}


interface

type

  { TIntegerObject }

  TIntegerObject = class
  strict private
    FValue : Integer;
  public
    constructor Create(); overload;
    constructor Create(aValue : integer); overload;

    property Value : Integer read FValue write FValue;
  end;

  { TAnsiStringObject }

  TAnsiStringObject = class
  strict private
    FValue : AnsiString;
  public
    constructor Create(); overload;
    constructor Create(aValue : AnsiString); overload;

    property Value : AnsiString read FValue write FValue;
  end;

  { TUnicodeStringObject }

  TUnicodeStringObject = class
  strict private
    FValue : UnicodeString;
  public
    constructor Create(); overload;
    constructor Create(aValue : UnicodeString); overload;

    property Value : UnicodeString read FValue write FValue;
  end;

  { TStringObject }

  TStringObject = class
  strict private
    FValue : String;
  public
    constructor Create(); overload;
    constructor Create(aValue : String); overload;

    property Value : String read FValue write FValue;
  end;

implementation

{ TStringObject }

constructor TStringObject.Create;
begin
  FValue := '';
end;

constructor TStringObject.Create(aValue: String);
begin
  FValue := aValue;
end;

{ TUnicodeStringObject }

constructor TUnicodeStringObject.Create;
begin
  FValue := '';
end;

constructor TUnicodeStringObject.Create(aValue: UnicodeString);
begin
  FValue := aValue;
end;

{ TAnsiStringObject }

constructor TAnsiStringObject.Create;
begin
  FValue := '';
end;

constructor TAnsiStringObject.Create(aValue: AnsiString);
begin
  FValue := aValue;
end;

{ TIntegerObject }

constructor TIntegerObject.Create();
begin
  FValue := 0;
end;

constructor TIntegerObject.Create(aValue: integer); overload;
begin
  FValue := aValue;
end;

end.
<commit_msg>* add shell for variants<commit_after>// This is part of the Obo Component Library
//
// This Source Code Form is subject to the terms of the Mozilla Public
// License, v. 2.0. If a copy of the MPL was not distributed with this
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
//
// This software is distributed without any warranty.
//
// @author <NAME> (<EMAIL> - www.mammola.net)

unit mBaseClassesAsObjects;

{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}


interface

type

  { TIntegerObject }

  TIntegerObject = class
  strict private
    FValue : Integer;
  public
    constructor Create(); overload;
    constructor Create(aValue : integer); overload;

    property Value : Integer read FValue write FValue;
  end;

  { TAnsiStringObject }

  TAnsiStringObject = class
  strict private
    FValue : AnsiString;
  public
    constructor Create(); overload;
    constructor Create(aValue : AnsiString); overload;

    property Value : AnsiString read FValue write FValue;
  end;

  { TUnicodeStringObject }

  TUnicodeStringObject = class
  strict private
    FValue : UnicodeString;
  public
    constructor Create(); overload;
    constructor Create(aValue : UnicodeString); overload;

    property Value : UnicodeString read FValue write FValue;
  end;

  { TStringObject }

  TStringObject = class
  strict private
    FValue : String;
  public
    constructor Create(); overload;
    constructor Create(aValue : String); overload;

    property Value : String read FValue write FValue;
  end;

  { TVariantObject }

  TVariantObject = class
  strict private
    FValue : Variant;
  public
    constructor Create(); overload;
    constructor Create(aValue : Variant); overload;

    property Value : Variant read FValue write FValue;
  end;

implementation

{ TVariantObject }

constructor TVariantObject.Create;
begin
  FValue := Null;
end;

constructor TVariantObject.Create(aValue: Variant);
begin
  FValue := aValue;
end;

{ TStringObject }

constructor TStringObject.Create;
begin
  FValue := '';
end;

constructor TStringObject.Create(aValue: String);
begin
  FValue := aValue;
end;

{ TUnicodeStringObject }

constructor TUnicodeStringObject.Create;
begin
  FValue := '';
end;

constructor TUnicodeStringObject.Create(aValue: UnicodeString);
begin
  FValue := aValue;
end;

{ TAnsiStringObject }

constructor TAnsiStringObject.Create;
begin
  FValue := '';
end;

constructor TAnsiStringObject.Create(aValue: AnsiString);
begin
  FValue := aValue;
end;

{ TIntegerObject }

constructor TIntegerObject.Create();
begin
  FValue := 0;
end;

constructor TIntegerObject.Create(aValue: integer); overload;
begin
  FValue := aValue;
end;

end.

{'fraction_non_alphanumeric': 0.08525927364536803, 'fraction_numerical': 0.0019421246844047388, 'mean_word_length': 3.0679304897314377, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6702682', 'n_tokens_mistral': 1662, 'n_tokens_neox': 1508, 'n_words': 463}