paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 22:34:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

synedit: LoadFromFile support for UTF-8 under Windows

Browse Source 
git-svn-id: trunk@41478 -
This commit is contained in:
mattias 2013-05-31 20:32:37 +00:00
parent 9ef980d63b
commit 9fe05b6fa9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditlines.pas
View File

@ -34,7 +34,7 @@ unit SynEditLines;
interface interface
uses uses
Classes, SysUtils, FileUtil, FPCAdds, SynEditTextBuffer; Classes, SysUtils, FileUtil, LazUtf8Classes, FPCAdds, SynEditTextBuffer;
type type
@ -98,7 +98,7 @@ type
fBuffer: PChar; fBuffer: PChar;
fBufPtr: Cardinal; fBufPtr: Cardinal;
fBufSize: Cardinal; fBufSize: Cardinal;
fFiler: TFileStream; fFiler: TFileStreamUtf8;
procedure Flush; virtual; procedure Flush; virtual;
procedure SetBufferSize(NewSize: Cardinal); procedure SetBufferSize(NewSize: Cardinal);
public public
@ -168,7 +168,7 @@ type
constructor TSynEditFileReader.Create(const FileName: string); constructor TSynEditFileReader.Create(const FileName: string);
begin begin
inherited Create; inherited Create;
fFiler := TFileStream.Create(UTF8ToSys(FileName), fmOpenRead{ ToDo: or fmShareDenyWrite}); fFiler := TFileStreamUtf8.Create(FileName, fmOpenRead{ ToDo: or fmShareDenyWrite});
fFileSize := fFiler.Size; fFileSize := fFiler.Size;
fFiler.Seek(0, soFromBeginning); fFiler.Seek(0, soFromBeginning);
end; end;
@ -261,7 +261,7 @@ type
constructor TSynEditFileWriter.Create(const FileName: string); constructor TSynEditFileWriter.Create(const FileName: string);
begin begin
inherited Create; inherited Create;
fFiler := TFileStream.Create(UTF8ToSys(FileName), fmCreate); fFiler := TFileStreamUtf8.Create(FileName, fmCreate);
fFiler.Seek(0, soFromBeginning); fFiler.Seek(0, soFromBeginning);
end; end;