mORMot Open Source

Márcio Baroni

Member

From: Brasil

Registered: 2015-10-07

Posts: 28

Procedure InvalidTextLengthMin

Hello, I found a detail in the procedure "InvalidTextLengthMin" unit"SynCommons.pas" used in the function "TSynValidateText.Process"

original:
procedure InvalidTextLengthMin(min: integer; var result: string);
begin
  result := Format(sInvalidTextLengthMin,[1,Character01n(1)]);
end;

correction:
procedure InvalidTextLengthMin(min: integer; var result: string);
begin
  result := Format(sInvalidTextLengthMin,[min,Character01n(min)]);
end;

thank you

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,207

Website

Re: Procedure InvalidTextLengthMin

Should be fixed by http://synopse.info/fossil/info/68fde4412eeba

Thanks for the feedback!