Такой вредный ИнДизайн!!!!!

← →
kaktus (2004-11-26 15:57) [0]

Доброго времени суток всем!
Такая себе проблемка:
ИнДизайн работает вообще с Unicod-ом, так я функцией ->

function TfConvert.ToUnicode(Str : String):String;
var
StrDest:string;
I:Integer;
Tmp:WideString;
begin
Tmp:=Str;
StrDest:="";
for I:=1 to Length(Tmp) do begin
StrDest:=StrDest+"<0x"+IntToHex(Integer(Tmp[I]),4)+">";
end;
Result := StrDest;
end;
переганяю строку с ANSI в Unicode - и отображаю все это в шестнадцетиричном виде.
Затем опять таки функцией
procedure TfConvert.SpeedButton6Click(Sender: TObject);
var
f : TextFile;
str : String;
i : Integer;
begin

if SaveDialog1.Execute then begin
AssignFile(f, SaveDialog1.FileName+".txt");
Rewrite(f);
WriteLn(f,RichEdit2.Text);
CloseFile(f);
end;
end;
сохраняю это все в файл. Открывая это все я вижу следующее:
<ASCII-WIN>
<vsn:2.000000><fset:InDesign-Roman><ctable:=<Black:COLOR:CMYK:Process:0.000000,0.000000,0.000000,1.000000>>
<dps:TV-Rubrika=<Nextstyle:TV-Rubrika>>
<dps:TV-Text=<Nextstyle:TV-Text>>
<dps:TV-BoldText=<Nextstyle:TV-BoldText>>
<pstyle:TV-Rubrika> [img]rub23.jpg[/img]
<pstyle:TV-BoldText> <0x041F><0x0440><0x043E><0x0431><0x0430><0x0020><0x043F><0x0440><0x043E><0x0441><0x0442><0x043E><0x0020><0x041F><0x043E> <0x0442><0x043E><0x043C><0x0443><0x0020><0x0447><0x0442><0x043E><0x0020><0x044D><0x0442><0x043E><0x0020><0x0432><0x0441> <0x0435><0x0020><0x0435><0x0440><0x0443><0x043D><0x0434><0x0430><0x0020><0x0020><0x0422><0x0435><0x0441><0x0442><0x0438> <0x0440><0x043E><0x0432>
при этом вставляя это в Индизайн - он не обрабатывает его, а просто отображает содержимое - в чем глюк??????????

← →
[lamer]Barmaglot © (2004-11-26 16:30) [1]

STFW?

www.unicode.org

Такой вредный ИнДизайн!!!!! Найти похожие ветки