pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Replace LineEndings in THMLParser demo by "paragraph mark" character.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6985 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-31 14:42:26 +00:00
parent 1ab58715c4
commit 98332acbbc
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/jvcllaz/examples/JvHTMLParser/JvHTMLParserMainFormU.pas
View File

@ -193,16 +193,21 @@ begin
end; end;
end; end;
const
PARAGRAPH_MARK = #$E2#$81#$8B;
procedure TJvHTMLParserMainForm.TableKeyFound(Sender: TObject; Key, Results, procedure TJvHTMLParserMainForm.TableKeyFound(Sender: TObject; Key, Results,
OriginalLine: string); OriginalLine: string);
begin begin
Self.Tag := Self.Tag + 1; Self.Tag := Self.Tag + 1;
DisplayMemo1.Lines.Add(Key + #13#10 + Results); DisplayMemo1.Lines.Add(Key + LineEnding + Results);
if UpperCase(Key) = 'TR' then if UpperCase(Key) = 'TR' then
CurNode := TreeView1.Items.AddChild(nil, 'TR') CurNode := TreeView1.Items.AddChild(nil, 'TR')
else else begin
Results := StringReplace(Results, LineEnding, PARAGRAPH_MARK, [rfReplaceAll]);
TreeView1.Items.AddChild(CurNode, Results); TreeView1.Items.AddChild(CurNode, Results);
end; end;
end;
procedure TJvHTMLParserMainForm.TableKeyFoundEx(Sender: TObject; procedure TJvHTMLParserMainForm.TableKeyFoundEx(Sender: TObject;
Key, Results, OriginalLine: String; TagInfo: TTagInfo; Key, Results, OriginalLine: String; TagInfo: TTagInfo;
@ -211,14 +216,16 @@ var
i : integer; i : integer;
begin begin
Self.Tag := Self.Tag + 1; Self.Tag := Self.Tag + 1;
DisplayMemo1.Lines.Add(Key + #13#10 + Results); DisplayMemo1.Lines.Add(Key + LineEnding + Results);
for i:=0 to Attributes.Count-1 do for i:=0 to Attributes.Count-1 do
DisplayMemo1.Lines.Add('Attributes=' + Attributes[i]); DisplayMemo1.Lines.Add('Attributes=' + Attributes[i]);
if UpperCase(Key) = 'TR' then if UpperCase(Key) = 'TR' then
CurNode := TreeView1.Items.AddChild(nil, 'TR') CurNode := TreeView1.Items.AddChild(nil, 'TR')
else else begin
Results := StringReplace(Results, LineEnding, PARAGRAPH_MARK, [rfReplaceAll]);
TreeView1.Items.AddChild(CurNode, Results); TreeView1.Items.AddChild(CurNode, Results);
end; end;
end;
procedure TJvHTMLParserMainForm.HTML2TextKeyFound(Sender: TObject; Key, Results, procedure TJvHTMLParserMainForm.HTML2TextKeyFound(Sender: TObject; Key, Results,
OriginalLine: string); OriginalLine: string);