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

The function ConvertUTF8HtmlTextToBraille in utf8_braille unit was further implemented.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1957 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
anavaleije
2011-09-15 13:10:18 +00:00
parent 046e067ba4
commit b03c034c47
1 changed files with 42 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
applications/fpbrowser/utf8_braille.pas
View File

@ -182,8 +182,49 @@ begin
end;
function ConvertUTF8HtmlTextToBraille(AInput: string): string;
var
i: integer;
output, aux_string: string;
is_text: boolean;
begin
Result := ConvertUTF8TextToBraille(AInput);
i := 1;
output := '';
aux_string := '';
is_text := True;
while i <= length(page) do
begin
while is_text and (i <= length(page)) do
begin
if (page[i] = '<') or (page[i] = '/') then
begin
is_text := False;
break
end;
aux_string := aux_string + page[i];
i := i + 1;
end;
output := output + ConvertUTF8TextToBraille(aux_string);
while (not is_text) and (i <= length(page))do
begin
if (page[i] = '>') then
begin
is_text := True;
i := i + 1;
output := output + '>';
break
end;
output := output + page[i];
i := i + 1;
end;
end;
ConvertUTF8HtmlTextToBraille := output;
end;
{ TBrailleBrowserModule }