paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: rename a private var in Masks unit. No functional changes.

Browse Source
This commit is contained in:
Bart 2021-10-29 16:37:56 +02:00
parent fcbc9cbb65
commit ab65998e7a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/masks.pas
View File

@ -38,11 +38,11 @@ type
mecInvalidUTF8Sequence
);
protected
cCode: TMaskExceptionCode;
FCode: TMaskExceptionCode;
public
constructor Create(const msg: string; aCode: TMaskExceptionCode);
constructor CreateFmt(const msg: string; args: array of const; aCode: TMaskExceptionCode);
property Code: TMaskExceptionCode read cCode;
property Code: TMaskExceptionCode read FCode;
end;
TMaskFailCause = (
@ -547,7 +547,7 @@ end;
constructor EMaskError.CreateFmt(const msg: string; args: array of const;
aCode: TMaskExceptionCode);
begin
cCode:=aCode;
FCode:=aCode;
Inherited CreateFmt(msg,args);
end;