這問題，在版上有許多資料，小弟也曾在當初在學動態產生元件實去爬了文...

如今，卻卡在很奇怪的地方...小弟我想動態產生 MainMenu 只是普通的產生沒問題，只是我加上其他的後就不行了。

不論小弟我用的是 Application 或是 Owner 在者 Form1 都用了但還是不行...

[code delphi]
function TabCount(UnitString:WideString):integer;
var i,TabCount:integer;
begin
for i:=1 to Length(UnitString) do Inc(TabCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
var ii:integer;
begin
SetLength(MM,Memo1.Lines.Count);
Memo1.Lines.LoadFromFile('.介面格式.txt');
MM[i]:=TMenuItem.Create(Application); <------此行在我按下Button要產生MainMenu時就會錯
for i:=0 to Memo1.Lines.Count do begin
ws:=Memo1.Lines.Strings[i];
for si:=1 to Length(ws) do
case ws[si] of
#9: inc(sc);
else Mname:=Mname ws[si];
end;
MM[i].Caption:=Mname;
for ii:=i-1 downto 0 do begin
if (sc0) then MM[ii].Add(MM[i]);
if sc=0 then MainMenu1.Items.Add(MM[i]);
end;
end;
end;
[/code]

請各位前備指點一下，謝謝。

你的MM有宣告了嗎? i有給值了嗎??

有宣告
var
MM: array of TMenuItem;
i: integer;

i 是用 For 回圈去跑，讓它連序產生，所以值是 For i:=0 to Memo1.Lines.Count do 。

然後程式可以 Run 只是 Button 按下去會出錯就是了。

===================引 用 老大仔 文 章===================
你的MM有宣告了嗎? i有給值了嗎??

編輯記錄

可是您的MM[i]卻是寫在for迴圈外面...

另外...


SetLength(MM,Memo1.Lines.Count);
Memo1.Lines.LoadFromFile('. 介面格式.txt');
MM[i]:=TMenuItem.Create(Application); <------此行在我按下 Button要產生MainMenu時就會錯
for i:=0 to Memo1.Lines.Count do begin
//
end;


以上四行怎麼會這樣寫...
還沒Load檔案就先SetLength???
MM[i]居然不是在for迴圈中??
請再參考一下這篇文章
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=17944


===================引 用 tokiama 文 章===================
有宣告
var
MM: array of TMenuItem;
i: integer;

i 是用 For 回圈去跑，讓它連序產生，所以值是 For i:=0 to Memo1.Lines.Count do 。

然後程式可以 Run 只是 Button 按下去會出錯就是了。

===================引 用 老大仔 文 章===================
你的MM有宣告了嗎? i有給值了嗎??

編輯記錄

謝謝，那四行的確有問題...

小弟弄懂了，謝謝教導。
===================引 用 老大仔 文 章===================
可是您的MM[i]卻是寫在for迴圈外面...

另外...


SetLength(MM,Memo1.Lines.Count);
Memo1.Lines.LoadFromFile('. 介面格式.txt');
MM[i]:=TMenuItem.Create(Application); <------此行在我按下 Button要產生MainMenu時就會錯
for i:=0 to Memo1.Lines.Count do begin
//
end;


以上四行怎麼會這樣寫...
還沒Load檔案就先SetLength???
MM[i]居然不是在for迴圈中??
請再參考一下這篇文章
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=17944


===================引 用 tokiama 文 章===================
有宣告
var
MM: array of TMenuItem;
i: integer;

i 是用 For 回圈去跑，讓它連序產生，所以值是 For i:=0 to Memo1.Lines.Count do 。

然後程式可以 Run 只是 Button 按下去會出錯就是了。

===================引 用 老大仔 文 章===================
你的MM有宣告了嗎? i有給值了嗎??