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

Converter: fix compilation

Browse Source 
git-svn-id: trunk@41666 -
This commit is contained in:
juha 2013-06-10 14:42:06 +00:00
parent cff5dd3116
commit cfa52d59ed
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convertdelphi.pas
View File

@ -137,7 +137,7 @@ type
function DoMissingUnits(AUsedUnitsTool: TUsedUnitsTool): integer; virtual;
function GetCachedUnitPath(const AUnitName: string): string;
protected
procedure EndConvert(AStatus: TModalResult);
function EndConvert(AStatus: TModalResult): Boolean;
public
constructor Create(const AFilename, ADescription: string);
destructor Destroy; override;
@ -855,7 +855,7 @@ begin
Result:=fCachedUnitNames[AUnitName];
end;
procedure TConvertDelphiPBase.EndConvert(AStatus: TModalResult);
function TConvertDelphiPBase.EndConvert(AStatus: TModalResult): Boolean;
begin
// Show ending message
if AStatus=mrOK then

4
converter/convertsettings.pas
View File

@ -106,7 +106,7 @@ type
function BackupFile(const AFilename: string): TModalResult;
procedure ClearLog;
function AddLogLine(const ALine: string): integer;
procedure SaveLog;
function SaveLog: Boolean;
public
property MainFilename: String read fMainFilename write SetMainFilename;
property MainPath: String read fMainPath;
@ -787,7 +787,7 @@ begin
Result:=fLog.Add(ALine); // and store for log.
end;
procedure TConvertSettings.SaveLog;
function TConvertSettings.SaveLog: Boolean;
var
aFilename: String;
Code: TCodeBuffer;