anchor.diff:    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
  
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:       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;
  
  