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

implemented broken dependencies dialog

Browse Source 
git-svn-id: trunk@3409 -
This commit is contained in:
mattias 2002-10-01 15:45:39 +00:00
parent d4d9be12c6
commit 8f9ea479eb
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/ideprocs.pp
View File

@ -75,6 +75,7 @@ const
// files // files
function BackupFile(const Filename, BackupFilename: string): boolean; function BackupFile(const Filename, BackupFilename: string): boolean;
function ClearFile(const Filename: string; RaiseOnError: boolean): boolean;
function CompareFilenames(const Filename1, Filename2: string): integer; function CompareFilenames(const Filename1, Filename2: string): integer;
function CompareFilenames(const Filename1, Filename2: string; function CompareFilenames(const Filename1, Filename2: string;
ResolveLinks: boolean): integer; ResolveLinks: boolean): integer;
@ -666,6 +667,29 @@ begin
Result:=true; Result:=true;
end; end;
{-------------------------------------------------------------------------------
function ClearFile(const Filename: string; RaiseOnError: boolean): boolean;
-------------------------------------------------------------------------------}
function ClearFile(const Filename: string; RaiseOnError: boolean): boolean;
var
fs: TFileStream;
begin
if FileExists(Filename) then begin
try
fs:=TFileStream.Create(Filename,fmOpenWrite);
fs.Size:=0;
fs.Free;
except
on E: Exception do begin
Result:=false;
if RaiseOnError then raise;
exit;
end;
end;
end;
Result:=true;
end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
TabsToSpaces TabsToSpaces