iClearStart:=OrpEditablePagedAdapter1.RecordIndex;
iClearEnd:=OrpEditablePagedAdapter1.PageSize
OrpEditablePagedAdapter1.RecordIndex;
if iClearEnd > (FStrings.Count-1) then
iClearEnd:=FStrings.Count-1;
for I:=iClearStart to iClearEnd do
FindSession(FStrings.Names[I],foDelete);
OrpEditablePagedAdapter1.UpdateRecords((WebContext.AdapterRequest as IActionRequest));
VarArrayUnlock(FSessionVariant);
Session.Values[''''DeleteList'''']:=FSessionVariant;
end;
你 可 以 在 範 例 程 式 中 發 現 我 將 Goto ， Prev ， NextPage 三 個 Action 的 BeforeExecute 事 件 都 指 向 了 這 個 事 件 ， 這 是 為 了 讓 使 用 者 操 作 方 便 ， 不 需 要 再 按 另 一 個 按 紐 來 更 新 所 選 擇 的 檔 案 。
procedure TMySessionPagedAdapter.AdaptDeleteFileExecute(Sender: TObject;Params: TStrings);
var
I:Integer;
begin
FSessionVariant:=Session.Values[''''DeleteList''''];
FDeleteArray:=VarArrayLock(FSessionVariant);
OrpEditablePagedAdapter1.UpdateRecords((WebContext.AdapterRequest as IActionRequest));
for I:=0 to FDeleteArraySize do
begin
if (not VarIsEmpty(FDeleteArray[I])) and
(FDeleteArray[I] <> '''''''') then
begin
DeleteFile(AppPath ''''\'''' FDeleteArray[I]);
FDeleteArray[I]:=Unassigned;
end;
end;
FSessionVariant:=VarArrayCreate([0,0],varVariant);
Session.Values[''''DeleteList'''']:=FSessionVariant;
end;
前 三 行 程 式 是 更 新
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
