procedure TfmKInpHl.FVisualwkBeforePost(DataSet: TDataSet);
type
TwkAcntData = Record
wkCode: String;
wksTime: TDate;
wkeTime: TDate;
end;
var
ArrwkAcntData: Array of TwkAcntData;
function SetArrDataToChk(FTable: TTable;const sCode: String;const sTime, eTime: TDate): Boolean;
var
I: Integer;
begin
Result:= False;
with FTable do
begin
I:= 0;
First;
while not Eof do
begin
ArrwkAcntData[I].wkCode := FieldByName('PriceCode').AsString;
ArrwkAcntData[I].wksTime := FieldByName('StartDateTime').AsDateTime;
ArrwkAcntData[I].wkeTime := FieldByName('EndDateTime').AsDateTime;
Next;
Inc(I);
end;
for I:= 0 to RecordCount-1 do
begin
if (sCode = ArrwkAcntData[I].wkCode) then
begin
if ((ArrwkAcntData[I].wksTime <= sTime) and (sTime <= ArrwkAcntData[I].wkeTime)) or
((ArrwkAcntData[I].wksTime <= eTime) and (eTime <= ArrwkAcntData[I].wkeTime)) then
begin
Result:= True;
Break;
end;
end;
end;
end;
end;

begin
with TestTable do
begin
SetLength(ArrwkAcntData, 0);
DisableControls;
try
SetLength(ArrwkAcntData, RecordCount);
if SetArrDataToChk(dmPHlAcnt.cwtblInpDtlAcnt, FieldByName('PriceCode').AsString,
FieldByName('StartDateTime').AsDateTime,
FieldByName('EndDateTime').AsDateTime) then
sResult:= sResult _ErrOverLap _ErrSpace;
finally
EnableControls;
end;
finally
if sResult <> '' then Raise Exception.Create(sResult);
end;
end;
end;

依以上的程式 當Table有很多筆(20筆以上)時會造成Stack Overflow 請問有什麼方式可以讓ArrwkAcntData 每一次用完就完整釋放掉記憶體???

将数组申明为全局应该就可以！