pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Removed, unused code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1966 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-16 14:53:36 +00:00
parent 1bc00e858d
commit d47fca3e56
2 changed files with 0 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/jujiboutils/examples/testmemdataset/jcontrolutils.pas
View File

@ -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;

11
components/jujiboutils/examples/testnodbinput/jcontrolutils.pas
View File

@ -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;