Excel->fr3

pasko

Давно использую эту возможность (с 2005 года). Даже вроде предлагал разработчикам FR.
Не все гладко. Но 70-80% перебрасывает. По крайней мере не перенабираю текст. У кого есть желание, можно доработать. Явных недостатоков два
- что-то не так со стилями,
- в шаблоне появляются пустые MemoView.
Но разбираться уже лень. Работает, и ладно.
Вызов

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
 with xml1,frReports,JvOpenDialog1 do
 begin
  if Execute then
   for i:=0 to Files.count-1 do
   try
    xml1.FileName:=Files[i];
    frReports.Clear;
    frReports.LoadFromFile(feTempl.Text);
    nPage:=frReports.PagesCount-1;
    frReports.Styles.Clear;
    nPage:=frReports.PagesCount-1;
    TranslateNode(Root,frReports); // Преобразование в  FR3
    frReports.SaveToFile(ChangeFileExt(xml1.FileName,'.FR3'));
    frReports.Styles.SaveToFile(ChangeFileExt(xml1.FileName,'.FS3'));
   finally
   end;
 end;
end;

PNP

Не открывается архив - "Unexpected end of archive"

pasko

PNP написал: »

Не открывается архив - "Unexpected end of archive"

Перезалил файл. Но в архиве выложить не получилось. Поэтому это не архив, а просто файл PAS. Измените расширение на PAS.