From 97043d368b8adb0e680b47773d6c28c8a6e53ae8 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Mon, 6 May 2019 06:36:12 +0200 Subject: [PATCH] Issue #74: remove no longer used hackish helper function GetColumnDefaultType() --- source/apphelpers.pas | 8 -------- 1 file changed, 8 deletions(-) diff --git a/source/apphelpers.pas b/source/apphelpers.pas index f32126cd..074d1ccf 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -331,7 +331,6 @@ type function StringListCompareAnythingAsc(List: TStringList; Index1, Index2: Integer): Integer; function StringListCompareAnythingDesc(List: TStringList; Index1, Index2: Integer): Integer; function StringListCompareByValue(List: TStringList; Index1, Index2: Integer): Integer; - function GetColumnDefaultType(var Text: String): TColumnDefaultType; function GetImageLinkTimeStamp(const FileName: string): TDateTime; function IsEmpty(Str: String): Boolean; function IsNotEmpty(Str: String): Boolean; @@ -2309,13 +2308,6 @@ begin end; -function GetColumnDefaultType(var Text: String): TColumnDefaultType; -begin - Result := TColumnDefaultType(MakeInt(Copy(Text, 1, 1))); - Text := Copy(Text, 2, Length(Text)-1); -end; - - {** Return compile date/time from passed .exe name Code taken and modified from Michael Puff