当时老师给的笔记是:write compurmentresfile('xxx.res',form1);
为什么我写了提示这句错误,
麻烦大家帮我改改。
网络上找不到这句的类似句啊
谢谢拉
保存是可以了,不过在打开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]
大家再帮帮忙,谢谢
谢谢楼上的help.
运行是没有错误了,
但是当我保存了现有的MainForm为.res以后,再次运行程序的时候会出现