mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 05:09:10 +02:00
Converter: improve comments
git-svn-id: trunk@38272 -
This commit is contained in:
parent
0d694dafac
commit
f6f3d00b54
@ -205,8 +205,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TConvDelphiCodeTool.Convert: TModalResult;
|
function TConvDelphiCodeTool.Convert: TModalResult;
|
||||||
// add {$mode delphi} directive
|
// Add {$mode delphi} directive
|
||||||
// remove {$R *.dfm} or {$R *.xfm} directive
|
// Remove {$R *.dfm} or {$R *.xfm} directive
|
||||||
// Change {$R *.RES} to {$R *.res} if needed
|
// Change {$R *.RES} to {$R *.res} if needed
|
||||||
// TODO: fix delphi ambiguouties like incomplete proc implementation headers
|
// TODO: fix delphi ambiguouties like incomplete proc implementation headers
|
||||||
begin
|
begin
|
||||||
@ -378,7 +378,8 @@ var
|
|||||||
ReplacementParams: TObjectList; // Replacement parameters.
|
ReplacementParams: TObjectList; // Replacement parameters.
|
||||||
|
|
||||||
function ParseReplacementParams(const aStr: string): integer;
|
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.
|
// Returns the first position where comments can be searched from.
|
||||||
var
|
var
|
||||||
i, xNum, xStart, xLen: Integer;
|
i, xNum, xStart, xLen: Integer;
|
||||||
@ -505,7 +506,7 @@ begin
|
|||||||
ReadNextAtom; // Read proc name.
|
ReadNextAtom; // Read proc name.
|
||||||
ProcName:=GetAtom;
|
ProcName:=GetAtom;
|
||||||
ReadNextAtom;
|
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);
|
fDefinedProcNames.Add(ProcName);
|
||||||
end;
|
end;
|
||||||
Result:=aNode.Next;
|
Result:=aNode.Next;
|
||||||
@ -514,7 +515,7 @@ end;
|
|||||||
function TConvDelphiCodeTool.ReplaceFuncCalls(aIsConsoleApp: boolean): boolean;
|
function TConvDelphiCodeTool.ReplaceFuncCalls(aIsConsoleApp: boolean): boolean;
|
||||||
// Copied and modified from TFindDeclarationTool.FindReferences.
|
// Copied and modified from TFindDeclarationTool.FindReferences.
|
||||||
// Search for calls to functions / procedures in a list from current unit's
|
// 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
|
var
|
||||||
xStart: Integer;
|
xStart: Integer;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user