Web Application 開 發 利 器 - WebSnap（七）(1…

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;

前 三 行 程 式 是 更 新

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有