Essaye ExportAsText := True et CreateHTMLFragment := True ?
Moi j'ai obtenu un fichier comme ceci, je présume que c'est du HTML, j'ai mis comme texte :
{
begin
var
MyFunction
function
procedure
LOl !
end;
}
_________________________
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="generator" content="SynEdit HTML exporter" />
<style type="text/css">
<!--
body { color: #000000; background-color: #FFFFFF; }
.pas1-assembler { }
.pas1-character { }
.pas1-comment { font-style: italic; }
.pas1-float { }
.pas1-hexadecimal { }
.pas1-identifier { }
.pas1-number { }
.pas1-preprocessor { font-style: italic; }
.pas1-reservedword { font-weight: bold; }
.pas1-space { }
.pas1-string { }
.pas1-symbol { }
-->
</style>
</head>
begin
var
MyFunction
function
procedure
LOl !
end;
</html>
___________________________
C'est déjà un début ??
En tout cas les mots en gras passent ;)
Chez moi ça marche du tonnerre ;)
Cordialement, Bacterius !