From 7f7d57f04800441f71efa3f33214f8da104526d9 Mon Sep 17 00:00:00 2001 From: paul Date: Wed, 5 Oct 2011 00:47:10 +0000 Subject: [PATCH] components: fix compilation of LazUtils git-svn-id: trunk@32686 - --- components/lazutils/lazfileutils.pas | 2 +- components/lazutils/lazutf8.pas | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/components/lazutils/lazfileutils.pas b/components/lazutils/lazfileutils.pas index 5f7b1808a1..fe52573618 100644 --- a/components/lazutils/lazfileutils.pas +++ b/components/lazutils/lazfileutils.pas @@ -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); diff --git a/components/lazutils/lazutf8.pas b/components/lazutils/lazutf8.pas index 56bcb83e76..6d9fdca969 100644 --- a/components/lazutils/lazutf8.pas +++ b/components/lazutils/lazutf8.pas @@ -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