Make StringList from Unicode string with '\n'

[Sniper]

I have unicode string from THtmlviewer.DocumentSource.

Now I need to go through this string.

some pseudocode:

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

1. var
2. HTMLString: WideString;
3. i:integer
4. fList:TStringList;
5. fList := TStringList.Create();
6.     while (true) do
7.     begin
8.  
9.       fList.Add();
10.       if (HTMLString[i] <> '\n')
11.          break;
12.       inc(i);
13.     end;    
14.  

[marcov]

Code: [Select]

if (HTMLString[i] <> '\n')

Htmlstring\[i\] is one char.  '\n' is two, so they are never equal ?

Maybe you try something else than a backslash and an n?

[taazz]

stringlist already breaks on line ends just do

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

1. var
2. HTMLString: WideString;
3. i:integer
4. fList:TStringList;
5. begin
6.   fList := TStringList.Create();
7.   fList.Text := HTMLString;
8. end;
9.  

that should give you multiple lines. as far as I know there is no escape character support in string in pascal you have to define your character by code I suggest to use #10 it will always break correctly the lines regardless of line end format.

[Sniper]

Code: [Select]

if (HTMLString[i] <> '\n')

Htmlstring\[i\] is one char.  '\n' is two, so they are never equal ?

Maybe you try something else than a backslash and an n?

End of line always \r\n or #10#13. I don't know what it should be here.

[Sniper]

stringlist already breaks on line ends just do

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

1. var
2. HTMLString: WideString;
3. i:integer
4. fList:TStringList;
5. begin
6.   fList := TStringList.Create();
7.   fList.Text := HTMLString;
8. end;
9.  

that should give you multiple lines. as far as I know there is no escape character support in string in pascal you have to define your character by code I suggest to use #10 it will always break correctly the lines regardless of line end format.

Nice. What a simple solution! I'll try it.

[taazz]

Code: [Select]

if (HTMLString[i] <> '\n')

Htmlstring\[i\] is one char.  '\n' is two, so they are never equal ?

Maybe you try something else than a backslash and an n?

End of line always \r\n or #10#13. I don't know what it should be here.

JFYI \r\n = #13#10

[marcov]

Pascal generally does not interpret  values in literal string like 'xxx'.   Such backslash notation is originally C.

[Thaddy]

We have a nice global constant for that called LineEnding.