| 21 |
function ReplaceString(const S, OldPattern, NewPattern: string): string; |
function ReplaceString(const S, OldPattern, NewPattern: string): string; |
| 22 |
function IgnoCaseReplaceString(const S, OldPattern, NewPattern: string): string; |
function IgnoCaseReplaceString(const S, OldPattern, NewPattern: string): string; |
| 23 |
|
|
| 24 |
function CustomStringReplace(S , OldPattern: String;const NewPattern: string): String; overload; |
function CustomStringReplace(S , OldPattern: String;const NewPattern: string; IgnoreCase : Boolean = False): String; overload; |
| 25 |
function CustomStringReplace(S , OldPattern: String;const NewPattern: string; IgnoreCase : Boolean): String; overload; |
procedure CustomStringReplace(var S : TStringList; OldPattern: String;const NewPattern: string; IgnoreCase : Boolean = False); overload; |
|
procedure CustomStringReplace(var S : TStringList; OldPattern: String;const NewPattern: string);overload; |
|
|
procedure CustomStringReplace(var S : TStringList; OldPattern: String;const NewPattern: string; IgnoreCase : Boolean);overload; |
|
| 26 |
|
|
| 27 |
function ZenToHan(const s: string): string; |
function ZenToHan(const s: string): string; |
| 28 |
function VaguePos(const Substr, S: string): Integer; |
function VaguePos(const Substr, S: string): Integer; |
| 205 |
{$R+} |
{$R+} |
| 206 |
{$ENDIF} |
{$ENDIF} |
| 207 |
|
|
|
//高速文字列置換関数(プリミティブ) |
|
|
function CustomStringReplace( |
|
|
S ,OldPattern: String; |
|
|
const NewPattern: string |
|
|
): String; |
|
|
|
|
|
begin |
|
|
Result := ReplaceString(S,OldPattern,NewPattern); |
|
|
end; |
|
|
|
|
| 208 |
//高速文字列置換関数(汎用版1) |
//高速文字列置換関数(汎用版1) |
| 209 |
function CustomStringReplace( |
function CustomStringReplace( |
| 210 |
S , OldPattern: String; |
S , OldPattern: String; |
| 242 |
end; |
end; |
| 243 |
S.EndUpdate; |
S.EndUpdate; |
| 244 |
end; |
end; |
|
|
|
|
//高速文字列置換関数(汎用版3) |
|
|
procedure CustomStringReplace( |
|
|
var S : TStringList; |
|
|
OldPattern: String; |
|
|
const NewPattern: string |
|
|
); |
|
|
var |
|
|
i : Integer; |
|
|
begin |
|
|
S.BeginUpdate; |
|
|
for i := 0 to S.Count - 1 do begin |
|
|
S.Strings[i] := ReplaceString(S.Strings[i], OldPattern,NewPattern);; |
|
|
end; |
|
|
S.EndUpdate; |
|
|
end; |
|
| 245 |
|
|
| 246 |
(************************************************************************* |
(************************************************************************* |
| 247 |
* 全角→半角 |
* 全角→半角 |