anchor.diff:        property lines[i:cardinal]:TStr
           read GetLine write SetLine; default;
         property strings : TStrings read ToStrings write LoadFromStrings;
  +      property text : TStr read ToString write LoadFromString;
       end;
    
  
positive.code:     public
        procedure LoadFromFile(path:TStr);
        procedure SaveToFile(path:TStr);
        procedure LoadFromStrings( strings : TStrings );
        function ToStrings : TStrings;
        function ToString : TStr; reintroduce;
      public
  
negative.code:   end;
  
  procedure TBuffer.LoadFromString( s : TStr );
    var ts : TStringList; i : integer;
    begin
      ts := TStringList.Create; ts.text := s;
      self.clear;
      if ts.count > 0 then for i := 0 to ts.count-1 do self.AddLine(ts[i]);
      ts.Free;
    end;
  
  
  function TBuffer.ToString : TStr;
    var i, len : cardinal;
    begin
  