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