MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

{.convert|utf-8|dec/hex.}

Browse Source
This commit is contained in:
Massimo Melina 2020-06-11 11:40:12 +02:00
parent 4b5e0205a5
commit 1f713f706e
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
scriptLib.pas
View File

@ -665,11 +665,30 @@ var
end; // inc_
procedure convert();
var
dst, s: string;
c: ansichar;
begin
if sameText(p, 'ansi') and sameText(par(1), 'utf-8') then
result:=string(ansiToUTF8(ansistring(par(2))))
else if sameText(p, 'utf-8') and sameText(par(1), 'ansi') then
result:=utf8ToAnsi(ansistring(par(2)))
dst:=par(1);
s:=par(2);
if sameText(p, 'ansi') and sameText(dst, 'utf-8') then
result:=string(ansiToUTF8(ansistring(s)))
else if sameText(p, 'utf-8') then
if sameText(dst, 'ansi') then
result:=utf8ToAnsi(ansistring(s))
else if dst='dec' then
begin
result:='';
for c in UTF8encode(s) do
result:=result+intToStr(ord(c))+',';
setLength(result, length(result)-1);
end
else if dst='hex' then
begin
result:='';
for c in UTF8encode(s) do
result:=result+intToHex(ord(c));
end
end; // convert
procedure encodeuri();
@ -1913,9 +1932,15 @@ try
disconnect();
if name = 'stop server' then
- begin
stopServer();
exit('');
end;
if name = 'start server' then
begin
startServer();
exit('');
end;
if name = 'focus' then