摘要：
//存储剪贴板内容到文件中procedure TfrDesignerForm.ClipSaveFileClick(Sender: TObject);var fs, ms: TStream; i, n: integer; p: PInteger; b: Byte; s: string; t: TfrView;begin fs := TFileStream.Create('c:/frclip.dat', fmCreate or fmOpenWrite); t := TfrView.Create; new(p); try n := ClipBd.Count; fs.WriteBuff 阅读全文
摘要：
unit ReportClass;interfaceuses CommonForm, SysUtils, Classes, Forms, Dialogs, DB, Controls, Grids, ComCtrls, FR_DBSet, FR_Class, Printers, FR_Utils, FR_Pars, DBGrids, IniFiles, Variants, TypInfo;type TReport = class private FDatasetArray: array of TDataset; FRDataset: array of TfrDBDataset; Frm... 阅读全文