diff --git a/components/lazutils/lazutf8classes.pas b/components/lazutils/lazutf8classes.pas index 0190cf1d41..88a07c1300 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; @@ -143,11 +142,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