Scripting-Parser/KM_StringUtils.pas at master · KP-Wiki/Scripting-Parser · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
unit KM_StringUtils;
interface
uses
  System.Classes, System.SysUtils, System.Types, System.StrUtils;


function RightStrAfter(const aStr, aSubStr: string): string;
function LeftStrBefore(const aStr, aSubStr: string): string;
function StrSubstring(const aStr: string; aFrom: Integer): string;
function StrLastIndexOf(const aStr, aSubStr: string): Integer;
function StrTrimRightSeparators(const aStr: string): string;
procedure StrSplit(const aStr, aDelimiters: string; aStrings: TStringList);

procedure FindStartAndFinish(aStringList: TStringList; aMarker: string; out aLineStart, aLineFinish, aPad: Integer);

implementation


function RightStrAfter(const aStr, aSubStr: string): string;
begin
  Result := Copy(aStr, Pos(aSubStr, aStr) + Length(aSubStr), MaxInt);
end;


function LeftStrBefore(const aStr, aSubStr: string): string;
var
  position: Integer;
begin
  position := Pos(aSubStr, aStr);
  if position = 0 then
    Result := aStr
  else
    Result := Copy(aStr, 1, position - 1);
end;


// string functions
// These function are replacements for string functions introduced after XE2 (XE5 probably)
// Names are the same as in new Delphi versions, but with 'Str' prefix
// We keep them here to support pre-XE5 compilation
function StrSubstring(const aStr: string; aFrom: Integer): string;
begin
  Result := Copy(aStr, aFrom + 1, Length(aStr));
end;


function StrLastIndexOf(const aStr, aSubStr: string): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := 1 to Length(aStr) do
    if AnsiPos(aSubStr, StrSubstring(aStr, I-1)) <> 0 then
      Result := I - 1;
end;


function StrTrimRightSeparators(const aStr: string): string;
var
  I, K: Integer;
begin
  K := 0;
  for I := Length(aStr) downto 1 do
  if not (aStr[I] in [',', ':', ';']) then
  begin
    K := I;
    Break;
  end;
  Result := Copy(aStr, 1, K);
end;


procedure StrSplit(const aStr, aDelimiters: string; aStrings: TStringList);
var
  StrArray: TStringDynArray;
  I: Integer;
begin
  StrArray := SplitString(aStr, aDelimiters);
  for I := Low(StrArray) to High(StrArray) do
  if StrArray[I] <> '' then
    aStrings.Add(StrArray[I]);
end;


procedure FindStartAndFinish(aStringList: TStringList; aMarker: string; out aLineStart, aLineFinish, aPad: Integer);
begin
  aLineStart := -1;
  repeat
    Inc(aLineStart);
    if aLineStart >= aStringList.Count then
    begin
      aLineStart := -1;
      Exit;
    end;
  until (Trim(aStringList[aLineStart]) = aMarker);

  aPad := Pos(aMarker, aStringList[aLineStart]) - 1;

  Inc(aLineStart);

  aLineFinish := aLineStart;
  repeat
    Inc(aLineFinish);

    if aLineFinish >= aStringList.Count then
      Exit;
  until (Trim(aStringList[aLineFinish]) = aMarker);

  Dec(aLineFinish);
end;


end.