盒子论坛 v2.1

//这样:
var
  s: String;
  c: Integer;
begin
   s := MyIniFile.ReadString('结束', '节数', s);
   c := StrToInt(s);
   for i := 0 to c-1 do
   ......
----------------------------------------------
-

作者：

moodsky (moodsky)	★☆☆☆☆	-
	盒子活跃会员

2004/5/28 16:20:28

3楼：

procedure TForm1.tbtnOpenClick(Sender: TObject);
var
  myinifile :Tinifile;
  i:integer;
  c:string;
begin
  openDialog.Title :='打开脚本';
  openDialog.Filter := 'COA files (*.coa)|*.coa';
  if OpenDialog.Execute then
    begin
      myinifile :=Tinifile.Create(OpenDialog.FileName);
      edtProname.Text:=myinifile.ReadString('文件选项','文件名','');
      c:=myinifile.ReadString('结束','节数','');

      for i:=0 to strToint(c)-1 do
        begin
          lstAddress.Items[i].Caption :=myinifile.ReadString(intTostr(i),'偏移地址','');//到这句就有错！晕死了！

        end;
     end
   else
     exit
end;

----------------------------------------------
-

作者：

moodsky (moodsky)	★☆☆☆☆	-
	盒子活跃会员

2004/5/28 16:25:32

4楼：

错误如下

此帖子包含附件:

大小:15.8K

----------------------------------------------
-

作者：

lovedelphi1 (梦之铃)	★☆☆☆☆	-
	盒子活跃会员

2004/5/28 16:26:43

4楼：

你是否应该这样试一下:
lstAddress.Items.add(...);
lstAddress.Items[i].Caption := ... //这样似乎不行吧!
----------------------------------------------
-

作者：

moodsky (moodsky)	★☆☆☆☆	-
	盒子活跃会员

2004/5/28 16:41:56

5楼：

for i:=0 to strToint(c)-1 do
        begin
          with lstAddress.Items.Add do
            begin
            c:=myinifile.ReadString(intTostr(i),'偏移地址','');
            //showmessage(c);
            Caption :=c;
            end;
        end;
OK了，谢谢lovedelphi1 !
----------------------------------------------
-

信息

登陆以后才能回复