From d47fca3e56bd96b15784af1b79df73a3216745f3 Mon Sep 17 00:00:00 2001 From: jujibo Date: Fri, 16 Sep 2011 14:53:36 +0000 Subject: [PATCH] Removed, unused code git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1966 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../examples/testmemdataset/jcontrolutils.pas | 11 ----------- .../examples/testnodbinput/jcontrolutils.pas | 11 ----------- 2 files changed, 22 deletions(-) diff --git a/components/jujiboutils/examples/testmemdataset/jcontrolutils.pas b/components/jujiboutils/examples/testmemdataset/jcontrolutils.pas index 9f898ff87..870ab78c3 100644 --- a/components/jujiboutils/examples/testmemdataset/jcontrolutils.pas +++ b/components/jujiboutils/examples/testmemdataset/jcontrolutils.pas @@ -24,7 +24,6 @@ interface uses Classes, SysUtils, Dialogs; -function ReplaceChar(const s: string; ch1: char; ch2: char): string; function CountChar(const s: string; ch: char): integer; procedure Split(const Delimiter: char; Input: string; Strings: TStrings); function NormalizeDate(const Value: string; theValue: TDateTime; @@ -34,16 +33,6 @@ function IsValidDateString(const Value: string): boolean; implementation -function ReplaceChar(const s: string; ch1: char; ch2: char): string; -var - i: integer; -begin - Result := s; - for i := 1 to length(Result) do - if Result[i] = ch1 then - Result[i] := ch2; -end; - function CountChar(const s: string; ch: char): integer; var i: integer; diff --git a/components/jujiboutils/examples/testnodbinput/jcontrolutils.pas b/components/jujiboutils/examples/testnodbinput/jcontrolutils.pas index 9f898ff87..870ab78c3 100644 --- a/components/jujiboutils/examples/testnodbinput/jcontrolutils.pas +++ b/components/jujiboutils/examples/testnodbinput/jcontrolutils.pas @@ -24,7 +24,6 @@ interface uses Classes, SysUtils, Dialogs; -function ReplaceChar(const s: string; ch1: char; ch2: char): string; function CountChar(const s: string; ch: char): integer; procedure Split(const Delimiter: char; Input: string; Strings: TStrings); function NormalizeDate(const Value: string; theValue: TDateTime; @@ -34,16 +33,6 @@ function IsValidDateString(const Value: string): boolean; implementation -function ReplaceChar(const s: string; ch1: char; ch2: char): string; -var - i: integer; -begin - Result := s; - for i := 1 to length(Result) do - if Result[i] = ch1 then - Result[i] := ch2; -end; - function CountChar(const s: string; ch: char): integer; var i: integer;