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

Converter: reordering code

Browse Source 
git-svn-id: trunk@39296 -
This commit is contained in:
juha 2012-11-18 11:41:34 +00:00
parent f5c07f66be
commit b7d905fbd8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
converter/convertdelphi.pas
View File

@ -398,6 +398,11 @@ type
{ TUnitsSearcher } { TUnitsSearcher }
constructor TUnitsSearcher.Create(aConverter: TConvertDelphiPBase);
begin
fConverter := aConverter;
end;
procedure TUnitsSearcher.DoFileFound; procedure TUnitsSearcher.DoFileFound;
var var
RelPath, SubPath, sUnitName, fn: String; RelPath, SubPath, sUnitName, fn: String;
@ -415,11 +420,6 @@ begin
end; end;
end; end;
constructor TUnitsSearcher.Create(aConverter: TConvertDelphiPBase);
begin
fConverter := aConverter;
end;
{ TCacheUnitsThread } { TCacheUnitsThread }
constructor TCacheUnitsThread.Create(aConverter: TConvertDelphiPBase; aPath: string); constructor TCacheUnitsThread.Create(aConverter: TConvertDelphiPBase; aPath: string);