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