paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 12:44:09 +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

10
converter/convertdelphi.pas
View File

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