|
#1
|
||||
|
||||
FileListBox
Всем привет, токой вопрос
Как в 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 Подскажите в чем загвоздка первый раз работаю с этим компонентом.... Delphi XE + Ehlib + FastReport |
#2
|
|||
|
|||
Ну во первых - загрузить в мемо или распечатать?
Мемо в этом коде не нужен Код:
procedure TMain.N2Click(Sender: TObject); var i:integer; ST: TStrings; begin if printdialog1.Execute then begin ST:=TStringList.Create(); try //<<==-- for I :=0 to flb.Count-1 do //<<==-- begin ST.Clear; ST.LoadFromFile(Flb.Directory+'\'+Flb.Items[i]); PRP.Variables.Variables['Dat']:=#39+ST.Text+#39; PRP.PrepareReport(); PRP.Print; end; finally ST.Free(); // и не забыть про это end; end; end; end; end. |