From 092c149f31188d754589fb6d00a05ab05d30aa56 Mon Sep 17 00:00:00 2001 From: Marc Durdin Date: Tue, 21 Jun 2022 09:55:52 +1000 Subject: [PATCH] chore(windows): delete unused WideStringClass.pas --- windows/src/engine/keyman/keyman.dpr | 1 - windows/src/engine/keyman/keyman.dproj | 1 - .../global/delphi/general/WideStringClass.pas | 37 ------------------- 3 files changed, 39 deletions(-) delete mode 100644 windows/src/global/delphi/general/WideStringClass.pas diff --git a/windows/src/engine/keyman/keyman.dpr b/windows/src/engine/keyman/keyman.dpr index 32122540e5..1b40225ff8 100644 --- a/windows/src/engine/keyman/keyman.dpr +++ b/windows/src/engine/keyman/keyman.dpr @@ -67,7 +67,6 @@ uses Hints in '..\..\global\delphi\hints\Hints.pas', utilcheckfonts in '..\..\global\delphi\general\utilcheckfonts.pas', findfonts in '..\..\global\delphi\general\findfonts.pas', - WideStringClass in '..\..\global\delphi\general\WideStringClass.pas', utiluac in '..\..\global\delphi\general\utiluac.pas', VKeyChars in '..\..\global\delphi\general\VKeyChars.pas', usp10 in '..\..\..\..\common\windows\delphi\general\usp10.pas', diff --git a/windows/src/engine/keyman/keyman.dproj b/windows/src/engine/keyman/keyman.dproj index cabb69f3b8..59a2bf2559 100644 --- a/windows/src/engine/keyman/keyman.dproj +++ b/windows/src/engine/keyman/keyman.dproj @@ -183,7 +183,6 @@ - diff --git a/windows/src/global/delphi/general/WideStringClass.pas b/windows/src/global/delphi/general/WideStringClass.pas deleted file mode 100644 index 22434ef119..0000000000 --- a/windows/src/global/delphi/general/WideStringClass.pas +++ /dev/null @@ -1,37 +0,0 @@ -(* - Name: WideStringClass - Copyright: Copyright (C) SIL International. - Documentation: - Description: - Create Date: 27 Mar 2008 - - Modified Date: 27 Mar 2008 - Authors: mcdurdin - Related Files: - Dependencies: - - Bugs: - Todo: - Notes: - History: 27 Mar 2008 - mcdurdin - Initial version -*) -unit WideStringClass; - -interface - -type - TWideString = class - s: string; - constructor Create(const fs: WideString); - end; - -implementation - -{ TWideString } - -constructor TWideString.Create(const fs: WideString); -begin - s := fs; -end; - -end.