paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: cleanup + formatting of comments.

Browse Source 
git-svn-id: trunk@29063 -
This commit is contained in:
juha 2011-01-17 10:57:45 +00:00
parent 743dd68949
commit d1a5dcbcc9
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
converter/usedunits.pas
View File

@ -48,18 +48,17 @@ type
TUsedUnits = class
private
fCTLink: TCodeToolLink; // Link to codetools.
fCTLink: TCodeToolLink; // Link to codetools.
fOwnerTool: TUsedUnitsTool;
fUsesSection: TUsesSection; // Enum used by some codetools funcs.
fExistingUnits: TStringList; // List of units before conversion.
fUnitsToAdd: TStringList; // List of new units to add.
fUnitsToAddForLCL: TStringList; // List of new units for LCL (not for Delphi).
fUnitsToRemove: TStringList; // List of units to remove.
// Units to rename. Map old unit name -> new unit name.
fUnitsToRename: TStringToStringTree;
fUnitsToFixCase: TStringToStringTree; // Like rename but done for every target.
fUnitsToComment: TStringList; // List of units to be commented.
fMissingUnits: TStringList; // Units not found in search path.
fUsesSection: TUsesSection; // Enum used by some codetools funcs.
fExistingUnits: TStringList; // List of units before conversion.
fUnitsToAdd: TStringList; // List of new units to add.
fUnitsToAddForLCL: TStringList; // List of new units for LCL (not for Delphi).
fUnitsToRemove: TStringList; // List of units to remove.
fUnitsToRename: TStringToStringTree; // Units to rename. Map old name -> new name.
fUnitsToFixCase: TStringToStringTree;// Like rename but done for every target.
fUnitsToComment: TStringList; // List of units to be commented.
fMissingUnits: TStringList; // Units not found in search path.
function FindMissingUnits: boolean;
procedure ToBeRenamedOrRemoved(AOldName, ANewName: string);
procedure FindReplacement(AUnitUpdater: TStringMapUpdater;