Всем привет, токой вопрос
Как в FileListBox пробежаться по файлам и загрузить их в Memo а потом распечатать через fast report?
Пытался так:
Код:
procedure TMain.N2Click(Sender: TObject);
var
i:integer;
memo: Tmemo;
begin
if printdialog1.Execute then
begin
memo:=TMemo.Create(nil);
for I :=0 to flb.ItemIndex-1 do begin
memo.Clear;
Memo.Lines.LoadFromFile(Flb.Directory+'\'+Flb.Items[Flb.ItemIndex]);
PRP.Variables.Variables['Dat']:=#39+memo.Text+#39;
prp.PrepareReport();
prp.Print;
end;
end;
end;
end.
prp это frxReport1 от FastReport
FLB FileListBox
Подскажите в чем загвоздка первый раз работаю с этим компонентом....