| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1878 人关注过本帖
标题:保存为.res文件
只看楼主 加入收藏
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
 问题点数:0 回复次数:13 
保存为.res文件
要保存为.res文件,
当时老师给的笔记是:write compurmentresfile('xxx.res',form1);
为什么我写了提示这句错误,
麻烦大家帮我改改。
网络上找不到这句的类似句啊

谢谢拉
搜索更多相关主题的帖子: res文件 网络 保存 write 笔记 
2007-04-12 11:55
sgliuxiu
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:291
专家分:0
注 册:2007-2-2
收藏
得分:0 
这个是系统本身有的,你要保存这个文件吗?一个工程就有一个这样的文件,同你的工程名一样.
图片附件: 游客没有浏览图片的权限,请 登录注册


小猫说:给我10元钱
2007-04-12 12:37
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 
谢谢先

我是要把这个语句写在一个button里面,单击就可以保存为.res的文件。
write语句没有写错吗?

2007-04-12 14:21
sgliuxiu
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:291
专家分:0
注 册:2007-2-2
收藏
得分:0 
错是肯定错了,全世界都找不到这个.
不过怎么写,偶也不知道呢.

小猫说:给我10元钱
2007-04-12 16:08
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 
找borland要代码吧。

昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-04-13 09:45
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 
呵呵,是错了。
应该是writecomponentresfile('**.res',form1);
问题解决了
谢谢大家

2007-04-13 10:13
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 

保存是可以了,不过在打开form的时候判断.res是否需要读入的时候出错了。
程序如下:
在formcrate中的:
if FileExists('carku.res') then
begin
for j:=self.ComponentCount-1 downto 0 do //152
self.Components[j].Free;
readcomponentresfile('carku.res',MainForm);
for j:=0 to MainForm.ComponentCount-1 do //155
if MainForm.Components[j] is TPan then
a[strtoint(TPan(MainForm.Components[j]).Caption)]:=TPan(MainForm.Components[j]);
end;
其中TPan是我自定义的一个panel,是用TPANEL做的。
错误提示是:
[Warning] Unit1.pas(152): For loop control variable must be simple local variable
[Warning] Unit1.pas(155): For loop control variable must be simple local variable

[upload]=bmpUploadFile/2007-4/200741310212010735.bmp[/upload]
大家再帮帮忙,谢谢



Sv8RggLA.bmp (372.43 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册

2007-04-13 10:24
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 
for j:=self.ComponentCount-1 downto 0 do //152
self.Components[j].Free;
readcomponentresfile('carku.res',MainForm);
for j:=0 to MainForm.ComponentCount-1 do //155
if MainForm.Components[j] is TPan then
a[strtoint(TPan(MainForm.Components[j]).Caption)]:=TPan(MainForm.Components[j]);
在循环嵌套里,不能用同一个变量,
第一个用from j:=
那嵌进的那个就不能用form j:=

昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-04-13 21:04
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 

谢谢楼上的help.
运行是没有错误了,
但是当我保存了现有的MainForm为.res以后,再次运行程序的时候会出现

图片附件: 游客没有浏览图片的权限,请 登录注册

这个错误的,
其中TPan是我自定义的控件,TPanel改的.
再帮我看看问题吧.谢谢

2007-04-16 09:59
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 

具体情况。。。


昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-04-16 20:16
快速回复:保存为.res文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016647 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved