synedit/test/testblockindent.pas

19     function ReplaceIndent(AText: TStringArray; AFirstLine: Integer;  in ReplaceIndent()
21 …function AddIndent(AText: TStringArray; AFirstLine, ALastLine, ASpaceCount: Integer): TStringArray;  in AddIndent()
22 …function DelIndent(AText: TStringArray; AFirstLine, ALastLine, ASpaceCount: Integer): TStringArray;  in DelIndent()
83 function TTestBlockIndent.ReplaceIndent(AText: TStringArray; AFirstLine: Integer;  in TTestBlockIndent.ReplaceIndent()
88   SetLength(Result, length(AText));
89   for i := 0 to Length(AText) - 1 do
90     Result[i] := AText[i];
93 …+ copy(AText[AFirstLine + i], GetLeadWSLen(AText[AFirstLine + i]) + 1, length(AText[AFirstLine + i…
97 function TTestBlockIndent.AddIndent(AText: TStringArray; AFirstLine, ALastLine,  in TTestBlockIndent.AddIndent()
102   SetLength(Result, length(AText));
103   for i := 0 to Length(AText) - 1 do
104     Result[i] := AText[i];
106     Result[i] := copy(AText[i], 1, GetLeadWSLen(AText[i]))
108                + copy(AText[i], GetLeadWSLen(AText[i]) + 1, length(AText[i]));
112 function TTestBlockIndent.DelIndent(AText: TStringArray; AFirstLine, ALastLine,  in DelIndent()
117   SetLength(Result, length(AText));
118   for i := 0 to Length(AText) - 1 do
119     Result[i] := AText[i];
121     Result[i] := copy(AText[i], 1, Max( GetLeadWSLen(AText[i]) - ASpaceCount, 0))
122                + copy(AText[i], GetLeadWSLen(AText[i]) + 1, length(AText[i]));