ShineOn Commit Details - 170 - ShineOn is a Delphi-win32 compatibility library

Date:	2010-10-17 00:49:44 (2 years 7 months ago)
Author:	Roman Kassebaum
Commit:	170
Parents:	169
Message:	New method DupeString

File differences

trunk/Source/ShineOn.RTL/StrUtils.pas
14	14	class method MidStr(aStr: String; aStart, aCount: Integer): String;
15	15	class method AnsiReverseString(S: String): String;
16	16	class method AnsiDupeStr(aStr: String; aCount: Integer): String;
	17	class method DupeString(AText: String; ACount: Integer): String;
17	18	class method AnsiLeftStr(aStr: String; aCount: Integer): String;
18	19	class method AnsiRightStr(aStr: String; aCount: Integer): String;
19	20	class method AnsiMidStr(aStr: String; aStart, aCount: Integer): String;
...	...
26	27	method RightStr(aStr: String; aCount: Integer): String; public;
27	28	method MidStr(aStr: String; aStart, aCount: Integer): String; public;
28	29	method AnsiDupeStr(aStr: String; aCount: Integer): String; public;
	30	method DupeString(AText: String; ACount: Integer): String; public;
29	31	method AnsiReverseString(S: String): String; public;
30	32	method AnsiLeftStr(aStr: String; aCount: Integer): String; public;
31	33	method AnsiRightStr(aStr: String; aCount: Integer): String; public;
...	...
69	71	result := fSb.ToString;
70	72	end;
71	73
	74	class method StrUtils.DupeString(AText: String; ACount: Integer): String;
	75	begin
	76	exit(AnsiDupeStr(AText, ACount));
	77	end;
	78
72	79	class method StrUtils.AnsiLeftStr(aStr: String; aCount: Integer): String;
73	80	begin
74	81	result := LeftStr(aStr, aCount);
...	...
130	137	result := StrUtils.AnsiDupeStr(aStr, aCount);
131	138	end;
132	139
	140	method DupeString(AText: String; ACount: Integer): String;
	141	begin
	142	exit(StrUtils.DupeString(AText, ACount));
	143	end;
	144
133	145	method AnsiLeftStr(aStr: String; aCount: Integer): String;
134	146	begin
135	147	result := StrUtils.AnsiLeftStr(aStr, aCount);

Download the corresponding diff file