Source position: googlediscovery.pp line 266
protected procedure TJsonSchema.Setpattern(
AIndex: Integer;
const AValue: string
); virtual;