Smart pascal source code


type
TTest = class
 Field : String;
 procedure AppendString(str : String);
 class operator += String uses AppendString;
end;

type
  TSubTest = class(TTest)
end;

procedure TTest.AppendString(str : String);
begin
   Field:=Field+str+',';
end;

{ << TEST II >> }
type
TTest2 = class
 Field : String;
 procedure AppendString(str : String);
 procedure AppendInteger(i : Integer);
 class operator += String uses AppendString;
 class operator += Integer uses AppendInteger;
end;

procedure TTest2.AppendString(str : String);
begin
   Field:=Field+'"'+str+'",';
end;

procedure TTest2.AppendInteger(i : Integer);
begin
   Field:=Field+IntToStr(i)+',';
end;

{ << TEST III >> }
type
   toa = array of const;

type
TTest3 = class
 Field : String;
 procedure AppendStrings(const str : toa);
 class operator += toa uses AppendStrings;
end;

procedure TTest3.AppendStrings(const str : array of const);
var
   i : Integer;
begin
   for i:=0 to High(str) do
      Field+=str[i];
end;

{ main.pas }

var
  t = TTest.Create;
 st = TSubTest.Create;
 t2 = TTest2.Create;
 t3 = TTest3.Create;

Begin
t.AppendString('first');
WriteLn(t.Field);

t += 'second';
WriteLn(t.Field);

st.Field:='Hello ';
st += 'World';
WriteLn(st.Field);
{ ### CONSOLE OUTPUTS ###
  first,
  first,second,
  Hello World,
}

{ << TEST II >> }
t2 += 1;
WriteLn(t2.Field);

t2 += 'second';
WriteLn(t2.Field);

t2 += 3;
WriteLn(t2.Field);
{ ### CONSOLE OUTPUTS ###
1,
1,"second",
1,"second",3,
}

{ << TEST III >> }
t3 += [1, 2];
WriteLn(t3.Field);

t3 += ['a', 'b', 'c'];
WriteLn(t3.Field);

t3 += [];
WriteLn(t3.Field);
{ ### CONSOLE OUTPUTS ###
  12
  12abc
  12abc
}

      var t = null,
         t = TObject.Create($New(TTest));
      var st = null,
         st = TObject.Create($New(TSubTest));
      var t2 = null,
         t2 = TObject.Create($New(TTest2));
      var t3 = null,
         t3 = TObject.Create($New(TTest3));
      TTest.AppendString$1(t,"first");
      WriteLn(t.Field$2);
      TTest.AppendString$1(t,"second");
      WriteLn(t.Field$2);
      st.Field$2 = "Hello ";
      TTest.AppendString$1(st,"World");
      WriteLn(st.Field$2);
      TTest2.AppendInteger(t2,1);
      WriteLn(t2.Field$1);
      TTest2.AppendString(t2,"second");
      WriteLn(t2.Field$1);
      TTest2.AppendInteger(t2,3);
      WriteLn(t2.Field$1);
      TTest3.AppendStrings(t3,[1, 2]);
      WriteLn(t3.Field);
      TTest3.AppendStrings(t3,["a", "b", "c"]);
      WriteLn(t3.Field);
      TTest3.AppendStrings(t3,[]);
      WriteLn(t3.Field);
	  
/// TTest3 = class (TObject)
///  [line: 112, column: 1, file: uMain]
var TTest3 = {
   $ClassName:"TTest3",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = "";
   }
   /// procedure TTest3.AppendStrings(const str: toa)
   ///  [line: 118, column: 18, file: uMain]
   ,AppendStrings:function(Self, str) {
      var i = 0;
      var $temp1;
      for(i=0,$temp1=str.length;i<$temp1;i++) {
         Self.Field+=String(str[i]);
      }
   }
   ,Destroy:TObject.Destroy
};
/// TTest2 = class (TObject)
///  [line: 89, column: 1, file: uMain]
var TTest2 = {
   $ClassName:"TTest2",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field$1 = "";
   }
   /// procedure TTest2.AppendString(str: String)
   ///  [line: 97, column: 18, file: uMain]
   ,AppendString:function(Self, str$1) {
      Self.Field$1 = Self.Field$1+"\""+str$1+"\",";
   }
   /// procedure TTest2.AppendInteger(i: Integer)
   ///  [line: 102, column: 18, file: uMain]
   ,AppendInteger:function(Self, i$1) {
      Self.Field$1 = Self.Field$1+i$1.toString()+",";
   }
   ,Destroy:TObject.Destroy
};
/// TTest = class (TObject)
///  [line: 72, column: 1, file: uMain]
var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field$2 = "";
   }
   /// procedure TTest.AppendString(str: String)
   ///  [line: 82, column: 17, file: uMain]
   ,AppendString$1:function(Self, str$2) {
      Self.Field$2 = Self.Field$2+str$2+",";
   }
   ,Destroy:TObject.Destroy
};
/// TSubTest = class (TTest)
///  [line: 79, column: 3, file: uMain]
var TSubTest = {
   $ClassName:"TSubTest",$Parent:TTest
   ,$Init:function ($) {
      TTest.$Init($);
   }
   ,Destroy:TObject.Destroy
};