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

TStringList(FStrings).Sorted:=False;

if FindFirst(AListDir,faAnyFile,sr) = 0 then

begin

repeat

if sr.Attr <> faDirectory then

FStrings.Add(sr.Name ''''='''' IntToStr(sr.Size));

until FindNext(sr) <> 0;

end;

TStringList(FStrings).Sorted:=True;

end;

procedure TMyPageAdapter.WebPageModuleCreate(Sender: TObject);

begin

FStrings:=TStringList.Create;

end;

procedure TMyPageAdapter.WebPageModuleDestroy(Sender: TObject);

begin

FStrings.Free;

end;

procedure TMyPageAdapter.WebPageModuleActivate(Sender: TObject);

begin

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

end;

撰 寫 TPagedAdapter 及 AdapterField 的 相 關 事 件 :

procedure TMyPageAdapter.PagedAdapter1GetEOF(Sender: TObject;

var EOF: Boolean);

begin

EOF:=not (FIndex < FStrings.Count);

end;

procedure TMyPageAdapter.PagedAdapter1GetFirstRecord(Sender: TObject;

var EOF: Boolean);

begin

FIndex:=0;

EOF:=FStrings.Count = 0;

end;

procedure TMyPageAdapter.PagedAdapter1GetNextRecord(Sender: TObject;

标签：

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