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

Packager: remove obsolete PkgSaveFlagNames and PkgOpenFlagNames, use WriteStr

Browse Source 
git-svn-id: trunk@33244 -
This commit is contained in:
juha 2011-11-02 23:19:26 +00:00
parent 09c62e511b
commit c2a767ce5f
1 changed files with 10 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packager/basepkgmanager.pas
View File

@ -154,19 +154,6 @@ type
var var
PkgBoss: TBasePkgManager; PkgBoss: TBasePkgManager;
const
PkgSaveFlagNames: array[TPkgSaveFlag] of string = (
'psfSaveAs'
);
PkgOpenFlagNames: array[TPkgOpenFlag] of string = (
'pofAddToRecent',
'pofRevert',
'pofConvertMacros',
'pofMultiOpen',
'pofDoNotOpenEditor'
);
function PkgSaveFlagsToString(Flags: TPkgSaveFlags): string; function PkgSaveFlagsToString(Flags: TPkgSaveFlags): string;
function PkgOpenFlagsToString(Flags: TPkgOpenFlags): string; function PkgOpenFlagsToString(Flags: TPkgOpenFlags): string;
@ -181,12 +168,15 @@ implementation
function PkgSaveFlagsToString(Flags: TPkgSaveFlags): string; function PkgSaveFlagsToString(Flags: TPkgSaveFlags): string;
var var
f: TPkgSaveFlag; f: TPkgSaveFlag;
s: string;
begin begin
Result:=''; Result:='';
for f:=Low(TPkgSaveFlag) to High(TPkgSaveFlag) do begin for f:=Low(TPkgSaveFlag) to High(TPkgSaveFlag) do begin
if not (f in Flags) then continue; if not (f in Flags) then continue;
if Result<>'' then Result:=Result+','; WriteStr(s, f);
Result:=Result+PkgSaveFlagNames[f]; if Result<>'' then
Result:=Result+',';
Result:=Result+s;
end; end;
Result:='['+Result+']'; Result:='['+Result+']';
end; end;
@ -194,12 +184,15 @@ end;
function PkgOpenFlagsToString(Flags: TPkgOpenFlags): string; function PkgOpenFlagsToString(Flags: TPkgOpenFlags): string;
var var
f: TPkgOpenFlag; f: TPkgOpenFlag;
s: string;
begin begin
Result:=''; Result:='';
for f:=Low(TPkgOpenFlag) to High(TPkgOpenFlag) do begin for f:=Low(TPkgOpenFlag) to High(TPkgOpenFlag) do begin
if not (f in Flags) then continue; if not (f in Flags) then continue;
if Result<>'' then Result:=Result+','; WriteStr(s, f);
Result:=Result+PkgOpenFlagNames[f]; if Result<>'' then
Result:=Result+',';
Result:=Result+s;
end; end;
Result:='['+Result+']'; Result:='['+Result+']';
end; end;