在程式開始會執行不列

type logtype = record
class : String[6];
type : String[100];
end;
logrecord : array of logtype;
begin
logrecord[i].class := 'a';
logrecord[i].type := 'b';
end

關閉程式時，會有以下錯誤
Exception EAccessViolation in modele XXX.exe at 000A110B.
Access violation at address 004a111B in module XXX.exe. Read of address1448EDAC.

(1)
type, class是Delphi保留字
(2)
logrecord : array of logtype;
其中logrecord 必須配置記憶體
SetLength(logrecord, a_length);
(3)
i 的範圍 0~Length(logrecord)-1
(4)
釋放記憶體 logrecord := nil;



===================引 用 apple12 文 章===================
在程式開始會執行不列

type logtype = record
class : String[6];
type : String[100];
end;
logrecord : array of logtype;
begin
logrecord[i].class := 'a';
logrecord[i].type := 'b';
end

關閉程式時，會有以下錯誤
Exception EAccessViolation in modele XXX.exe at 000A110B.
Access violation at address 004a111B in module XXX.exe. Read of address1448EDAC.

編輯記錄

我有做Setlength，但仍然有錯。
完全想不到錯在那裡？

你的問題應該不大, 能否將完整程式碼貼附上來?!

===================引 用 apple12 文 章===================
我有做Setlength，但仍然有錯。
完全想不到錯在那裡？

你寫的就好幾個錯，不用等退出，Compile就通不過

type logtype = record
class : String[6];
type : String[100];
end;

===>class與type是保留字，不可作欄位名稱

logrecord : array of logtype;
begin
logrecord[i].class := 'a';
logrecord[i].type := 'b';
end

==>i未在Var中定義
==>i 是未定義值，不可

------
Kevin

type logtype = record
subclass : String[6];
tablename : String[20];
end;
public
logrecord : array of logtype;
程式開始時會啟動以下：

procedure TfrmMain.Init;
var w_query : TSQLQuery;
i : Integer;
begin
w_query := TSQLQuery.Create(Nil);
w_query.SQLConnection := DM.SQLConnection1;
w_query.Close;
w_query.sql.Clear;
w_query.Sql.add('select * from abc ');
w_query.Open;
i := 0;
SetLength(logrecord, w_query.recordcount-1);
while not w_query.Eof do
begin
logrecord[i].subclass := w_query.fieldbyname('raditem').asstring;
logrecord[i].tablename := w_query.fieldbyname('value').asstring;
inc(i);
w_query.Next;
end;
w_query.Free;
end;

當結束程式時，便會有錯誤。
如果不執行上述，便不會有錯。

要做陣列邊界檢查.........

while ( i < Length(logrecord) ) and not w_query.Eof do

編輯記錄

問題已解決，多謝jow的解答！