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

的 原 因 ， 含 意 太 深 了 ， 讓 我 不 能 忽 視 ! 完 整 的 範 例 程 示 在 uMySessionPagedAdapter Unit 中 ， 我 只 挑 出 幾 個 部 份 來 解 釋 ， 請 你 對 照 著 看 ， 首 先 我 們 使 用 TOrpEditablePagedAdapter 來 取 代 TPagedAdapter 列 示 檔 案 的 程 式 碼 與 上 節 的 範 例 相 同 ， 我 們 先 解 釋 處 理 Session 的 部 份 :

function TMySessionPagedAdapter.AddToList(Value:string):Boolean;

begin

Result:=True;

if not FindSession(Value,foNothing) then

begin

if not FindSession('''''''',foNothing,Value) then

begin

try

VarArrayUnLock(FSessionVariant);

VarArrayRedim(FSessionVariant,FDeleteArraySize 1);

FDeleteArray:=VarArrayLock(FSessionVariant);

FDeleteArray[FDeleteArraySize 1]:=Value;

Inc(FDeleteArraySize);

except

Result:=False;

end;

end;

end;

end;

function TMySessionPagedAdapter.FindSession(Value:string;FindOperation:TFindOperation;AddValue:string=''''''''):Boolean;

var

I:Integer;

bFind:Boolean;

begin

bFind:=False;

if FDeleteArraySize <> -1 then

begin

for I:=0 to FDeleteArraySize do

begin

if (not VarIsEmpty(FDeleteArray[I])) and

标签：

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