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

PoChecker: removed unused boilerplate constructors from TPoFamily class

Browse Source 
git-svn-id: trunk@60674 -
This commit is contained in:
maxim 2019-03-14 23:39:11 +00:00
parent be9ae3b82b
commit 41c97f0864
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/pochecker/pofamilies.pp
View File

@ -61,8 +61,6 @@ Type
procedure DoTestStart(const ATestName, APoFileName: String); procedure DoTestStart(const ATestName, APoFileName: String);
procedure DoTestEnd(const ATestName: String; const ErrorCount: Integer); procedure DoTestEnd(const ATestName: String; const ErrorCount: Integer);
public public
constructor Create;
constructor Create(const MasterName: String);
constructor Create(const AMasterName, AChildName: String); constructor Create(const AMasterName, AChildName: String);
destructor Destroy; override; destructor Destroy; override;
@ -360,16 +358,6 @@ begin
FChildName := AValue; FChildName := AValue;
end; end;
constructor TPoFamily.Create;
begin
Create('','');
end;
constructor TPoFamily.Create(const MasterName: String);
begin
Create(MasterName, '');
end;
constructor TPoFamily.Create(const AMasterName, AChildName: String); constructor TPoFamily.Create(const AMasterName, AChildName: String);
begin begin
if (AMasterName <> '') then if (AMasterName <> '') then