(1)from1调用from2调用from3 //各窗体调用关系
(2)在from1里已经USES from2,
在from2里已经USES from3,
在from3里已经USES from2,implementation
uses
from1;
{$R *.dfm}procedure TFrom3.Button1Click(Sender: TObject);
var
jpg:TJpegimage;
str:string;
begin str:=from2.Edit1.Text+'.JPG';
jpg:=TJpegimage.Create;
jpg.LoadFromFile(str);
QRimage1.Picture.Assign(jpg);
jpg.Free;end;
(3)当我点击Button1按钮时报错:"Access violation at address 0050452A in module 'frmain.exe'".Read of address 00000318.
也就是说根本取不到from2.Edit1.Text 如何解决???谢谢!
(2)在from1里已经USES from2,
在from2里已经USES from3,
在from3里已经USES from2,implementation
uses
from1;
{$R *.dfm}procedure TFrom3.Button1Click(Sender: TObject);
var
jpg:TJpegimage;
str:string;
begin str:=from2.Edit1.Text+'.JPG';
jpg:=TJpegimage.Create;
jpg.LoadFromFile(str);
QRimage1.Picture.Assign(jpg);
jpg.Free;end;
(3)当我点击Button1按钮时报错:"Access violation at address 0050452A in module 'frmain.exe'".Read of address 00000318.
也就是说根本取不到from2.Edit1.Text 如何解决???谢谢!
解决方案 »
- 一个简单问题
- ClientDataSet 和DataSource连接,并在DBgrid显示-----------------请赐教,,,,
- 我想生成'001','002',....'110'这样的字符串,可怎么样得到“'”这个字符?
- WebBrowser组件,如何控制访问一个URL不成功后的界面?
- 关于Tsocketconnection问题
- 数据库备份中遇到麻烦
- Report Machine 打印数据库问题
- 三层的问题,十万火急?????!!!!!!!!!!!!
- 高手帮帮忙,找一个本地数据库程序改远程执行的方法
- 在一个窗口弹出之前WINDOWS会对它做些什么?
- 骋Delphi高手(散分)
- 请问一个问题,在TREEVIEW中一个结点的TEXT我知道怎么设置,他是否还有个VALUE???怎么设置?
当我按下按钮时就报这个错误了:"Access violation at address 0050452A in module 'frmain.exe'".Read of address 00000318.
急!!!
急!!!
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm1, Form2);
Application.CreateForm(TForm1, Form3);
Application.Run;
end.
uses unit1,unit2,unit3;
什麼程序流程啊!!!這樣的程序只有你自己用.很簡單的原因是因為frmMain沒有創建
Application.CreateForm(Tfrmain, frmain);
TO: gxgyj(杰克.逊) 我是已经uses unit1,unit2,unit3;不过我把它写成了uses from1,from2,from3;而已.
unit Paspicture;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, QRCtrls, QuickRpt, ExtCtrls, ComCtrls,jpeg,Printers;type
TFrmpicture = class(TForm)
StatusBar1: TStatusBar;
QuickRep1: TQuickRep;
QRDBText1: TQRDBText;
Table1: TTable;
Table1dir: TStringField;
Table1date: TDateTimeField;
Table1dh: TIntegerField;
Button1: TButton;
Button2: TButton;
PageHeaderBand1: TQRBand;
QRImage1: TQRImage;
DetailBand1: TQRBand;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Frmpicture: TFrmpicture;implementation
uses
mainfr,tlsystem;
{$R *.dfm}procedure TFrmpicture.Button1Click(Sender: TObject);
var
jpg:TJpegimage;
str:string;
begin str:=table1dir.Text+Frmtlsystem.Edit1.Text+'.JPG';
jpg:=TJpegimage.Create;
jpg.LoadFromFile(str);
QRimage1.Picture.Assign(jpg);
jpg.Free;end;procedure TFrmpicture.Button2Click(Sender: TObject);
begin
QuickRep1.Preview;
end;
procedure TFrmpicture.Button3Click(Sender: TObject);
begin
close;
end;end.
但是在from1中实现各模块的调用是就出现了(from1调用from2调用from3 //各窗体调用关系)
:
在form3里按下Button1按钮时是报::"Access violation at address 0050452A in module 'frmain.exe'".Read of address 00000318.