Skip to content
Permalink
Browse files

Issue #74: remove no longer used hackish helper function GetColumnDef…

…aultType()
  • Loading branch information...
ansgarbecker committed May 6, 2019
1 parent 2f77c9e commit 97043d368b8adb0e680b47773d6c28c8a6e53ae8
Showing with 0 additions and 8 deletions.
  1. +0 −8 source/apphelpers.pas
@@ -331,7 +331,6 @@ TAppSettings = class(TObject)
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 @@ function StringListCompareByValue(List: TStringList; Index1, Index2: Integer): I
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

0 comments on commit 97043d3

Please sign in to comment.
You can’t perform that action at this time.