The .Split function doesn't like mixed characters

[ASBzone]

I can get the Split function to split on Chr(10) and/or Chr(13) on a single pass.


I can get the Split function to split on '<' and/or '>' on a single pass.


If I try to make it check all 4 on a single pass, only Chr(10) and/or Chr(13) are evaluated.

Code: Pascal  [Select][+][-]

1.  
2. var
3.   TempString: String;  // tried with AnsiString, and didn't help
4.   TempArray: TStringArray;
5.  
6.  
7. begin
8.   TempString := 'abcdefgh<ijklmnopqr>stuvwxyxz' + chr(13) + '0123456789';
9.  
10.  
11.   TempArray := TempString.Split('<>');
12.   for I := Low(TempArray) to High(TempArray) do
13.     WriteLn(I, ': ', TempArray[I]);
14.   WriteLn('-------------', LINEENDING);
15.  
16.  
17.   TempArray := TempString.Split(ansistring(Chr(10) + Chr(13)));
18.   for I := Low(TempArray) to High(TempArray) do
19.     WriteLn(I, ': ', TempArray[I], LINEENDING);
20.   WriteLn('-------------', LINEENDING);
21.  
22.  
23.   TempArray := TempString.Split(ansistring('<>' + Chr(10) + Chr(13)));
24.   for I := Low(TempArray) to High(TempArray) do
25.     WriteLn(I, ': ', TempArray[I]);
26.   WriteLn('-------------', LINEENDING);
27.  
28.  
29.   TempArray := TempString.Split(ansistring(Chr(60) + Chr(62) + Chr(10) + Chr(13)));
30.   for I := Low(TempArray) to High(TempArray) do
31.     WriteLn(I, ': ', TempArray[I], LINEENDING);
32.   WriteLn('-------------', LINEENDING);
33.  

Only the first two work properly.   The last two behave like the second one.


Versions in my sig...

[Fibonacci]

This is actually interesting:

Code: Pascal  [Select][+][-]

1. procedure test(a: array of string);
2. begin
3.   writeln('len = ', length(a));
4.   writeln('[0] = ', a[0]);
5. end;
6.  
7. begin
8.   test(string('abcde')); // [0] = abcde
9.   //test('abcde');       // Error: Incompatible type for arg no. 1: Got "Constant String", expected "{Open} Array Of AnsiString"
10.   readln;
11. end.

As for Split(), the separators needs to be an array:

https://www.freepascal.org/docs-html/rtl/sysutils/tstringhelper.split.html

Code: Pascal  [Select][+][-]

1. TempString.Split(ansistring(Chr(60) + Chr(62) + Chr(10) + Chr(13))); // 1-element String array
2. // --->
3. TempString.Split(['<', '>', #10, #13]); // array of char
4. TempString.Split('<>#10#13');           // array of char
5. TempString.Split(String('<>#10#13'));   // 1-element String array

[ASBzone]

This is actually interesting:

As for Split(), the separators needs to be an array:

https://www.freepascal.org/docs-html/rtl/sysutils/tstringhelper.split.html
....

Code: Pascal  [Select][+][-]

1. TempString.Split(['<', '>', #10, #13]); // array of char
2.  

This was super helpful.  I was about to embark on a far more complicated "solution"  😁


Thank you kindly.