From 3584c167eef1b08b1cf938698e7c02dafcc4e399 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 1 Mar 2015 13:55:40 +0000 Subject: [PATCH] lazutils: clean up git-svn-id: trunk@48078 - --- components/lazutils/lazutf8classes.pas | 6 ------ 1 file changed, 6 deletions(-) diff --git a/components/lazutils/lazutf8classes.pas b/components/lazutils/lazutf8classes.pas index 8de9f69001..a1aed39f74 100644 --- a/components/lazutils/lazutf8classes.pas +++ b/components/lazutils/lazutf8classes.pas @@ -17,7 +17,6 @@ type public constructor Create(const AFileName: string; Mode: Word); constructor Create(const AFileName: string; Mode: Word; Rights: Cardinal); - destructor Destroy; override; property FileName: string Read FFilename; end; @@ -149,11 +148,6 @@ begin THandleStream(Self).Create(lHandle); end; -destructor TFileStreamUTF8.Destroy; -begin - FileClose(Handle); -end; - function TStringListUTF8.DoCompareText(const s1, s2: string): PtrInt; begin if CaseSensitive then