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

Converter: improve comments

Browse Source 
git-svn-id: trunk@38272 -
This commit is contained in:
juha 2012-08-18 12:33:35 +00:00
parent 0d694dafac
commit f6f3d00b54
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
converter/convcodetool.pas
View File

@ -205,8 +205,8 @@ begin
end;
function TConvDelphiCodeTool.Convert: TModalResult;
// add {$mode delphi} directive
// remove {$R *.dfm} or {$R *.xfm} directive
// Add {$mode delphi} directive
// Remove {$R *.dfm} or {$R *.xfm} directive
// Change {$R *.RES} to {$R *.res} if needed
// TODO: fix delphi ambiguouties like incomplete proc implementation headers
begin
@ -378,7 +378,8 @@ var
ReplacementParams: TObjectList; // Replacement parameters.
function ParseReplacementParams(const aStr: string): integer;
// Parse replacement params. They show which original params are copied where.
// Parse replacement params which are defined in configuration.
// They show which original params are copied where.
// Returns the first position where comments can be searched from.
var
i, xNum, xStart, xLen: Integer;
@ -505,7 +506,7 @@ begin
ReadNextAtom; // Read proc name.
ProcName:=GetAtom;
ReadNextAtom;
if GetAtom<>'.' then // Don't save a method name (like TClass.Method).
if GetAtom<>'.' then // Don't save a method name (like TMyClass.Method).
fDefinedProcNames.Add(ProcName);
end;
Result:=aNode.Next;
@ -514,7 +515,7 @@ end;
function TConvDelphiCodeTool.ReplaceFuncCalls(aIsConsoleApp: boolean): boolean;
// Copied and modified from TFindDeclarationTool.FindReferences.
// Search for calls to functions / procedures in a list from current unit's
// implementation section. Replace found calls with a given replacement.
// implementation section code. Replace found calls with a given replacement.
var
xStart: Integer;