From f6788eb5b90aa15837150b1dd33be47eb347961b Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 1 Mar 2015 12:43:07 +0000 Subject: [PATCH] lazutils: TFileStreamUTF8: fixed string type git-svn-id: trunk@48070 - --- components/lazutils/lazutf8classes.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/components/lazutils/lazutf8classes.pas b/components/lazutils/lazutf8classes.pas index 79806d9d26..d1a6676c26 100644 --- a/components/lazutils/lazutf8classes.pas +++ b/components/lazutils/lazutf8classes.pas @@ -15,8 +15,8 @@ type private FFileName: utf8string; public - constructor Create(const AFileName: utf8string; Mode: Word); - constructor Create(const AFileName: utf8string; Mode: Word; Rights: Cardinal); + constructor Create(const AFileName: string; Mode: Word); + constructor Create(const AFileName: string; Mode: Word; Rights: Cardinal); destructor Destroy; override; property FileName: utf8string Read FFilename; end; @@ -117,12 +117,12 @@ begin end; end; -constructor TFileStreamUTF8.Create(const AFileName: utf8string; Mode: Word); +constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word); begin Create(AFileName,Mode,438); end; -constructor TFileStreamUTF8.Create(const AFileName: utf8string; Mode: Word; Rights: Cardinal); +constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word; Rights: Cardinal); var lHandle: THandle; begin