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

components: fix compilation of LazUtils

Browse Source 
git-svn-id: trunk@32686 -
This commit is contained in:
paul 2011-10-05 00:47:10 +00:00
parent 851ffe5bc9
commit 7f7d57f048
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazfileutils.pas
View File

@ -365,7 +365,7 @@ var
fs: TFileStream;
s: String;
begin
TempFilename:=GetTempFilename(AppendPathDelim(DirectoryName),'tstperm');
TempFilename:=SysUtils.GetTempFilename(AppendPathDelim(DirectoryName),'tstperm');
Result:=false;
try
fs:=TFileStream.Create(UTF8ToSys(TempFilename),fmCreate);

3
components/lazutils/lazutf8.pas
View File

@ -5,6 +5,9 @@ unit LazUTF8;
interface
uses
{$ifdef windows}
Windows,
{$endif}
Classes, SysUtils;
// AnsiToUTF8 and UTF8ToAnsi need a widestring manager under Linux, BSD, MacOSX