var
ar: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);上面这串代码,有用到吗? 看的是memo上边的例子
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
frxClass, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
frxReport1: TfrxReport;
procedure Button1Click(Sender: TObject);
procedure frxReport1GetValue(VarName: String; var Value: Variant);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}var
ar: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
var
sl: TStringList;
begin
if CompareText(VarName, 'file') = 0 then
begin
sl := TStringList.Create;
sl.LoadFromFile('unit1.pas');
Value := sl.Text;
sl.Free;
end;
end;
end.
解决方案 »
- webbrowser post发包提交数据的疑问
- TClientDataSet在将jpg图片存到SQL2000数据库中的问题?如果不是TClientDataSet而是TADOQuery类型则没有问题?
- Delphi启动动画
- Twebbrowser如何防止彈出這個錯誤呢
- 如何打开后缀是htf, bsp,和map的文件呀
- 谁能帮我们解释这个数据结构
- 急!!!DBGRID的问题 高手 请进。
- 深圳想捞外快的进来
- 连续纸打印时长度出错???!!!
- 怎样在treeview中寻找指定的节点?
- ADOQuery的FieldChangeComplete事件怎么写?
- delphi olecontainer的问题
ar: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);procedure TForm1.Button1Click(Sender: TObject);
begin
ArrayDS.RangeEnd := reCount;
ArrayDS.RangeEndCount := 10;
frxReport1.ShowReport;
end;procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
begin
if CompareText(VarName, 'element') = 0 then
Value := ar[ArrayDS.RecNo];
end;不太一样
贴的代码是打印文件。 PrintFile 这个例子