是这样的:
procedure TForm1.N1Click(Sender: TObject);
var
ss:string;
begin
if (OpenDialog1.Execute) then
begin
ss:=OpenDialog1.FileName;
end;
showmessage(ss);
end;编译没有错误,可是运行有错误,而且是内存地址错的那种是不是 因为 OpenDialog1.FileName 得到的不是 string 类型我想把 OpenDialog1.FileName 的值放到 edit1 里那要怎么办呢?edit1.text 是字符串啊?
谢谢!
procedure TForm1.N1Click(Sender: TObject);
var
ss:string;
begin
if (OpenDialog1.Execute) then
begin
ss:=OpenDialog1.FileName;
end;
showmessage(ss);
end;编译没有错误,可是运行有错误,而且是内存地址错的那种是不是 因为 OpenDialog1.FileName 得到的不是 string 类型我想把 OpenDialog1.FileName 的值放到 edit1 里那要怎么办呢?edit1.text 是字符串啊?
谢谢!
解决方案 »
- 如何根据窗口句柄得到应用程序的全路径名?
- 求一个delphi的TREEVIEW的例子
- dbExpress GetFieldNames bug 问题!
- 软件的演示最好做成什么类型的?急切盼望各位大侠的回复!急、、、、、
- FASTREPORT如何直接打印!??
- 怎样能够通过程序把两个甚至多个exe文件连接为一个exe文件呢?(高手们请指教)
- 很奇怪的问题,为什么delphi+sql server 2000会出现这麽奇怪的问题(关于存储器的)?我已经打过delphi的两个ado的补丁了。大家来看看!
- 请问:在如何程序中动态取得数据库的字段名、字段类型?
- 小问题,就是检测程序里的主窗口是否位于所有窗口之上。
- 这个东东是不是病毒。。。
- 请问,ACCESS的数据库连接和SQLSERVER数据库的连接有何不同呢?
- 如何在dbgrid或者dbgrideh中显示两次以上的查询内容???
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Menus;type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N1: TMenuItem;
StringGrid1: TStringGrid;
OpenDialog1: TOpenDialog;
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.N1Click(Sender: TObject);var
ss:string;
begin
if (OpenDialog1.Execute) then
begin
ss:=OpenDialog1.FileName;
end;
showmessage(ss);
end;end.
帮我试试,好吗?谢谢!
我这里还是不行啊!
谢谢!