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

(Value = FDeleteArray[I]) then

begin

bFind:=True;

if FindOperation = foDelete then

FDeleteArray[I]:=Unassigned;

break;

end;

if (Value = '''''''') and (AddValue <> '''''''') and (VarIsEmpty(FDeleteArray[I])) then

begin

bFind:=True;

FDeleteArray[I]:=AddValue;

break;

end;

end;

end;

Result:=bFind;

end;

AddToList 及 FindSession 是 用 來 處 理 Session 的 程 式 ， 我 們 利 用 了 一 個 Variant Array 來 儲 存 使 用 者 所 挑 選 的 檔 案 名 稱 ， FDeleteArray 是 一 個 陣 列 指 標 ， 我 們 在 操 作 Variant Array 之 前 會 先 使 用 VarArrayLock 來 加 快 處 理 Variant Array 的 速 度 .

procedure TMySessionPagedAdapter.WebPageModuleBeforeDispatchPage(

Sender: TObject; const PageName: String; var Handled: Boolean);

begin

InitializeList(AppPath ''''\*.*'''');

FSessionVariant:=Session.Values[''''DeleteList''''];

if VarIsEmpty(FSessionVariant) then

begin

FSessionVariant:=VarArrayCreate([0,0],varVariant);

FSessionVariant[0]:=Unassigned;

Session.Values[''''DeleteList'''']:=FSessionVariant;

FDeleteArraySize:=0;

end

else

FDeleteArraySize:=VarArrayHighBound(FSessionVariant,1);

FDeleteArray:=VarArrayLock(FSessionVariant);

end;

标签：

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