paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 05:17:24 +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; fs: TFileStream;
s: String; s: String;
begin begin
TempFilename:=GetTempFilename(AppendPathDelim(DirectoryName),'tstperm'); TempFilename:=SysUtils.GetTempFilename(AppendPathDelim(DirectoryName),'tstperm');
Result:=false; Result:=false;
try try
fs:=TFileStream.Create(UTF8ToSys(TempFilename),fmCreate); fs:=TFileStream.Create(UTF8ToSys(TempFilename),fmCreate);

3
components/lazutils/lazutf8.pas
View File

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